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EDITORIAL 



T 


I ips & Tricks - für viele ein 
Begriff mit magischer An¬ 
ziehungskraft. Ihre Kenn¬ 
zeichen: kurz und interessant. 

Es ist kaum möglich, alle Tips & Tricks aus¬ 
wendig zu kennen. Oft weiß man gar nicht, daß 
es zu einem bestimmten Problem eine ganz 
einfache Lösung gibt. Oder es kommt einem 
die schwache Erinnerung, irgendwo schon ein¬ 
mal etwas zu dem anstehenden Problem gele¬ 
sen zu haben, nur - wo? Um diesem Mißstand 
eine Ende zu bereiten, haben wir alle Tips & 
Tricks gesammelt, die seit dem letzten Tips & 
Tricks-Heft (Sonderheft 24) im 64’er-Magazin 
veröffentlicht wurden. Übersichtlich sortiert er¬ 
spart Ihnen dieser umfangreiche Beitrag viel 
Sucherei. 

Natürlich gehört in ein Tips & Tricks-Sonder¬ 
heft auch »fertige Kost«. Gemeint sind Tools - 
hilfreiche Programme für verschiedene Berei¬ 
che, die einem den Umgang mit dem Compu¬ 
ter erleichtern. Ausgezeichnete Programme für 
die Bereiche Grafik, Musik, Floppy, Program¬ 
mieren und Funk sind dieses Mal dabei. 

Ein »Apfelsee« breitet bizarre und gleichzeitig 
faszinierende Landschafts-Strukturen vor Ihnen 
aus. Der »Alpha-Drummer« macht Ihren C 64 
zum perfekten Rhythmus-Computer. »BKS« - 
ein Begriff, der Basic-Programmierer ab jetzt 
bei ihren Entwicklungen begleitet. Dieses 


Basic-Kontroll-System spürt selbständig Fehler 
in Programmen auf und macht Sie sogar auf 
schlechten Programmierstil aufmerksam. Wer 
das Morsen lernen und trainieren will, findet 
ebenfalls ein ausgezeichnetes Utility in dieser 
Ausgabe. Soweit nur einige Kostproben aus 
dem umfangreichen Tool-Programm. Sicher fin¬ 
den auch Sie etwas darunter, womit Sie Ihre 
Software-Sammlung bereichern können. 

Ein weiteres Augenmerk richten wir in die¬ 
sem Sonderheft auf das oder besser gesagt die 
Betriebssysteme des C64. Immer wieder rufen 
Leser bei unserer Hotline an und beklagen 
sich, daß Programme auf ihrem Computer nicht 
einwandfrei laufen. Programme, die in der Re¬ 
daktion intensiv getestet wurden und einwand¬ 
frei arbeiteten, versagen bei manchen Lesern 
ihre Dienste. Wir sind der Sache nachgegan¬ 
gen und haben festgestellt, daß auch der C64 
unterschiedliche Betriebssysteme besitzt. Der 
Garaus für manche Software. Eine genaue 
Analyse der Betriebssysteme zeigt auf, was 
man beim Programmieren berücksichtigen soll¬ 
te, damit die Programme auf allen Betriebssy¬ 
stem-Varianten funktionieren. 


Ihr Gottfried Knechtei 
(Leitender Redakteur) 
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■INHALT 




Komfortables Verify 

Automatisches Vergleichen von zwei 
Basic-Programmen ist die Stärke dieser Routine: 

Jeder Unterschied wird wahlweise auf Bildschirm __ 
oder Drucker ausgegeben. H 94 


Disketten unter der Lupe 

Ein sehr nützliches Disk-Utility ist »Fatman«. 
Durch die grafische Anzeige von Disketten¬ 
strukturen ist es für Einsteiger und Profis 
gleichermaßen wichtig 


H108 


Spielereien mit dem Interrupt 

Erstaunliche Bildschirm-Effekte in eigenen 
Programmen erzielen Sie mit »Prometheus« 


Stilvolles Umblenden von Zeichensätzen 

Eine kleine Routine, die leicht anzuwenden ist, 
verleiht Ihren Programmen den professionellen 
»Touch« 


13 


Sprite-Editor in Vollendung 

Weit über die Fähigkeiten vergleichbarer 
Programme hinaus geht dieses Sprite- 
Konstruktions-Programm. Das Erzeugen von kur- _ _ 
zen »Trickfilmen« wird zum Kinderspiel U 32 


Der Grafik-Klau geht um 

Mit »Graph-Search« können Sie aus nahezu 

jedem Programm Bilder, Grafiken und 

Zeichensätze kopieren und für eigene 

Zwecke verwenden H 46 


PTG - Der professionelle Titelgenerator 

Laufschriften, Musik, Grafiken und viele andere 
tolle Effekte lassen sich mit dem PTG zu 
Profi-Vorspännen für eigene Programme 
kombinieren H 49 


Landschaften Im Computer 

Der »Apfelsee« - erforschen Sie diese bizarre, 
fremdartige Landschaft, die sich direkt in Ihrem 
Computer befindet 


18 


3D-Objekt-Konverter - Verbindung zwischen 
Glga-CAD und PED 

Dieses Programm erlaubt es, dreidimensionale 
Objekte zwischen Giga-CAD oder PED 
auszutauschen 


126 


Ein Computer - doch verschiedene Betriebssystem- 
Varianten. Lesen Sie welche Unterschiede es beim C64 gibt 
und warum manche Programme deswegen nicht laufen. 

Seite 116 


Tools: Programmieren 


Der Detektiv für Basic-Programme 

Das Basic-Kontroll-System überprüft Ihre 

Programme auf Syntax-Fehler und unsauberen __ _ 

Programmierstil Bl 84 

Tastatur mit Gedächtnis 
Dieses kleine Tool merkt sich alle Ihre Tastatur¬ 
eingaben, die Sie jederzeit wieder abrufen _ . 

können. Sie sparen so viel Tipparbeit. II 91 


Tools: Floppy 


Disketten optimal genutzt 

Durch optimales Ausnutzen des Disketten- 
Speicherplatzes hilft Ihnen dieses Programm „ 

Geld und Disketten sparen H102 

Die Scratch-Sperre 

Schützen Sie wichtige Programme vor unbeab- _ 

sichtigtem Löschen. »Filelock« hilft Ihnen dabei. H 106 


Tools: Grafik 


Tools: Musik 


Der C64 als Super-Drummer 

Der »Alpha-Drummer« - ein Programm das 
seinesgleichen sucht. 24 digitalisierte Drum- 
Sounds, lassen manchen »echten« Schlagzeuger 
vor Neid erblassen. Die Krönung ist ein integrier¬ 
ter Digitzer. 


H66 


Tips&Tricks zum Soundmonitor 

Musikstücke, die mit dem Soundmonitor aus 
Sonderheft 31 komponiert wurden, lassen sich 
mit diesem Programm auf einen Bruchteil ihrer 
Länge komprimieren 


U82 


Tools: Programmieren 


Kaum zu unterscheiden von einem »echten« Schlagzeug Ist 
Ihr C64 mit dem »Alpha-Drummer«. Dank digitalisierter 
Sounds und ausgefeilter Misch-Technik komponieren Sie im 
Handumdrehen tolle Rhythmen. Seite 66 


Von Vizawrite nach Fontmaster 

Eine Synthese zwischen der Textverarbeitung 
Vizawrite und Fontmaster wird durch dieses 
Konvertierprogramm geschaffen 


97 


Basic-Programmen auf der Spur 

Die schrittweise Abarbeitung eines 
Basic-Programms mit »Super-Trace« erleichtert 
die Fehlersuche wesentlich 


moo 
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1 Tips&Tricks 

Der Griff in die Tips&Trlcks-Kiste 

Die besten Tips&Tricks aus dem 64’er-Magazin 
haben wir für Sie ausgewählt und nach Themen 
zusammengestellt 

H120 

Tabellen 

Alle Codes des C64 

Für viele verwirrend ist die Vielfalt der Codes 


des C64: ASCII-Codes, Bildschirm-Codes, 
Tastatur-Codes... Diese Übersicht macht Schluß 

156 

mit den Unklarheiten. 

Eingabehilfen 



♦2♦ FARBEN EINSTELLEN 


♦3* FARBEN ORDNEN 


♦44 SAUEN 


♦ 54 


LADEN 


Impressum 162 

Alle Programme aus Artikeln mit einem H -Symbol linden Sie auch 

auf der Programmservice-Diskette zu diesem Sonderheft 


'iWai* 


Betriebssysteme im Vergleich 

Im Lauf der Zeit wurde das Betriebssystem des 

C64 modifiziert. Lernen Sie diese Unterschiede 

kennen und vermeiden Sie so Stolpersteine 

beim Programmieren I1 116 


Warum sich bei der Fehlersuche In Basic-Programmen die 
Augen ruinieren? Es geht auch viel leichter: 

Das Baslc-Kontroll-System übernimmt diese Aufgabe 
für Sie. Es erkennt Syntax-Fehler 
und sogar unsauberen Programmierstil 
Seite 84 


Morsen lernen mit dem C64 

Dieses Programm beginnt dort, wo andere 
Morse-Trainer aufhören: Sie morsen per Joystick 
oder Tastatur und der C64 entziffert Ihre 
Eingaben 


H112 


Effekte mit schillernden Bildschirmzeilen erreicht man 
durch den sogenannten Rasterzeilen-Interrupt. Das 
Programm »Prometheus« macht es zum Kinderspiel, solche 
Effekte in eigenen Programmen zu verwenden. Seite 6 


Grundlagen 


Kennen Sie diese Landschaft? Das Programm »Apfelsee« 
lädt Sie ein, fraktale Seen und Berge In Ihrem Computer zu 
erforschen. Seite 18 


PROMETHEUS 


MENU: 


414 ANZAHL EINSTELLEN 


Checksummer V3 und MSE 

Diesen Artikel sollten Sie unbedingt lesen, wenn 
Sie Programme aus diesem Sonderheft abtippen . 

wollen. H159 
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Editorial 
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C 64 


SPIELEREIEN 



D as Programm »Prometheus« erlaubt den Entwurf ei¬ 
nes eindrucksvoll gestalteten Hintergrundes. Ein 
komfortabler Editor steht dabei hilfreich zur Seite. Der 
Editor, das Basic-Programm »Prometheus«, verändert ein 
Interrupt-Programm, das einen farbigen Hintergrund er¬ 
zeugt (Bild 1). 

Das Herzstück von »Prometheus« ist die ausgefeilte Ra- 
sterzeilen-lnterruptroutine, die den einzelnen Rasterzeilen 
des Hintergrundes verschiedene Farben zuweist. Diese 
Routine ist eine Erweiterung von »Alley. Sim.« (siehe Son¬ 
derheft 27) und arbeitet nach demselben Prinzip. 

Der Progmmmier-Tri(k 

»Prometheus« ist vor allem dann wirkungsvoll einzusetzen, 
wenn die Wirkungsweise der Interruptroutine klar gewor¬ 
den ist: 

Der dargestellte Bildschirm des C64 ist in 25 Zeilen auf¬ 
geteilt, die man von 0 bis 24 numeriert. In den Zeilen 0, 2, 

4,6.22 und 24 kann der Farbeffekt dargestellt werden. 

Jeder dieser 13 Zeilen, im folgenden Streifen genannt, wird 
vom Programm ein spezieller Farbcode von 0 bis 255 zuge¬ 
wiesen. Dieser Farbcode repräsentiert wiederum die acht 
Farb-Byte, die ein Streifen besitzt. Jeder Streifen ist in acht 
Rasterzeilen aufgeteilt, jeder Rasterzeile wird ein Farbcode 
zugewiesen (Tabelle 1 verdeutlicht das). Das Rasterzeilen- 
Interruptprogramm löst also bei jeder Rasterzeile eines 
Streifens einen Interrupt aus und wechselt die Hintergrund¬ 
farbe. Durch die geschickt eingesetzte Interrupttechnik 
wird jedes Flackern des Bildes unterdrückt. 

Um den Bildschirmhintergrund nach Ihren Wünschen 
und Ideen zu gestalten, benötigen Sie den Editor »Pro¬ 
metheus«, der in Basic geschrieben ist (Listing 1). Nach der 
Eingabe mit dem Checksummer (Seite 158) speichern Sie 
das Programm unter dem Namen »PROMETHEUS«. Dann 


, Ae 7c& W'S'e 5S? ' 


brauchen Sie natürlich noch ein editierbares Rasterzeilen- 
Interruptprogramm. Ein Beispiele ist »DEMO I« (Listing 2). 
Geben Sie dieses Listings mit dem MSE (siehe Seite 159) 
ein. 

Möchten Sie nun Ihren eigenen Hintergrund entwerfen, 
geben Sie bitte folgende Befehle ein: 

LOAD "PROMETHEUS",8 < Return> 

RUN <Return> 

Sofort eröffnet sich Ihnen ein Menü mit sechs Punkten 
(Bild 1). 

Der Editor benötigt für seine Arbeit in jedem Fall ein edi¬ 
tierbares Rasterzeilen-Interruptprogramm. Dieses muß 


Farb-Editor der Spitzenklasse 


sich im Speicher des C 64 befinden und auch aktiviert sein. 
Laden Sie dazu unter dem Menü-Punkt 5 das »DEMO I«. 
Doch nun zu den Menüpunkten: 

<1 > Streifenanzahl einstellen 

Hier stellen Sie die gewünschte Anzahl der Streifen ein, 
die ein Farbspektrum besitzen soll (Werte von 1 bis 13). Fol¬ 
gendes ist dabei zu beachten: je weniger Streifen Sie zur 
Farbdarstellung verwenden, desto weniger wertvolle CPU- 


i 


6 


SONDERHEFT 33 










C 64 


TOOLS: GRAFIK 



Zeit (CPU = Hauptprozessor) wird für den Rasterzeilen-In- 
terrupt verwendet. Bei einer geringeren Anzahl bleibt der 
CPU also mehr Zeit für die Abarbeitung von Programmen. 

<2> Farben einstellen 

In diesem Menüpunkt definieren Sie den programminter¬ 
nen Farb-Code und weisen ihm acht Farben zu (siehe Ta¬ 
belle 1). Die Anzahl der programminternen Farb-Codes 
reicht von 0 bis 255. Mehr als 13 werden aber kaum nötig 
sein, da ja höchstens 13 verschiedene Farb-Codes gleich¬ 
zeitig dargestellt werden. 

Zuerst wählen Sie den Farb-Code aus. Danach zeigt ih¬ 
nen »Prometheus«, welche Farben diesem Code bereits 
zugewiesen wurden. Die Eingabe erfolgt dann so, wie in 
Bild 3 dargestellt. Wurde dieser Farb-Code bereits einem 
Streifen zugewiesen, sind die Änderungen sofort sichtbar. 
Nach der Eingabe gibt das Programm die Sicherheitsabfra¬ 
ge »OK« aus. Bestätigen Sie diese mit < J >, kehrt das Pro- 


Programminterner Farbcode: xx 

Rasterzeile 

Farbcode 

Farbe des Streifens 

Rasterzelle 0 

Code xl 

Farbe xl 

Rasterzeile 1 

Code x2 

Farbe x2 

Rasterzelle 2 

Code x3 

Farbe x3 

Rasterzelle 3 

Code x4 

Farbe x4 

Rasterzelle 4 

Code x5 

Farbe x5 

Rasterzelle 5 

Code x6 

Farbe x6 

Rasterzelle 6 

Code x7 

Farbe x7 

Rasterzeile 7 

Code x8 

Farbe x8 


Dle Werte xl bis x8 sind natürlich beliebig. Der Streifen besitzt also 
die Farben, wie es die dritte Spalte beschreibt. 


Tabelle 1. Das Farbprinzip eines Streifens noch einmal 
verdeutlicht. 


graii ir.~ in das Menü zurück. Bei einer anderen Eingabe 
wiedernolt sich der komplette Menü-Punkt. 

<3> Farben ordnen 

Nach der Auswahl eines Streifens (Werte von 0 bis 12) 
weisen Sie diesem einen programminternen Farb-Code zu. 
Diese Zuweisung wird sofort am Bildschirm sichtbar. Auch 
hier stellt der Computer die bei Punkt 2 beschriebene Si¬ 
cherheitsabfrage. 

<4> Interrupt-Programm speichern 

Nach der Eingabe des File-Namens wird das editierte 
Rasterzeilen-Interruptprogramm auf Diskette gespeichert. 
Dieses kann danach jederzeit wieder geladen und verän¬ 
dert werden. 

<5> Interrupt-Programm laden 

In diesem Menüpunkt wird ein editierbares Rasterzeilen- 
Interruptprogramm eingelesen. Zuvor muß selbstverständ¬ 
lich der File-Name eingegeben werden. Dieser Menüpunkt 
ist immer als erster auszuführen, da zum Editieren des In¬ 
terruptprogrammes dieses im Speicher ab $C000 stehen 
und aktiviert sein muß. 


<6> Programm beenden 

Durch den Tastendruck <6> wird das Programm been¬ 
det. 

Die fertig erstellten Rasterzeilen-Interruptprogramme 
werden absolut mit »LOAD "(name)",8,1« geladen und mit 
»SYS 49152« gestartet. Der Aufruf in einem Assembler-Pro¬ 
gramm erfolgt mit »JSR $C000«. 

Auch hier gelten dieselben Schreibtricks wie bei »Alley. 
Sim.«. Will man in bunter Schrift schreiben, aktiviert man 
den Revers-Modus und schreibt in schwarzer Schriftfarbe 
über einen Streifen. 
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C 64 


Mit einem zusätzlich veränderten Zeichensatz erreicht 
man Grafiken wie die in Bild 2. Hier wurden nur drei Zeichen' 
neu definiert und der Mulitcolor-Modus eingeschaltet. Das 
erledigt das Basic-Programm »HIGHSCORE« und das In¬ 
terruptprogramm ».HIGH.«, das selbstverständlich mit 
»Prometheus« editiert wurde. Geben Sie »HIGHSCORE« 
(Listing 3) mit dem Checksummer und ».HIGH.« (Listing 4) 
mit dem MSE ein. 



l'ROMI IIIHJ8 U 1.0 
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♦n* l rtl>i N 
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Bild 1. Das Menü von »Prometheus«, wenn gleichzeitig eine 
Interrupt-Routine aktiviert ist 

Für Assembler-Freaks haben wir den Sourcecode der 
Grundversion des editierbaren Rasterzeilen-Interruptpro- 
gramm in Listing 5 abgedruckt. Der Sourcecode besitzt das 
Format des Assemblers »Input-Ass« des Magazins »Input 
64«. 

Auf der Programmservice-Diskette zu diesem Sonder¬ 
heft finden Sie alle vorgestellten Programme und zwei hier 
nicht vorgestellte Demos. 

Verwirklichen Sie mit diesem wirkungsvollen Programm 
die originellsten und farbigsten Bildschirmhintergründe. 

Während eines Floppyzugriffs wird der Interrupt und da¬ 
mit auch die Farbstreifen abgeschaltet. Nach dem Laden 





Bild 2. Das Programm »Hlghscore« erzeugte diesen Bild¬ 
schirm mittels des Programmpaketes »Prometheus« und 
eigener Zeichensatzdefinition 



Bild 3. Nach einem Floppyzugriff ist »Prometheus« 
wieder da 


— beispielsweise des Directory — ist der Effekt wieder da 
(Bild 3). 

Viel Spaß beim Experimentieren! 

(Stefan Landfried/Thomas Lipp/rs) 


5 POKE 53248+33,0:POKE 53248+32,0:PRINT"<W 


205 

PRINT 

<051 > 

HITE,RVSON,CLR>" 

<048> 

210 

FOR 1=49361+<8*FC>TO I+7:PRINT PEEK(I) 


10 IF FL=1 THEN FL=2;LOAD N*,8,l 

< 107> 


;:NEXT I 

< 112> 

12 IF FL=2 THEN SYS 49152 

<241 > 

215 

PRINT:PRINT 

< 167> 

20 PRINT" (HOME,DOWN, 11 SPACE>PRDMETHEUS(3SP 


220 

FOR 1=49361+(B*FC>TO 1+7:PRINT I-<4936 


ACEJV 1.0(11SPACE>" 

<24B> 


1 + (B*FC PEEK(I>;"(3SPACE >= >";:IN 


25 PR I NT " (2D0WN, 18SPACE JMENIJ : ( 18SPACE > " 

< 169> 


PUT A 

< 183> 

30 PRINT" (4SPACE>ZU(5SPACE}ANZAHL EINSTEL 


223 

PRINT 

<069> 

LEN {12SPACE > 11 

<110> 

225 

POKE I,A;NEXT 

<066> 

35 PRINT" (4SPACE>Z2Ä(5SPACE.'FARBEN EINSTEL 


230 

INPUT"(9SPACEJ0K"; A# 

<024> 

LEN(12SPACE >" 

<005> 

235 

IF A*=”J"THEN 5 

< 173 > 

40 PRINT"(4SPACE(5SPACE>F ARBEN(3SPACE> 


240 

GOTO 200 

< 176> 

ORDNEN(14SPACE}" 

<072> 

300 

INPUT " (CLR,WHITE,DOWN,4RIGHTIWELCHEN 


45 PRINT"(4SPACE)Ä4i(11SPACE>SAVEN(1BSPACE 



STREIFEN";S 

<223> 

>" 

<204> 

310 

INPUT “(DOWN,4RIGHTWELCHEN FARBCODE"; 


50 PR I NT " (4SPACE >25ü 11 SPACE JLADEN (17SPACE 



FC 

< 157> 

>" 

<074> 

320 

F1=49361 + < 8*FC > 

< 114 > 

55 PRINT"(4SPACEJZ6ÄC12SPACE >END" 

<215> 

330 

A1 = INT(Fl 7256):A2=F1-(256*Al > 

< 104 > 

60 BET A$:A=VAL(A$) 

<203> 

340 

S1=49335+<2*S> 

< 108 > 

70 ON A BOTO 100,200,300,400,500,600 

<207> 

350 

POKE S1,A2:POKE Sl+l.Al 

< 068 > 

80 GOTO 60 

<042> 

360 

INPUT"(DOWN,9SPACE}0K" ; A$ 

<1B7> 

100 INPUT " (CLR,WHITE,DOWN,9RIGHT >WIEVIELE 


370 

IF A*="J"THEN 5 

<054> 

STREIFEN";AN 

< 036 > 

3B0 

GOTO 300 

<070> 

105 POKE 49308,AN 

< 112> 




110 INPUT"C3DQWN,17RIGHT >DK(2SPACE > ": A* 

< 112> 




120 IF A*="J"THEN 5 

130 nnTG 100 

<05O> 

<058^ 

Listing 1. »Prometheus« verzaubert Ihren 


200 INPUT" (CLR,WHITE,DOWN,2SPACEIWELCHEN F 


Bildschirmhintergrund in ein farbenfrohes Spektrum. 

ARBCODE "; FCs 

<083> 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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400 INPLIT " tCLR, DOWN, 4RI BHTJF ILENAME: "; N* <151> 
405 SYS(57812)N$,8 <216> 
410 PDKE 193,00:POKE 194,192:POKE 174,BS:P 

OKE 175,193:SYS 62957 <165> 
420 BOTO 5 <117> 


500 INPUT"{CLR,DOWN,4RIBHTJFILENAME: 11 ;N$ <251> 

510 FL=1:BOTO 10 <175> 

600 END <094> 

Listing 1 »Prometheus« (Schluß) 


Name 

Demo 

1 




cOOO cl58 

c078 

b5 

cO 

bd 

b7 

cO 

8d 

49 

cO 

13 

clOO 

00 

00 

00 

00 

00 

00 

00 

00 

01 











c080 

8d 

56 

cO 

e8 

bd 

b7 

cO 

8d 

3d 

cl08 

00 

Oa 

04 

02 

Oe 

04 

02 

Oa 

6c 

cOOO 

78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c088 

57 

cO 

8d 

4a 

cO 

ea 

ea 

ea 

dl 

cllO 

04 

08 

09 

Oa 

07 

07 

Oa 

09 

7f 

c008 

8d 

Od 

de 

a9 

32 

8d 

12 

dO 

02 

c090 

aO 

4c 

88 

dO 

fd 

ee 

b6 

cO 

46 

cll8 

08 

06 

Oe 

03 

07 

07 

03 

Oe 

d8 

cOlO 

ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c098 

ad 

b6 

cO 

c9 

Od 

fO 

03 

4c 

07 

cl20 

06 

04 

02 

Oa 

Oa 

01 

Oa 

02 

bf 

c018 

a9 

81 

8d 

la 

dO 

a9 

3f 

8d 

9b 

cOaO 

48 

cO 

20 

2c 

cO 

a9 

32 

8d 

13 

cl28 

04 

05 

05 

Od 

Od 

01 

07 

Od 

al 

c020 

14 

03 

a9 

eO 

8d 

15 

03 

20 

06 

e0a8 

12 

dO 

aO 

00 

8c 

b5 

cO 

8c 

dd 

cl30 

05 

06 

06 

Oe 

Oe 

01 

Oe 

Oe 

b9 

c028 

2o 

cO 

58 

60 

ad 

b7 

cO 

8d 

8d 

eObO 

b6 

cO 

4c 

31 

ea 

00 

00 

dl 

52 

cl38 

06 

70 

fa 

40 

30 

f4 

2a 

00 

90 

c030 

49 

cO 

8d 

56 

cO 

ad 

b8 

eO 

e5 

e0b8 

eO 

d9 

cO 

el 

cO 

e9 

cO 

d9 

e3 

cl40 

Oa 

00 

4a 

50 

2a 

f5 

le 

f5 

9e 

c038 

8d 

4a 

cO 

8d 

57 

cO 

60 

ad 

24 

cOeO 

cO 

29 

el 

19 

cl 

09 

cl 

11 

36 

cl48 

Oa 

06 

06 

06 

06 

06 

06 

06 

4c 

c040 

19 

dO 

8d 

19 

dO 

ad 

12 

dO 

ac 

c0c8 

cl 

19 

cl 

21 

cl 

29 

cl 

31 

79 

cl50 

06 

70 

7a 

f4 

2a 

70 

6b 

f5 

8b 

c048 

ad 

dl 

cO 

8d 

21 

dO 

ea 

ea 

da 

eOdO 

ol 

09 

08 

07 

08 

09 

07 

09 

fO 











o050 

ea 

ea 

ea 

a2 

01 

bd 

dl 

cO 

85 

c0d8 

08 

04 

02 

Oa 

07 

Od 

05 

Oe 

ad 











c058 

8d 

21 

dO 

aO 

08 

ea 

ea 

ea 

17 

cOeO 

06 

05 

Od 

07 

01 

Oe 

06 

04 

2e 

Listing 2. 

»Demo 1« 

ist 

ein 




0 O 6 O 

ea 

88 

dO 

fd 

e8 

eO 

08 

dO 

d9 

e0e8 

02 

06 

Oe 

07 

01 

Od 

05 

Oa 

f3 

editierbares Rasterzeilen- 




c068 

ec 

a9 

00 

8d 

21 

dO 

8d 

20 

ea 

cOfO 

02 

00 

00 

00 

00 

00 

00 

00 

f3 

Interruptprogramm 

Bitte 

mit 

dem 

c070 

dO 

ee 

b5 

cO 

ee 

b5 

cO 

ae 

3a 

c0f8 

00 

00 

00 

00 

00 

00 

00 

00 

f9 

MSE (Seite 159) eingeben 





10 

IF A=0 THEN A=1:LOAD".HIBH.",B,1 

<061 > 

125 

FOR D=0 TO 32 STEP 4 

<237> 

20 

V=5324B:P0KE V+33,0:POKE 9+32,0:REM DIL 


130 

PRINT TAB(2+D)"{HOME,5D0WN>" 

< 190 > 


DSCHIRM UND RAHMEN AUF SCHWARZ 

< 012 > 

140 

FOR 1=0 TO 12:PRINT TAB(2+D):NEXT 

< 055 > 

30 

PDKE 9+34,11:POKE 9+35,15:REM MULITCOLO 


160 

PRINT"{HOME,7DDWN>"TAB(4+D)"ATDOWNJ" 

< 170> 


RFARBEN SETZEN <225> 

170 

FOR 1=0 TO 6 :PRINT TAB(4+D)"A":NEXT 

<025> 

s 

POKE 646,9:PRINT"{CLR>";REM MULITCOLORS 

1BC •'RINT TAB(4+D) " {DOWN1A" 

<206> 


CHRIFTFARBE WEISS 

< 14B> 

190 

NEXT D 

<234> 

50 

FOR 1=8192+32*8 TO I+7:P0KE I,0:NEXT:RE 


200 

PRINT TAB(38)"{H0ME,5D0WN}" 

< 156> 


M SPACE LOESCHEN 

<215> 

210 

FOR 1=0 TO 12:PRINT TAB(38)"@":NEXT 

<082> 

60 

FOR 1=8192 TO I+7:POKE I,109:NEXT:REM B 


220 

FOR 1=1024 TO 1+999 STEP 40:POKE 646,0 



ROSSE ROEHRE ALS KLAMMERAFFE 

< 195> 


:POKE I,2:POKE 55296+1-1024,0: NEXT 

< 134> 

70 

FOR 1=8192+8 TO I+7.-P0KE 1,100:NEXT:REM 


225 

REM 9ERKUERZT DIE LIEBENDEN ROEHREN (N 



KLEINE ROHRE ALS A 

<255> 


UR WEIL ES SCHOENER AUSSIEHT) 

<254> 

75 

FOR 1=8192+16 TO I+7:P0KE I,255:NEXT:RE 


230 

POKE 198,0:WAIT 198,1 

< 202 > 


M B WIRD ABDECKZEICHEN 

<248> 

240 

POKE 646,7 

< 174> 

80 

POKE 53248+22,24:POKE 53248+24,24:REM M 


250 

POKE 53248+24,28 

< 012 > 


ULTICOLOR UND ZEICHENSATZ AB 8192 EIN 

< 120 > 

260 

END 

<008> 

90 

SYS 49152: REM SENKRECHTE RDEHREN AKT19 






IEREN 

< 1 B 8 > 




rren 

110 REM PRINTEN 

< 162> 
<026> 

Listing 3. »Highscore« erzeugte das Bild 4. 


120 REM 

< 1 B 2 > 

Bitte mit dem Checksummer (Seite 159) eingeben. 



Name 

: .high 





cOOO cl58 

cOOO 

: 78 

ad 

Od 

de 

29 

7f 

09 

01 

e2 

c008 

: 8d 

Od 

de 

a9 

32 

8d 

12 

dO 

02 

cOlO 

: ad 

11 

dO 

29 

7f 

8d 

11 

dO 

e9 

c018 : 

: a9 

81 

8d 

la 

dO 

a9 

3f 

8d 

9b 

c020 : 

: 14 

03 

a9 

cO 

8d 

15 

03 

20 

06 

c028 : 

: 2c 

cO 

58 

60 

ad 

b7 

cO 

8d 

8d 

c030 : 

: 49 

cO 

8d 

56 

cO 

ad 

b8 

cO 

e5 

c038 : 

: 8d 

4a 

cO 

8d 

57 

cO 

60 

ad 

24 

c040 : 

: 19 

dO 

8d 

19 

dO 

ad 

12 

dO 

ac 

c048 : 

ad 

e9 

cO 

8d 

21 

dO 

ea 

ea 

e6 

c050 : 

ea 

ea 

ea 

a2 

01 

bd 

e9 

cO 

e5 

c058 : 

8d 

21 

dO 

aO 

08 

ea 

ea 

ea 

17 

c060 : 

ea 

88 

dO 

fd 

e8 

eO 

08 

dO 

d9 

c068 : 

ec 

a9 

00 

8d 

21 

dO 

8d 

20 

ea 

c070 : 

dO 

ee 

b5 

cO 

ee 

b5 

cO 

ae 

3a 


c078 

: b5 

CO 

bd 

b7 

cO 

8d 

49 

cO 

13 

c080 

: 8d 

56 

cO 

e8 

bd 

b7 

cO 

8d 

3d 

c088 

: 57 

cO 

8d 

4a 

cO 

ea 

ea 

ea 

dl 

c090 

: aO 

4c 

88 

dO 

fd 

ee 

b6 

cO 

46 

c098 

: ad 

b6 

cO 

c9 

Od 

fO 

03 

4c 

07 

cOaO : 

: 48 

cO 

20 

2c 

cO 

a9 

32 

8d 

13 

c0a8 : 

: 12 

dO 

aO 

00 

8c 

b5 

cO 

8c 

dd 

cObO : 

: b6 

cO 

4c 

31 

ea 

00 

00 

e9 

82 

c0b8 : 

: cO 

e9 

cO 

e9 

cO 

e9 

cO 

dl 

de 

cOcO : 

: cO 

d9 

cO 

el 

cO 

d9 

cO 

dl 

5b 

c0c8 : 

: cO 

fl 

cO 

e9 

cO 

39 

cl 

31 

2d 

cOdO : 

: cl 

Ob 

Oc 

Of 

Of 

01 

Of 

Oc 

49 

c0d8 : 

: Ob 

00 

Ob 

Oc 

Of 

01 

Oc 

Ob 

67 

cOeO : 

: 00 

00 

00 

Ob 

Oc 

01 

Ob 

00 

37 

c0e8 : 

00 

00 

00 

00 

00 

00 

00 

00 

e9 

cOfO : 

00 

00 

00 

00 

00 

00 

00 

00 

fl 

c0f8 : 

00 

00 

00 

00 

00 

00 

00 

00 

f9 


clOO 

00 

00 

00 

00 

00 

00 

00 

00 

01 

cl08 

00 

00 

00 

00 

00 

00 

00 

00 

09 

cllO 

00 

00 

00 

00 

00 

00 

00 

00 

11 

cll8 

00 

00 

00 

00 

00 

00 

00 

00 

19 

cl20 

00 

00 

00 

00 

00 

00 

00 

00 

21 

cl28 

00 

00 

00 

00 

00 

00 

00 

00 

29 

cl30 

00 

00 

00 

00 

00 

00 

00 

00 

31 

cl38 

00 

00 

00 

00 

00 

00 

00 

00 

39 

cl40 

00 

00 

4a 

50 

2a 

f5 

le 

f5 

94 

cl48 

Oa 

f5 

4a 

f5 

7f 

f5 

2a 

fl 

d2 

cl50 

Oe 

70 

7a 

f4 

2a 

70 

6b 

f5 

93 


Listlng 4. ».HIGH.« ist das Interrupt- 
Programm für »HIGHSCORE«. Bitte 
mit dem MSE (Seite 159) eingeben. 
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64'er Extra: Grafik Vol. 1 

Gign-CAD Unschlagbare 3-D-Konslruktion aul 
dom C04 Hl-Eddi Das SuperZoichan- und 
•Malp'ogramm Tille Wizard Gign-CAD-Filmo 
lur eigene Vorspnnno Pic-Londoi Vorwondcm 
Sin Hi Eridi-Grnlikon lui eigene Programm» 
Hi-Mnus Maus Troiber lui Hi-Eddi Hl-Spiugol 
Spiogoln Sio holiobioo Ausschnillo oinrrr GrafiK 
Fllmconvortsr Gigu-CAD Filme können mil die- 
sein Programm ln das Hi-Eddi-Forimil hinge- 
wandall worden Druckoranpassungen tut Hi- 
Edrb Prinlnr/Plotlar VC 1520. MPS-BO1/BO2/0O3. 
Solkosha GP 70ÖVC. Star NL-IO. C lloti-8510. 
Clloh Rlteman C* 

Bestell-Nr. 38701 
DM 49,90* isFr 44.907öS 499,-*) 
64'er Extra: Grafik Vol. 2 
Bestell-Nr. 38702 
DM 39,90* (sFr 34,907öS 399,-•) 
64'er Extra: Grafik Vol. 3 
Bestell-Nr. 38703 
DM 39,90* (»Fr 34;00'A)S 399.-') 


Adventure-Pack Vol. 1 

Robox: Fesselndes Qralik-SoloncoFiollon- 
Advonlure Der Horrschor eines Iremden Plane- 
len Imll sein Gehirn nach seinem Tod künstlich 
weilerleban in einem Körper ohne Seele Ihre 
Aulgabe isl os, zu Robo« zu gelangen und ihn 
unschädlich zu machen, um die Erde vor dem 
sicheren Tod zu bewahren Wie Sio es tun, bloibl 
Ihnen überlassen Mil dom nnigeliolerlon Fall- 
Edilnr konstruieren Sie weitere Verbrochen und 
geben damit ihren Freunden linde Nii3so zu 
knackon Scotland Yard: Spannendes Kriminal 
Advonluie Begeben Sie sich aul spannende 
Verbreclierjagd in das London dos 19. Jahrhun¬ 
derts und lassen Sie sich bei Scotland Yaid 

engagieren 

Mil dem tnilgelielerlon Fall-Editor konstruieren 
Sie weitere Verbrechen und geben damit Ihron 
Freunden hurte Nüsse zu knocken 
Bestell-Nr. 38704 
DM 29,90* (sFr 24.90V0S ?99.-') 


64'er Extra: Disk-Utillties Vol.2 

Dtsk-Mon 04 Prolossioneller Floppy- und Dis 
kollenmomlor Masler-Copy Bnckup-Kopioipio- 
graniin Dual-Filecopy Filo Kopiorprogrammlür 
zwei Laulworke, huck Copy Einluches Kopieren 
und Formatieren von rnnzolnon Tracks Tornado- 
Copy 1571 Schnelles Backup-Programm lur 
einseitig bespielte Diskellen I lypr.i- Load/Save 
Sollwnio-Speoder lür CG4 Hypra Purloki Hypra- 
LOAD/SAVE. eingebunden Ins Belriebssyslem 
EXOX V3. Loislungslfthlgns Belriebssyslem lur 
CB-i ProDisk Komloilable Dlskotlonverwallung 
in Assembler EX DIR & BAM Ausluhrlichos 
Directory Hypra Formal 1541 Formatieren einer 
Diskette ln nui HSokiinrlrm Dlsk-Senichei 
Findel sehr schnell beliebige Zeichenkellen mit 
Diskette Filo-Manager Bolehlserwinteiung zur 
Voiwaltung von Disketten 
Bestell-Nr. 38707 
DM 49,-* (»Fr44.-768 490,-•( 

64'er Extra: Disk-Utillties Vol. 1 
Bestell-Nr. 38706 
DM 49,-* |sFr 44.-76S 490,-') 


64'er Extra: 

Programmler-Utilities Vol. 1 

Digso S«immlung loisliingsfnhigof Onstc-Oofohlo 
urwoilerungon ormöglichl os Ihnen, mll gönn- 
gom Aufwand hochwertige Programme .'u 
schrorbon Hypra-Bualc: Mil dieser modular 
aufgebnufon Uolohlserwoilorung wird es Ihnen 
möglich |e nach Anwondungsqebiot Bofohlo 
und Funktionen «■uß.immenstollon Spoclnl- 
Basic: Über ?()() neue Bnsic-Bolehle. die unter 
anderem die Boreicho Programmedilor. struktu 
rierto Programmierung. komfortablor Zmchon- 
sat/. Sound sowie Ein /Ausgabe- und Diakonen- 
Zugriffe umfassen, liolfon Ihnen in fast allen 
Situationen '10110011 und offokllv /u program¬ 
mieren 

Bestell-Nr. 38716 

DM 39,-* (sFr 35.-76S 390 - ’) 
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PAINT R.OJ.A.L. A 


Doi komterlobls 


1 Nf.8 

C16*C116* 

MosterBASE 

Plus/4| 

Plus/4: 



Dassemi- 

prafcsslenclle 


1 


64’er Extra: 

C16 - C116 - Plus/4 MasterBase 

Das Programm MasiorBasn blolol unlor ando 
rem folgende Möglichkonon BonulzBifUhrung 
duich Pull-down Modus und Windows rnns- 
kiorlo SuchmflflllChkelten. indoxaequenlrellni 
Zugriff. Rsorgonisohon von zorslörlon Dalon- 
bssländon, komlnrlsblor Editor, u n zur Erslol- 
lung von Dulei-Maskon. Feldnlinbulcm etc . 
opiim.iti* Oruokornnpnssung. leldspszlllscho 
ESC-Sequonzon Parnmotordalslsn für sonst. 
Inn und parallelen Druckorholrlol'. vorgolortiglo 
und erwoilarbaro Code labeilon, laslalut 
Makros. Oalonlni- und -Export Code- 
Wandlung von externen Dolmen, Erstellung von 
Sonenbrielon odor Rundschreiben 
Bestell-Nr. 38719 
DM 49,-* (9Fr4-1.-VÖS490.- , | 


64'er Extra: Abenteuer-Spiele 

Sein letzter Trick. Chicago zur Zoll dor Pro 
hibitlon Bonn Kartenspielen gewinnen Sio omo 
kleino Brennerei Kurz voi der Ausführungeinos 
grölten Auftrags fliegt Ihre Brennerei auf Bin 
mneni Bef) nusdor Millo Chicagos Don Spazza 
Iura oislohen Sie -Ersalzmatorlal Leider 
werden Sie von Spazznlura betrogen er hat 
Ihnen nur Wasser verkauft! Jolzl schwören Sur 
sich nur einos rtacho lur Don Spn/xntur.i 

Wanderung. Irgendwann in lorner Zukunft Sie 
sind dor einzige Überlebende eines Raumschiff 
absluizes Ihre einzige Uborlobnrisclianco 
bestohl darin den nächsten Raumtiefen zu 
erreichen - aber Sie müssen sich beeilen, denn 

Ihr Sauoraiollvorrat isi begrenzt 
Bestell-Nr. 38715 
DM 39,-* (sFr 35.-7ÖS 390.-') 


128'er Extra: The Best o( 128 er 

Hier linden Sin ilm beston Programme für den 
C128. dio im G4'or Magazin und in don Sonder 
hellen vorölfenlllchl worden MASTERTEX1 
Professionelle Ibxlvorarbeilung COI.OR PACK I 
Super Grallkoiwoilerung (400-2.10 Punkto 
Aulldsung) roP f'LOP Leistungsfähiger Du. 
kollonrnomlor DOUBLE ASS Zwei Pall 
Assembler, Unterstützung dos Z80 WINDOW- 
TECH Betriebssystem-Erweiterung. Unlorslui 
zung von 10 Windows CENTRONICS 
SCHNITTSTELLE Unterstützung beliebiger 
CENIITONICS-Ürucker MICRO HARDCOPY 
Oeslochen scharfe Hardcopys lur Epson- 
Drucker und Kompatible VECTORS Super 
Spiel nn 80 Zeichen Modus. UNIBOOT Beol- 
sektor manipulieren 
Bestell-Nr. 38712 
DM 49,-* (»Fr 44,-'/öS 490.-') 


128'er Extra: Paint R.O.I.A.L. 

Painl ROlAf ist eines der wenigen Mal 
Programme die die höchslo Auflösung Ihres 
CI28 verwenden Wahlweise können sogar alle 
Iß Farben verwendet werden Loislungsmerk 
male Aullösung 040-200 Punkto (schwarz- 
weiß) 640.178 Punkto (Farhei. vleliallige 
Blockopernllonen Kopioron. Loschon, loden 
Speichern Spiogoln. Rotieren, heliebiges Vor 
größern und Verkleinern, wahlweise Ausführung 
aller Zeichontunklionen mit Pinsel oder Sprüh' 
dose dolmiori'n von Qrntiklenstem. lerslungs- 
fähige Pinsellunklion mit her definierbaren 
Pmsellormen. Spruhdosonfunklion. kombinier 
bar mit den zwoll Pinselformen und Muslein 
Radiergummi, UnDo-Funktion. Übernahme von 
C64-Bildem Lorten aus dom Directory 

Bestell-Nr. 38736 
DM 49,-* (sFr 44 --/öS 490,-') 


Markt&Technik-Produkle 
erhallen Sie In den Fachableilungen 
der Warenhäuser, Im Versandhandel, 
in Computer-Fachgeschäflen oder 
bei Ihrem Buchhändler 



Fragen Sie Ihren Fachhändler 
nach unserem kostenlosen Gesamtverzeichnis 
mit Ober 500 aktuellen Computerbüchern 
und Software. Oder fordern Sie es direkt 
beim Verlag anl 


'Unverbindliche Proisemplehlung 

















TOOLS: GRAFIK 


C64 


iXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

;xxx Sourcecode zu Prometheus xxx 
ixxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


org $c000 


ixxx Programm xxx 



sei 

lda 

$dc0d 


and 

#*01111111 


ora 

#*00000001 


sta 

$dc0d 


lda 

#50 


sta 

$d012 


lda 

53248+17 


and 

#$7f 


sta 

53248+17 


lda 

#*10000001 


sta 

53248+26 


lda 

# < irq 


sta 

$0314 


lda 

# >irq 


sta 

$0315 


Jsr 

initnew 

:initnew 

cli 

rts 

lda 

wähl 


sta 

loopl+1 


sta 

loop 2 +l 


lda 

wahl+1 


sta 

loopl+2 


sta 

loop2+2 

: irq 

rts 

lda 

53248+25 


sta 

53248+25 

:loopl 

lda 

farbl 


sta 

53281 


nop 

nop 

nop 

nop 

nop 

ldx 

#1 

:loop2 

lda 

farbl,x 


sta 

53281 


ldy 

#8 

:1p 

nop 

nop 

nop 

nop 

dey 



bne 

1P 


inx 

cpx 

#8 


bne 

loop2 


lda 

#0 


sta 

53281 


inc 

zahler 


inc 

Zahler 


ldx 

zahler 


lda 

wahl,x 


sta 

loopl+1 


sta 

loop2+l 


inx 



; Assemblierung ab $c000 


; IRQ sperren 
i normalen IRQ 
; ausschalten 
; - 
j - 

j Raster-IRQ auf 
j #50 (Bildschirmbeginn) 
High-Byte des Raster-IRQ 
ausschalten 

IRQ freigeben 

IRQ-Zeiger auf eigene 
Routine verbiegen 


initialisiert die 
Färbzelger 
IRQ - freigeben 
zurück 

modifiziert das eigentliche 
IRQ-Programm so, daß es auf 
die ersten Farbcodes 
zugreift 




Bits freigeben 

lädt erste Farbe 
und schreibt sie 
wartet bis der 
Rasterstrahl 
am anderen 
Ende des Bild¬ 
schirms angekommen ist 
X-Reg. als Farbpointer 
lädt die nächsten Farben 
und wartet 
wieder 
bis der 
Rasterstrahl 
am anderen Ende 
des Bildschirms 
angekommen ist 


sohon 7 mal durchlaufen? 
j falls nicht, alles nochmal 
Bildschlrmfabe auf schwarz 

den Low- und High- 
Byte Zähler 

; erhöhen (zeigt auf nächsten 
Farbcode) 

i das neue Low-Byte des 
; nächsten Farbcodes 
modifizieren 

mit dem Zähler als Pointer 

Zähler zeigt auf das 
High-Byte 


:outl 


:ende 


:wahl 


lda wahl,x 

; High-Byte des neuen 


Farbaodes 


; modifizieren 

sta loop2+2 

i “ 

sta loopl+2 

i - 

nop 

; genau 8 

nop 

j Rasterzeilen 

nop 

,• warten 

ldy #76 

, - 

dey 

» “ 

bne outl 

i - 

inc wieviel 

; den Zähler für die 


Anzahl der 

lda wieviel 

j Streifen erhöhen und 


Maximalwert 

cmp #9 

j überprüfen 

beq ende 

i falls alle, dann nach Ende 

jmp loopl 

; falls nicht, alles nochmal 

Jsr Initnew 

; schon im voraus die 


Zeiger wieder 


; initialisieren 

ldy #0 

; die Pointer 

sty zahler 

; wieder auf 

sty wieviel 

j Normalwert setzen 

Jmp $ea31 

j ab zur normalen IRQ- 


Schleife 

b < farb3 

; hier steht die Reihenfolge 

b > farb3 

; der verschiedenen 


Farbcodes 

b < farb3 

; diese Low- und Hlgh- 


Bytes werden 

b > farb3 

; von Prometheus modifiziert 


b <farb3 
b > f arb3 
b < farbl 

- - =b -> farbl 

' farb4 

b >farb4 

b < farb5 
b > farb5 
b <farb5 
b > färb5 
b <farb4 
b > farb4 
b <farbl 
b >farbl 


; das Originalprogramm hat 
natürlich 

; nicht nur 9 Low- und High- 
Byte Zeiger 
; sondern alle 13 


:Zahler b 0 
:wieviel b 0 
:farbl b 11,12,15,15 
b 12, 1,12,11 
:farb2 b 9,8,7,7,7,1,8,9 
:färb3 b 0 , 0 , 0 , 0 , 0 , 0 , 0,0 

:farb4 b 0,11,12,15,12,1,11,0 
:färb5 b 0,0,11,12,15,11,0,0 


j die beiden Pointer 


die verschiedenen Farbwerte 


Listing 5. Der Sourcecode der Grundversion des 
editierbaren Rasterzeilen-Interruptprogramms im 
»Input-Ass-Format« 
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TOOLS: GRAFIK 


Stilvolles Umblenden von 

Zeichensätzen 


Das Programm »MODERN ERASE« ermöglicht 
das stimmungsvolle Ein- und Ausblenden von Zeichensätzen — ein Effekt, 
der bei der Programmierung von Spielen sehr hübsch wirkt. 


M it seinen theoretisch mehr als 40000 Methoden, 
den Bildschirm zu löschen und ihn wieder aufzu¬ 
bauen, bietet »MODERN ERASE« dem Benutzer 
ein reichhaltiges Repertoire an Aus- und Einblendungs¬ 
möglichkeiten für seine Textseiten. So gelingt es dem Pro¬ 
grammierer leicht, effektvolle Übergänge zu programmie¬ 
ren. Dabei wurde versucht, die Bedienung dieses Pro¬ 
gramms so einfach und sicher wie möglich zu gestalten. So 
werden die wesentlichen Daten mit dem SYS-Befehl über¬ 
geben. Dabei wird von dem Programm kein einziges Byte 
des Basic-Speichers verbraucht. 

Das Programm (Listing 1) arbeitet mit der Möglichkeit, 
den Zeichensatz des Computers zu verändern. Wird nun 
der Befehl zum Löschen des Bildschirms gegeben (SYS 
49152), so wird der 
Bildschirm erst ein¬ 
mal in den Bereich 
$C400 bis $C800 ko¬ 
piert. Dieses ist not¬ 
wendig, damit der 
Zeichensatz im Be¬ 
reich 3 (das heißt 
$C000 bis $FFFF) 
bleiben kann und 
nicht nach $3000 ko¬ 
piert werden muß, 
was den Basic-Spei- 
cher erheblich ein¬ 
schränken würde. 

Um nun den Zei¬ 
chensatz verändern 
zu können, muß die¬ 
ser nach $E000 ko¬ 
piert werden. Da¬ 
nach kann man den 
Bildschirm nach $C400 umschalten. Der Computer greift 
nun auf den kopierten Zeichensatz bei $E000 zurück. 

Über 40000 Kombinationen 


Jetzt wird die eigentliche Routine des Programms aufgeru¬ 
fen, die nun Bit für Bit des Zeichensatzes löscht. Dazu muß 
der ganze Zeichensatz (von $E000 bis $F000) achtmal mit 
verschiedenen Bytes verknüpft werden, bis der Zeichen¬ 
satz vollständig gelöscht ist. Dadurch, daß jedes Bit geson¬ 
dert gelöscht wird, erreicht man ein langsames, optisch in¬ 
teressantes Ausblenden der Buchstaben. Wenn die Routi¬ 
ne schließlich ihre Arbeit beendet hat, wird der Bildschirm 
noch gelöscht, denn vorher war ja nur der Zeichensatz ge¬ 
ändert worden, die Zeichen standen aber quasi noch auf 
dem Bildschirm. 


Zu diesem Zeitpunkt sollten sie nicht < RUN/STOP 
RESTORE > drücken, da der Bildschirm sich noch im Be¬ 
reich $C400 befindet und durch einen NMI-Reset nicht zu¬ 
rückgesetzt wird. Sollte es dennoch geschehen, so geben 
Sie bitte blind (auf dem Bildschirm erscheinen keine Buch¬ 
staben) 

SYS 49152 

Einfache Bedienung 


ein. Dieses ist auch der Befehl, um die Zeichen wieder lang¬ 
sam einzublenden. Sie wundern sich sicher, daß beide Be¬ 
fehle, sowohl der zum Löschen als der auch zum Anzeigen, 

identisch sind. Die¬ 
ses soll den Bedie¬ 
nungskomfort erhö¬ 
hen, denn so brau¬ 
chen Sie sich nur ei¬ 
nen Befehl zu mer¬ 
ken. Das Programm 
»erinnert« sich, wel¬ 
che Funktion der 
vorangegangene 
Befehl hatte. Wenn 
vorher der Bild¬ 
schirm gelöscht 
wurde, so wird beim 
zweiten Aufruf der 
Bildschirm wieder 
erscheinen und um¬ 
gekehrt. 

Beim Einblenden 
der Zeichen wird 
nun wieder der Zei¬ 
chensatz bei $E000 Bit für Bit aufgebaut, bis er wieder dem 
Original gleicht. Dann wird der Bildschirm nach $0400 ko¬ 
piert und auf diesen Bildschirm umgeschaltet. 

Natürlich können Sie den Bildschirm auch bearbeiten, 
wenn die Zeichen gelöscht sind. So können Sie verdeckt 
ein Bild aufbauen und dieses langsam erscheinen lassen, 
einen Moment warten, es dann wieder verschwinden las¬ 
sen, und ein neues Bild aufbauen ... 

Eindrucksvolles Demoprogramm 


Dieses wird in dem Demoprogramm (Listing 2) auf recht 
eindrucksvolle Weise gezeigt. Auch die Anwendungsge¬ 
biete werden in dem Programm deutlich. Überall wo stim¬ 
mungsvolle Ein- und Ausblendungen von Textbildschirmen 
gewünscht weiden, beispielsweise in Adventure- oder 


/■U.l.Ut.l.l.UU 
■•Cl.l.l.l.l.k.l.k. 


ViVi 
- - -N 

i>* + v t 

* * 

. ... C - * 

* t ♦ H.I 


Y.SMYV/tYVN 'N YV<% 

.W ' M'.S .\'Y\ S'* 

y >>.N S^.'N.'.N Y.V.Y. 4 . - 

W. 'S' 

VikV.lW. Ki'.SYlV»* ‘»'•v V»" 


Bild 1. Eine spannende Adventure-Szene: Solche Interessanten Effekte beim 
Einblenden können auch Sie programmieren 
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Fantasy-Spielen, kann dieses Programm eingesetzt wer¬ 
den. Aber auch um die Anleitung eines beliebigen Spieles 
anzuzeigen, ist dieses Programm sehr nützlich. 

Wie Sie auch im Demo-Programm sehen, kann man die 
Reihenfolge, mit der die Zeichensatzbits gelöscht werden, 
verändern. Dazu muß man einfach die Reihenfolge der Ver¬ 
knüpfungsbytes angeben. Diese Reihenfolge hängt man 
an den SYS-Befehl an: 

SYS 49152, xO, xl, x2, x3, x4, x5, x6, x7 

Bei diesem erweiterten Befehl stellen die Platzhalter xO 
bis x7 Zahlen von 0 bis 7 dar. Dabei muß jede Zahl genau 
einmal Vorkommen (wenn nicht, werden die Zeichen nicht 
vollständig gelöscht, was auch einen interessanten Effekt 
ergeben kann, z.B. die Parameter 1,3,5,7,1,1,1,1). 

Um nun zu sehen, welche Reihenfolge was bewirkt, ist es 
am besten, einfach einmal einige auszuprobieren. 

0,1,2,3,4,5,6,7: Eine Diagonale nach der anderen wird ge¬ 
löscht. 

3,4,2,5,1,6,0,7: Keilförmiges Löschen 


Am besten sehen Sie das Verhalten der Routine an ausge¬ 
füllten Flächen. So erkennen Sie sicher, daß jeder Raum 
des Demo-Adventures mit einem anderen Löschmodus ge¬ 
löscht wird. Besonders deutlich können Sie das an der Tru¬ 
he in Bild 1 erkennen. 

Irickreiche Programmierung 


Das Programm Modern Erase wurde mit dem Assembler 
Giga-Ass (64’er-Sonderheft 21) geschrieben. Dabei wurde 
von der Möglichkeit des Programmierens von Makros und 
von selbstmodifizierendem Code ausgiebig Gebrauch ge¬ 
macht. Dadurch wurde erreicht, daß die eigentliche Routi¬ 
ne von Modern Erase sowohl für das Ein- als auch für das 
Ausblenden verwendet werden kann. Den dokumentierten 
Quellcode von Modern Erase finden Interessierte auf der 
Programmservice-Diskette zu diesem Sonderheft. 

(Dirk Neumeister/sk) 


Name 

modern erase 


cOOO cl7e 

c080 

dO 

a9 

4c 

8d 

lc 

cO 

60 

78 

24 

cllO 

: a2 

08 

86 

fc 

20 

20 

cl 

20 

42 











c088 

a5 

01 

48 

a9 

31 

85 

01 

a9 

8c 

cll8 

: 44 

e5 

a9 

2a 

8d 

lc 

cO 

60 

7c 

cOOO 

a9 

2c 

aO 

00 

dl 

7a 

dO 

14 

44 

c090 

00 

a2 

dO 

85 

02 

86 

03 

a9 

7a 

cl20 

: 78 

a5 

01 

48 

a9 

34 

85 

01 

09 

c008 

a2 

08 

86 

f7 

20 

fd 

ae 

20 

3c 

c098 

00 

a2 

eO 

85 

04 

86 

05 

a2 

aO 

cl28 

: bd 

75 

cl 

a8 

b9 

6d 

cl 

aO 

74 

cOlO 

9e 

b7 

8a 

a6 

f7 

9d 

75 

cl 

c7 

cOaO 

20 

aO 

00 

bl 

02 

91 

04 

c8 

95 

cl30 

: 00 

31 

fd 

11 

fa 

91 

fa 

ca 

28 

c018 

c6 

f7 

dO 

fO 

4c 

87 

cO 

a2 

75 

c0a8 

dO 

f9 

e6 

03 

e6 

05 

ca 

dO 

f2 

cl38 

: dO 

02 

a2 

08 

e6 

fa 

e6 

fd 

91 

c020 

6d 

aO 

cl 

8e 

2d 

cl 

8c 

2e 

8f 

cObO 

f2 

68 

85 

01 

58 

a2 

00 

aO 

34 

cl40 

: dO 

04 

e6 

fb 

e6 

fe 

a5 

fb 

40 

c028 

cl 

a2 

31 

8e 

25 

cl 

a2 

00 

43 

c0b8 

04 

86 

5f 

84 

60 

a2 

00 

aO 

c4 

cl48 

: c9 

fO 

dO 

de 

a9 

eO 

85 

fb 

09 

c030 

aO 

dO 

86 

fd 

84 

fe 

a2 

00 

64 

cOcO 

08 

86 

5a 

84 

5b 

a2 

00 

aO 

3f 

cl50 

: a9 

dO 

85 

fe 

ca 

dO 

02 

a2 

23 

c038 

aO 

eO 

86 

fa 

84 

fb 

a2 

11 

le 

c0c8 

c8 

86 

58 

84 

59 

20 

bf 

a3 

57 

cl58 

: 08 

a4 

fc 

88 

84 

fc 

dO 

c8 

07 

c040 

8e 

33 

cl 

a2 

a9 

8e 

50 

cl 

00 

cOdO 

ad 

00 

dd 

29 

fc 

8d 

00 

dd 

12 

cl60 

: 68 

85 

01 

58 

60 

7f 

bf 

df 

97 

c048 

a2 

08 

86 

fc 

20 

20 

cl 

a2 

7f 

c0d8 

a2 

c4 8e 88 02 ad 18 uO 

21 

cl68 

: ef 

f7 

fb 

fd 

fe 

80 

40 

20 

47 

c050 

00 

aO 

c4 

86 

5f 

84 

60 

a2 

83 

cOeO 

29 

f3 

09 

18 

8d 

18 

dO 

a9 

78 

cl70 

: 10 

08 

04 

02 

01 

00 

00 

07 

e4 

c058 

00 

aO 

c8 

86 

5a 

84 

5b 

a2 

28 

c0e8 

65 

a2 

cl 

8d 

2d 

cl 

8e 

2e 

38 

cl78 

: 01 

06 

02 

05 

03 

04 

00 

ff 

ee 

c060 

00 

aO 

08 

86 

58 

84 

59 

20 

d3 

cOfO 

cl 

a2 

34 

8e 

25 

cl 

a2 

00 

cc 











c068 

bf 

a3 

ad 

00 

dd 

09 

03 

8d 

bl 

c0f8 

aO 

eO 

86 

fa 

84 

fb 

a2 

00 

bc 

Listing 1. 

»MODERN ERASE« 



c070 

00 

dd 

a2 

04 

8e 

88 

02 

ad 

19 

clOO 

aO 

eO 

86 

fd 

84 

fe 

a2 

24 

85 

geben Sie 

bitte 

mit 

dem MSE 


c078 

18 

dO 

29 

f3 

09 

14 

8d 

18 

59 

cl08 

8e 

33 

cl 

a2 

24 

8e 

50 

cl 

70 

(Seite 159) ein 








0 IF PEEK(49153)+PEEK(49155)044 THEN LOAD 
"MODERN ERASE",8,1 
10 SYS 49152,0,1,2,3,4,5,6,7 
20 POKE 53281,8:POKE 532B0,8»PRINT"{BLACK} 
"CHR*<142> 



40 PRINT“{5SPACE,RVS0N}2{RVQFF,28SPACE,RVS 
0N>2<RVDFF> 

50 PRINT"{5SPACE,RVSON}2{RV0FF,6SPACEJDIRK 
C2BPACE >NEUMEISTER I6SPACE,RVSON1JKRVQFF 
> 

60 PRINT"{5SPACE,RVSON}2{RVOFF,BBPACE1PRAE 
SENTIERT CBSPACE,RVSON12{RVOFF> 

70 PRINT"C5SPACE,RVS0N>2<RV0FF,2BSPACE,RVS 
0NJ2TRV0FF} 

80 PRINT"{5SPACE,RVS0N>2<RV0FF,SPACE,RVSON 
,SPACE>M ODER NC3SPACETE RAS EISPA 
CE,RVOFF,2SPACE,RVSON >2{RVOFF> 

90 PRINT"{5SPACE,RVS0N>2{RV0FF,2BSPACE,RVS 
0N>2{RV0FF> 

100 PRINT" {5HPAI-.F,RvsoN> 7.c.c.cj;.c.cc.cj:.c.cj:.c.c.c.cj. 


110 PRINT"{7D0WN,5BPACE,F 

ifig&SSSfifig g {RVOFF > " 


<160> 

<20B> 

<234> 

<249> 

<172> 

<049> 

< 153> 
< 202 > 

<040> 

< 222 > 

<1B2> 

< 174 > 


115 PRINT"{5SPACE,RVS0N>2{RV0FF,SPACE,SHIF 
T-SPACE,26SPACE,RVSON J2IRV0FF> 

120 PRINT"{5SPACE,RVSONI2IRV0FF,SPACE}DEMO 
NSTRATIONS — PROGRAMM{SPACE,RVSON}2IR 
VOFF} 

125 PRINT"{5SPACE,RVSONT2IRV0FF,SPACE,SHIF 
T-SPACE,26SPACE,RVSONT2IRV0FF} 

130 PR I NT " {5RPACF , RVSON } 9.C.C.Q.C-C.C.aC.C.C.C.C.C.C.C.a.C. 

140 SYB 49152 

150 GET A*»IF A#“""THEN 150 
155 IF A*="Q"THEN END 
160 SYB 49152,4,5,3,6,2,7,1,0 
170 FOR A=1 PO 76SPRINT"'GUTEN TAB'I2SPACE 
}";:NEXT 
180 SYS 49152 

190 GET A*sIF A*=""THEN 190 
195 IF A*="Q"THEN END 
200 SYS 49152,0,3,6,1,4,7,2,5 
210 PRINT CHR*<14>j“{2RIGHT}ÜIT DIESEM £R0 
BRAMM KOENNEN 21E" 

220 PRINT"{DOWN,2RIGHTTEFFEKTV0LLE ÜEBERBL 
ENDUNGEN ZWISCHEN " 

230 PRINT" {DOWN,2RIBHTTEINZELNEN IEXTBILDB 
CHRIMEN ERREICHEN.“ 


<056> 


<048> 

<066> 

<138> 
<19B> 
<08B> 
<014 > 
<025> 

< 193> 
<23B> 
<129> 
<054> 

< 172> 

<142> 

<095> 

<217> 
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<051 > 

< 1'47 > 
<074> 

< 121 > 
< 000 > 
< 022 > 

< 162> 
<091 > 

< 137> 

< 150 > 

< 114> 

< 131 > 
<1B6> 
<236> 

<085> 

< 1B9> 
<086> 

< 141 > 

<008> 

<008> 

<154> 

<058> 

<244> 

<230> 

<060> 

< 000 > 

<090> 

<230> 

<164> 

<017> 

<215> 


240 PRINT"{2D0WN,2RIGHT}aABEI WERDEN ALLE 
2JE ICHENSAET ZE 

250 PRINT“{D0WN.2RIGHTJUNTERSTUETZT: 

260 PRINT"{DOWN,5RIGHTJ- £ROSS/£RAFIK 
270 PRINT"{5RIGHT}- fiROSS/fiRAFIK ÄEVERS 
2B0 PRINT" <5RIGHT>- .KEEIN/SROSS 

290 PRINT" <5RIGHT>- JÜ.EIN/BROSS ÄEVERS 

291 PRINT"{2D0WN,2RIGUT >SAS ÄESONDERE: ES 
WIRD KEIN EINZIGES 

293 PRINT" <2RIGHT>21YTE VOM 2ASIC-SPEICHER 
VERBRAUCHT (!) 

300 PRINT" <DOWN, BRIGHT>>» JABTE <«" 

310 SYS 49152 

320 BET A*:IF A*=""THEN 320 
325 IF A*="Q"THEN END 
330 SYS 49152,5,4,2,6,3,0,1,7 
340 PRINT CHR.*(14)"<2D0WN,2RIBHT>aiE £INBA 
TZMOEGLICHKEITEN 

350 PRINT"{DOWN,2RIGHTJDIESES .PROGRAMMS SI 
ND SEHR VIEL— 

360 PRINT"{DOWN,2RIGHTJFAELTIG. ÜEBERALL W 
O STIMMUNGSVOLLE, 

370 PRINT"{DOWN,2RIGHTISANFTE MEBERGAENGE 
GEBRAUCHT WERDEN 

3B0 PRINT"(DOWN,2RIGHT>IST DIESES .PROGRAMM 
BESTENS GEEIGNET. 

390 PRINT" C2D0WN,2RIGHT>£IN .BEISPIEL MOECH 
TE ICH IHNEN NOCH 
400 PRINT"{DOWN,2RIGHTJZEIGEN ... 

430 PRINT" <3D0WN,BRIGHT>»> 2ASTE <« " 

440 SYS 49152 

450 GET A$:IF A*=""THEN 450 
455 IF A*="Q"THEN END 
460 SYS 49152 
470 GOSUB 900 s REM TITEL 
500 REM ADVENTURE - VERWALTUNG 
510 RA=1 

520 DN RA GOSUB 600,700,800 
530 GET A*:IF At=""THEN 530 
540 IF A*="W"THEN IF RAM THEN RA=RA-1:PRI S'TGR 
NT"{UP,DOWN > WEST {UP >"s FOR A=1 TO 1000: 
NEXTsGOTO 520 

550 IF A*="0"THEN IF RA<3 THEN RA=RA+1:PRI 
NT"CUP,DOWNJOSTIUP>":FOR A=1 TO 1000:N 
EXT:GOTO 520 

560 IF A*="G"THEN PRINT" «BLACK,UP,DOWNJAUF 
WIEDERSEHEN{UP}":FOR A=1 TO 1000:NEXT 
:SYS 49152:GOTO 20 
570 GOTO 530 

600 SYS 49152 

601 PRINT CHR*(142>"{CLR.3D0WN,BLACK,6SPAC 
E}MYflYflYflYflYßYflYflYfi{5SPACE >BURB 

605 PRINT" <5SPACE} KN.OO. Y.OYOV.OVOVOYOVOVI3SPA 
CE}W£rTr'£'S'£ , S' 

610 PRINT"C4SPACEIHMHaYflYflYflYflYflYflYflYfl<3SP 
ACE>JS<YELLOW>*{BLACK>£ ü J 
615 PRINT" {4SPACE>WMMfißYßYflYfiYflYfiYflYSY<3SP 
ACE}£££££ 

620 PRINT" <4SPACE} KRH.o y.OyOV!)V l OVüYOYQYl)<9RP 
ACEJAL Ä 

625 PRINT" C4SPACE>amaaYflYflYflYflY£YflYflY<3SP 
ACEJff -iffi-jf ±£S 

630 PRINT" <4SPACE>tliUiflYflY<RVS0N,BREY 1>Ä<5 
SPACE,RVOFF,BLACK>ßY£Y£Y£<3SPACE>a & & 
a<RED}S<BLACK>a 

635 PRINT" <4SPACE>mH0aY£CBR0WN,RVB0NJ-pWp' 
'p’CGREY 1 JM{RVOFF, BLACK.} Y£YflYSY<3SPACE > 
?£?££££■£* 

640 PRINT"{4SPACE JMHHYYYYIBROWN,RVSON,2SPA 
CE>M<2SPACE,GREY 1,SPACE,RVOFF,BLACK5Y 
YYYYYY <026> 

645 PRINT"C4SPACE>ÄütSSPACE,BROWN,RVSON,5S 

PACE,RVOFF,GREY 1}£{BLACK} <030> 

650 PRINT"<4SPACE)Ü <241> 

653 PRINT" - 

- <215> 

655 PRINT"{DOWN,2SPACEJSIE <<YELLOW>*<BLAC 

K>) BEFINDEN SICH IN EINEM <074> 

660 PRINT"{2SPACEJFENSTERL0SEN RAUM. IN DE 

M RAUM <057> 


<230> 


<065> 


< 176> 
<070> 

< 150> 

< 114> 
< 020 > 

< 163> 

< 176> 
<148> 
<223> 


< 105> 


< 166> 


665 PRINT" 
. SIE 

670 PRINT" 
LUES— 
675 PRINT' 
680 PRINT" 


(2SPACE JBEFINDET SICH EINE TRUHE 
{2SPACE>BESITZEN ABER KEINEN SCH 


'f2SPACE JSEL ({RED >S{BLACK >). 

' {2SPACEJM0EGLICHE RICHTUNG: 0{GR 
EY 3)ST{BLACK>, Q{BREY 3)UIT{BLACK! 

690 PRINT:PRINT“{BLACK,2SPACE }]"5 

695 SYS 49152,0,1,2,3,4,5,6,7 

699 RETURN 

700 SYS 49152 

701 PRINT" {CLR,2D0WN,BLACK ,7BPACE>pp-pWppT 

ffWiTO 

705 PRINT" { 6 SPACE>KL’p'.Wp'.L P 1 £'p'£’p'£'p'£ , p'.L'p'£(5SPAC 
EIBURG 

710 PRINT" {5SPACE!miJ.?£?£P£p£p£'p'i;ir.L'p'{3SPA 
CE)R£(rrS£W£¥ 

715 PRINT" {4SPACE>mHH RWR —--M H H TTI3SP 
ACEJa Ä{ YELLOW } * {BLACK } Ä, ä & 

720 PRINT" {4SPACEJ141üiaaYflÄ{2SPACE>=aaYflY 
£Y{3SPACE}R£R£F iE.» 

725 PRINT" {4SPACE>iUiöaYa£.e{2BPACE>=:flYflYfl 
Yfi {9SPACE } £ a 

730 PRINT"{4SPACE,BROWN,RVSONJÄ{SPACE,RVOF 
F,BLACKJüaaY&B, ^=fl£YflYflY{3SPACE>f W£ 
ir iEa 

735 PRINT"{4SPACE,RVSON,BROWN,2SPACE.RVOFF 

,BLACKJM£YflYflYflYflYflYaY£Y£{3SPACEJa a & 
a<REDJS{BLACKJa 

740 PRINT"{4SPACE,RVSON,BROWNJ£{SPACE,BLAC 
K,RVOFF JMa&YflYflYflYflYflY£YflY«SPACEJY£F£ 
r£F£Y 

745 PRINT"{4SPACE,RVSON,BROWN,2SPACE,RVOFF 

, BLACK JÜYyYYYYYYYYYYYYYYY 

750 PRINT"T4SPACE,RVSON,BROWN,SPACE,RVOFF> 
ÄIBLACKJ 

755 PRINT"{4SPACE,BROWNJÄIBLACK> 

757 PRINT" - 


Ol 1 


765 PRINT"{DOWN,2SPACEJSIE <{YELLOW}*{BLAC 
V’. BEFINDEN SICH IN EINEM 

770 PRINT"{2SPACEJRAUM MIT VERGITTERTEN FE 
NSTERN. EIN 

775 PRINT"{2SPACEJGITTERSTAB IST ZERSTOERT 
. SIE VER- 

7B0 PRINT"{2SPACEJSUCHEN SICH DURCH DAS FE 
NSTER ZU 

785 PRINT"{2BPACEJZWAENGEN. ABER SIE SIND 
ZU DICK !!! 

790 PRINT"{2SPACEJM0EGLICHE RICHTUNG: W{GR 
EY 3JEST{BLACKJ, 0{GREY 3JST{BLACK}, Q 
{BREY 3JUIT{BLACK} 

795 PRINT:PRINT"{BLACK,2SPACE}3"j 

79B SYS 49152,4,5,3,6,2,7,1,0 

799 RETURN 

B00 SYS 49152 

B01 PRINT" {CLR,2D0WN,BLACK,7SPACE) p'pWp'pTp' 
•pWpp'pVpV 

B05 PRINT" {6SPACE 
EJBURB 

810 PRINT" {5SPACE}lülU.'P£'Fi. , p£P£'Pi. , Pi.?i. , p{3SPA 
CE } W£'fiTS , £W£'jJ 

815 PRINT" {4SPACE}«mH HHWIBLUE,RVSON,SPAC 
EJYYYISPACE,RVOFF,BLACK}R ff R R{3SPACE 
>a Ä Ä.IYELLOW}*{BLACK,GREY 1J! {BLACK,8 
PACEJa 

820 PRINT" {4SPACE JlüUiafiYfla{RVSON,BLUE,SPAC 
E,BLACK,SPACE}FF{BLUE,SPACE,RVOFF,BLAC 
K JfiBYflYflY {38P ACE } R£R£F {GREY 1 }-{BLACKJ 
4-CT T 

825 PR I NT " {4SPACE } MH&SYAJU* {RVSON, BROWN, SPA 
CE,BLACK JEB{SPACE,BROWN,SPACE,RVOFF,BL 
ACK } £Y£YflYfl{9SPACE } £ & 


< 194> 

<249> 

<081> 

<056> 

<052> 

< 129> 
<249> 
<250> 

<194> 

< 123> 

< 105> 

< 123> 
<058> 
<080> 

<177> 

< 116> 

<026> 

<0B4> 

<060> 

<032> 

<063> 

< 1B4> 

<042> 

<221 > 

<204> 

<253> 


<046> 

< 159> 

< 157> 
<095> 
<030> 

<040> 

<225> 

<207> 


< 211 > 

< 102 > 

<069> 


Listlng 2. »DEMO« führt Ihnen einen kleinen Teil 
der Möglichkeiten von Modern Erase vor. Bitte mit dem 
Checksummer (Seite 159) eingeben. 
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B30 

PRINT"{4SPACE,BROWN,RVSDN >£{SPACE,RVOF 



F , BLACK }M£aYß£{RVSON, BROWN }££K.{ 2 SPACE, 



RVOFF, BLACK>00.Y.O.Y.O.Y<3BPACE>'»’ ’r£r ±£B 

<224> 

B35 

PRINT"C4SPACE,RVBON,BROWN,2SPACE,RVOFF 



, BLACK 1 £0 YflYfiYflYflYflYflYfiYfl(3SPACE > 21 .8 1t 



fiCREDJS {BLACK}B 

<21B> 

B40 

PR I NT " {4BPACE, RVBON, BROWN 7.UCBPACE , BLAC 



K, RVOFF > HOOV.tlVOVDVnvilVOVflV C3SPACE } ?£T£ 



tf£?£X 

< 128> 

845 

PRINT"C4SPACE,RVBON,BROWN,2SPACE,RVOFF 



, BL ACK > MYYYYYYYYYYYYYYYYY 

< 1 B 6 > 

B50 

PRINT 11 C4BPACE, RVBON, BROWN, SPACE, RVOFF > 



£{BLACK} 

< 170> 

B55 

PRINT"{4SPACE,BROWN>£<BLACK> 

<134> 

□ J / 

r K 1 N 1 - - - - 




< 165 > 

B65 

PRINT"{DOWN,2SPACE}SIE <{YELLOW}*{BLAC 



K}) BEFINDEN SICH IN EINEM 

<030> 

B70 

PRINT“{2SPACE}FENSTERL0SEN RAUM. AN DE 



R WAND HAENBT 

<234> 

875 

PRINT"{2SPACEIEIN BILD MIT EINEM HAUS. 



SIE UNTER- 

<057> 

BB0 

PRINT"{2SPACEISUCHEN DAS BILD, ABER EN 



TDECKEN 

< 116> 

BB5 

PRINT"{2SPACE}NICHTS BESONDERES. DAFUE 



R FALLEN 

<09B> 

BB7 

PRINT“{2SPACEIZWEI TUEREN ZU. SIE SIND 



BEFANGEN ! 

<009> 

B90 

PRINT“{2SPACETM0EGLICHE RICHTUNBs W{BR 



EY 3}EST{BLACK}, Q{BREY 3}UIT{BLACK} 

<233> 

B95 

PR I NT -. PR I NT " {BLACK, 2SPACE } 1"; 

<003> 

B9B 

SYS 49152,5,4,2,6,3,0,1,7 

<040> 

B99 

RETURN 

< 195> 

900 

REM TITEL 

<255> 

905 

PRINT CHR* <14)"{CLR,BLACK,8SPACE}£3£MI 



EU-E-R - iMPOSSIBLE < ! ! ) 

<094> 

910 

PRINT 

<250> 

915 

PRINT" MACH DEM GENUSS EINES LEICHT BI 



TTER 

<09B> 

920 

PRINT" SCHMECKENDEN TRANKES WACHEN SIE 



IN 

<131» 

925 

PRINT" EINER .IHNEN VOLLKOMMEN FREMDEN{ 



2SPACEIÜM- 

< 150> 

930 

PRINT" GEBUNB AUF. VOR IHNEN STEHT EIN 



E 

< 022 > 

935 

PRINT“ RIESIGE BURG. .VOLLER MUT BETRET 



EN SIE 

<014> 

940 

PRINT" DAS fiEBAEUDE UND HABEN SICH AUC 



H SCHON 

<025> 

945 

PRINT" VERLAUFEN ... 

< 110 > 

950 

PRINT"{DOWN,SPACEIAIESES SPIEL IST UNL 



OESBAR (SIEHE 

<041 > 

955 

PRINT" XITEL). £B SOLL JHNEN LEDIGLICH 



ZEI — 

<224> 

960 

PRINT" BEN, WIE WIRKUNGSVOLL DIE HEBER 



GAENBE 

<13B> 

965 

PRINT" ZWISCHEN DEN BILDERN AUSSEHEN K 



OENNEN 

<024> 

970 

PRINT"{2DQWN,SPACEIVERLASSEN KOENNEN £ 



IE DAS 'SPIEL‘ MIT 

< 1B5> 

975 

PRINT" DER IASTE 

<036> 

9B0 

PRINT"{2D0WN,SPACE}£IEL SPASS WUENSCHT 



IHNEN 

<219> 

985 

PRINT"{DQWN,21SPACE}BIRK MEUMEISTER 

< 191 > 

990 

PRINT" >>IASTE<<" 

< 210 > 

992 

SYS 49152 

<032> 

995 

BET A*sIF A*“""THEN 995 

<047> 

996 

IF A*="Q"THEN END 

<093> 

999 

RETURN 

<039> 

Llstlng 2. ..DEMO« (Schluß) 
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Mit diesen Sammelboxen sind Ihre Ausqaben immer 

sortiert una griffbereit. 

Eine Sammelbox faßt 
einen vollständigen 
Jahrgang mit 12 Ausgaben 
und kostet 14,- DM. 



Diese 64'er-Ausqaben bekommen Sie noch bei 


* 9 < 

Markt&Technik für jeweils 6,50 DM. 

Tragen Sie die Nummer der gewünschten 

z.B. 01/88) in den Bestellabschnitt 
eigehefteten Zahlkarte nach Seite 34 ein. 
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laMatien im 


Ein riesiger See mit zerklüfteten Küsten, aber 
auch mit sanften Stränden, befindet sich in 
Ihrem Computer. Wenn Sie ihn sehen wollen, 
zeigt Ihnen das Programm »Apfelsee« diese 
Landschaften voll bizarrer Schönheit. 

S eit geraumer Zeit erregen Fraktale in zunehmendem 
Maße das Interesse der Computer-Fans. Waren sie frü¬ 
her nur einer kleinen Gruppe von mathematischen 
Spezialisten zugänglich und begreiflich, hat sie der Com¬ 
puter nun aus dem Elfenbeinturm herausgeholt. Kaum ein 
Computerfreak kennt nicht das legendäre Apfelmännchen, 
das zum Symbol der Schönheit mathematischer Struktu¬ 
ren wurde. Das Programm »Apfelsee« aber zeigt Benoit 
Mandelbrots Entdeckung anders als gewohnt: Apfelmänn¬ 
chen in 3D. 

Die Erforschung des Apfelsees 

»■" = 

Wollen Sie den Apfelsee erforschen, dann gehen Sie bitte 
wie folgt vor. Auf der Diskette müssen sich die Files »AP¬ 
FELSEE«, »Fl C000« und »AUFSICHT PACKED« (Listings 
1 bis 3) befinden. Dieses letzte File ist eine Grafik, die in ge¬ 
packter Form vorliegt. Geben Sie dieses Programm also 
mit dem MSE ein, speichern es und starten es nach dem 
Laden mit RUN. Sobald die Grafik entpackt ist, wird diese 
automatisch unter dem Namen »AUFSICHT« auf der einge¬ 
legten Diskette gespeichert. Nun kann es losgehen: Laden 
Sie »APFELSEE« und starten das Programm mit RUN. Es 
werden zunächst die Zeichenroutinen nachgeladen; da¬ 
nach erscheint ein Menü, das sich weitestgehend von 
selbst erklärt. 

Sie können mit 

< 1 > ein Bild im Speicher ansehen 
<2> ein Bild von Diskette laden 
<3> ein Bild speichern 
<4> ein neues Bild erzeugen. 

Wird Menüpunkt 4 (Neues Bild) angewählt, dann lädt das 
Programm das Bild »AUFSICHT« nach. Vorsicht, ein im 
Speicher befindliches Bild wird dabei überschrieben! Sie 
sehen dann den Apfelsee aus der Vogelperspektive (Bild 1). 
Er hat die Form des bekannten Apfelmännchens. Mit dem 
Joystick in Port 2 können Sie dann einen beliebigen Aus¬ 
sichtspunkt in der Landschaft wählen. Bedenken Sie da¬ 
bei, daß die blauen Flächen See, die grünen Berge oder 
Ebenen sind. Haben Sie sich für einen Platz entschieden, 
dann drücken Sie den Feuerknopf. Sie erhalten dann die 
Koordinaten des gewählten Platzes, die Höhe über dem 
»Seespiegel« und werden gefragt, ob Sie ein Bild von die¬ 
ser Stelle wollen. Haben Sie mit <J> geantwortet, fragt 
Sie das Programm noch nach der gewünschten Höhe des 
Aussichtsplatzes. Dieser muß höher sein, als der Platz 
selbst. Höhen, die etwa 0,3 bis 1,0 über der Höhe des Stand- 



Bild 2. Reizvolle Ansichten des Apfelsees... 


Platzes sind, haben sich als die besten erwiesen. Danach 
müssen Sie noch den Blickwinkel in Grad (0 bis 360) einge¬ 
ben. Die Karte »Aufsicht« ist so angelegt, daß 0 in Richtung 
des oberen Bildschirmrandes ist, 90 rechts, 180 unten und 
270 links. Haben Sie alle Angaben gemacht, beginnt das 
Programm mit der Erstellung des Bildes. Dieser Vorgang 
dauert etwa zwei Stunden, kann jedoch jederzeit mit < - > 
abgebrochen werden. Auch nach einem Abbruch kann das 
unfertige Bild bei Bedarf gespeichert werden. Dies ist dann 

Anpassung für 4-MHz-Karte 


sinnvoll, wenn sich das Bild nicht mehr verändert, oder 
wenn es einem auch so schon schön genug erscheint. Die 
Erstellung des Bildes kann aber noch beschleunigt wer¬ 
den. Drückt man <SHIFTLOCK>, wird der Bildschirm ab¬ 
geschaltet. Das Programm wird dadurch etwa 6 Prozent 
schneller. Rastet man diese Taste wieder aus, schaltet sich 
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der Bildschirm wieder ein. An dieser Stelle sei noch folgen¬ 
des erwähnt: 

Das Programm ist an die 4-MHz-Karte Turboprocess der 
Firma Roßmöller angepaßt. Unter 4 MHz benötigt das Pro¬ 
gramm kaum mehr als eine halbe Stunde für die Berech¬ 
nung eines Bildes. Auch mit den meisten Hardware-Floppy- 
speedern müßte das Programm Zusammenarbeiten, da es 
nur die normalen Load- und Save-Routinen benutzt. Die 
Bilder belegen den Speicherplatz von $2000 bis $4000 und 
können leicht in eine Diashow eingebaut werden. 

Zum Verständnis des Programms erst ein paar allgemei¬ 
ne Worte zu Fraktalen: Das wohl bekannteste Merkmal der 
Fraktale ist ihre Selbstähnlichkeit. Das bedeutet, daß jedes 
äußere Merkmal eines Fraktals in seiner Struktur unendlich 
oft wiederkehrt. Das Erscheinungsbild des kleinsten Teils 
eines Fraktals ist also gleich dem des größten. Diese 
Selbstähnlichkeit kennen Sie alle von den Eisblumen am 
Fenster. Betrachten Sie diese genauer, dann sehen Sie, 
daß eine Eisblume aus vielen kleinen zusammengesetzt 



Bild 1. Der Apfelsee von oben 


ist, bis hinunter zum einzelnen Eiskristall, der lediglich eine 
Eisblume in Miniaturausgabe ist. Ein weiteres, eher theore¬ 
tisches Merkmal der Fraktale ist ihre Position in Zeit und 
Raum. Fraktale besitzen quasi ihre eigene Dimension, die 
zwischen den uns bekannten (Höhe, Breite, Tiefe, Zeit) 
liegt. Dabei besitzt jedes Fraktal seine eigene, individuelle 
Position im System der Dimensionen. Sollten Sie sich für 

Selbstähnliche Fraktale 


mehr Details interessieren, dann weise ich Sie auf den Kurs 
im 64’er-Magazin »Vorstoß ins Chaos«, Ausgabe 9/87 ff., 
von Stefan Vilsmeier hin. Für das Apfelmännchen aber in¬ 
teressiert uns vornehmlich eine Art der Fraktale, die soge¬ 
nannte Julia-Menge. Als solche bezeichnet man die Gren¬ 
ze zw ,ei "hen Attraktoren auf der komplexen Zahlenebene, 
die durch Iterationsrechnung ermittelt werden kann. Ein¬ 
fach ausgedrückt, wird dabei der Abstand zwischen der di¬ 
mensionalen Position des Fraktals (Imaginärteil) und der 
»realen« Position (Realteil) näherungsweise ermittelt. Das 
Apfelmännchen ist lediglich eine besondere Ausformung 



Bild 3. ...bieten sich dem Betrachter... 


der Julia-Menge. Ein »herkömmliches« Apfelmännchen ist 
im Bild »Aufsicht« zu sehen. Hierbei wird jedem Punkt auf 
dem Bildschirm gemäß seinem, bei der Iteration ermittel¬ 
tem Wert eine Farbe zugewiesen. Je mehr Farben zur Ver¬ 
fügung stehen und je kleiner die Iterationsschritte sind, de¬ 
sto detaillierter wird das Bild, das in seinen kleinsten Struk¬ 
turen immer fantastischer wird. Diese Art der Darstellung 
kennen wir jedoch schon aus zahlreichen Beispielen. 

Neu jedoch ist die von Frank Göldner und Hartmut 
Woerrlein in Happy-Computer, Heft 6/87, präsentierte drei- 




SONDERHEFT 33 












TOOLS: GRAFIK 


C64 


dimensionale Darstellung in so detaillierter Form. Anders 
als bisher, wird einem Punkt in der Zahlenebene nicht nur 
eine Farbe je nach Iterationstiefe zugeteilt, sondern auch 
eine Höhe über der Zahlenebene, dem See. »Apfelsee« ist 
die zur Zeit schnellste Version eines Programms nach die¬ 
sem Prinzip. Man kann sich das etwa folgendermaßen vor¬ 
stellen: Zuerst steht man vor einer völlig leeren Ebene und 
betrachtet den Horizont. Hält man sich nun ein feines Netz 
vor die Augen, dann entspricht jedes Loch des Netzes ei¬ 
nem Bildpunkt der Grafik. Blickt man nun auf das linke En- 

Von der zweiten zur dritten Dimension 


de des Horizonts, dann sieht man den ersten Bildpunkt. Mit 
den Koordinaten des Punktes im Netz (Koordinatensystem) 
führt man jetzt die erste Iteration durch. Als Ergebnis erhält 
man die Höhe des Punktes. Nun zieht man eine Linie vom 
Ausgangspunkt in die Höhe oder Tiefe. Die Länge dieser Li¬ 
nie entspricht dem zuvor ermittelten Wert. So verfährt man 
von links nach rechts und von oben nach unten bis das Bild 
fertig ist. Einige werden bestimmt bemerken, daß das Pro¬ 
gramm jedoch mehr Zeilen berechnet, als nur bis zum un¬ 
teren Ende des Bildschirms. Das hat jedoch einen einfa¬ 
chen Grund. Stellen Sie sich vor, Sie stehen auf einer sol¬ 
chen Ebene und müßten jeden Punkt auf dem Boden be¬ 
trachten, bevor Sie seine Höhe wüßten. Sie würden zwar 
den Berg sehen, der weit weg steht, nicht aber die Mauer, 
die vor Ihnen aus dem Boden wächst. Um diese zu erken¬ 
nen, müßten Sie erst den Kopf senken und vor Ihre Füße 
schauen. Dies auch dann, wenn die Mauer so hoch ist, daß 
sie Ihnen die ganze Sicht versperrt. Die zusätzlichen Zeilen 
sind nichts anderes als dieser tote Winkel, der bleibt, wenn 
Sie nur geradeaus schauen. Die sich dann darbietende 
Landschaft ist nicht nur einfach schön, es fasziniert diö blo¬ 


ße Vorstellung, sich in einer Welt der reinen Mathematik zu 
befinden. Besonders eindrucksvoll ist es, wenn man sich 
von einem Punkt aus (etwa 0/0/ Höhe 1) in 10-Grad-Schrit- 
ten einen Überblick überden ganzen See verschafft. Mit ei- 



Bild 4. ...aus den verschiedensten Perspektiven 


nem normalen Diashowprogramm kann dann eine »volle 
Umdrehung auf dem Aussichtsturm« simuliert werden. Da¬ 
nach können weitere Exkursionen an reizvolle Ausflugszie¬ 
le in Angriff genommen werden. Sehr schön sind folgende 
Orte: in der unteren linken Ecke, Höhe 2, Blickwinkel 45 
Grad; zwischen den beiden spitzen Landzungen am Hals 
des Apfelmännchens, Höhe 0.75, 270 oder 90 Grad; vom 
unteren Rand aus (nur Joystick nach hinten ziehen), Höhe 
1.0 bis 1.5, Blickwinkel 0 Grad (guter Überblick). 

In den Widern 2 bis 4 finden Sie einige reizvolle Ausblicke 
auf den Apielsee. (David Mehlhausen/sk) 
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2c 

Ob 

0fe9 

aO 

68 

20 

5b 

bc 

c9 

ff 

dO 

ed 

Offl 

03 

4c 

e5 

67 

a9 

Oe 

aO 

68 

df 

0ff9 

20 

a2 

bb 

a9 

13 

aO 

68 

20 

a6 

1001 

67 

b8 

a9 

31 

aO 

68 

20 

5b 

d9 

1009 

bc 

c9 

01 

fO 

03 

4c 

Oe 

67 

a2 

1011 

60 

53 

4l 

55 

53 

47 

41 

42 

Of 


Listlng 1. »APFELSEE«. Bitte mit 
dem MSE (Seite 159) eingeben. 


Name : fl cOOO cOOO c6e0 


cOOO 

: a9 

00 

85 

fb 

a9 

20 

85 

fc 

36 

c008 

: aO 

00 

a9 

00 

91 

fb 

e6 

fb 

9f 

cOlO 

: dO 

fa 

e6 

fc 

a5 

fc 

c9 

40 

aO 

c018 

: dO 

fO 

ad 

11 

dO 

09 

20 

8d 

df 

c020 

: 11 

dO 

ad 

16 

dO 

09 

10 

8d 

78 

c028 

: 16 

dO 

ad 

18 

dO 

09 

08 

8d 

a5 

c030 

: 18 

dO 

a9 

06 

8d 

21 

dO 

a2 

46 

c038 

: 00 

a9 

31 

9d 

00 

04 

9d 

00 

a3 

c040 

: 05 

9d 

00 

06 

9d 

00 

07 

a9 

le 

c048 

: 05 

9d 

00 

d8 

9d 

00 

d9 

9d 

b3 

c050 . 

: 00 

da 

9d 

00 

db 

ca 

dO 

el 

40 

e058 : 

: 60 

20 

9b 

b7 

86 

fb 

20 

9b 

a6 

c060 : 

: b7 

86 

fc 

20 

9b 

b7 

86 

d7 

df 

c068 : 

: a9 

00 

85 

fd 

a9 

20 

85 

fe 

e2 

c070 : 

: a5 

fc 

4a 

4a 

4a 

aa 

fO 

10 

4d 

c078 : 

: a9 

40 

18 

65 

fd 

85 

fd 

a5 

43 

c080 : 

: fe 

69 

01 

85 

fe 

ca 

dO 

fO 

8f 

c088 : 

: a5 

fb 

4a 

4a 

Oa 

Oa 

Oa 

90 

41 

c090 : 

: 03 

e6 

fe 

18 

65 

fd 

85 

fd 

21 

c098 : 

: a9 

00 

65 

fe 

85 

fe 

a5 

fc 

5b 

cOaO : 

: 29 

07 

18 

65 

fd 

85 

fd 

a9 

57 

c0a8 : 

; 00 

65 

fe 

85 

fe 

a5 

fb 

29 

2a 

cObO : 

: 03 

85 

d8 

a9 

03 

38 

e5 

d8 

lc 

c0b8 : 

: aa 

a5 

d7 

eO 

00 

fO 

05 

Oa 

f6 

cOcO : 

Oa 

ca 

dO 

fb 

85 

Oc 

a6 

d8 

e8 

c0c8 : 

: aO 

00 

bl 

fd 

3d 

d4 

cO 

05 

lc 

cOdO : 

Oc 

91 

fd 

60 

3f 

cf 

f3 

fo 

6c 

c0d8 : 

20 

15 

cl 

20 

68 

cO 

a5 

fc 

14 

cOeO : 

c5 

02 

fO 

04 

e6 

fc 

dO 

f3 

e4 

c0e8 : 

60 

20 

15 

cl 

a6 

fb 

ca 

86 

58 

cOfO : 

ac 

a6 

fc 

86 

ad 

a6 

02 

e8 

e9 

c0f8 : 

86 

ae 

a6 

d7 

ca 

86 

af 

20 

5a 

clOO : 

db 

cO 

a5 

ac 

85 

fb 

a5 

ad 

64 

cl08 : 

85 

fc 

a5 

ae 

85 

02 

a5 

af 

a9 

cllO : 

85 

d7 

4c 

db 

cO 

20 

9b 

b7 

fa 

cll8 : 

86 

fb 

20 

9b 

b7 

86 

fc 

20 

fb 

cl20 : 

9b 

b7 

86 

02 

20 

9b 

b7 

86 

44 

cl28 : 

d7 

60 

68 

fO 

30 

dO 

10 

50 

d2 

cl30 : 

00 

a9 

lb 

8d 

11 

dO 

a9 

f6 

aa 

cl38 : 

8d 

21 

dO 

a9 

15 

8d 

18 

dO 

7f 

cl40 : 

a9 

c8 

8d 

16 

dO 

60 

a9 

01 

2c 

cl48 : 

a2 

08 

aO 

01 

20 

ba 

ff 

a9 

62 


Listlng 2. »Fl COOO... 
iDie Zeichenroutinen für die 
Berechnung der Bilder. Bitte mit 
dem MSE (Seite 159) eingeben. 
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TOOLS: GRAFIK 


C64 


cl50 

Of 

a2 

00 

aO 

c2 

20 

bd 

ff 

e9 

ole8 

20 

a2 

b3 

a2 

4d 

aO 

o7 

20 

d4 

c280 

o7 

a9 

cd 

8d 

6'a 

c7 

a9 

80 

cd 

cl58 

20 

cO 

ff 

a2 

01 

20 

c9 

ff 

65 

olfO 

d4 

bb 

aO 

62 

20 

a2 

b3 

a2 

41 

c288 

8d 

70 

c7 

a9 

33 

8d 

71 

c7 

69 

cl60 

a9 

00 

20 

d2 

ff 

a9 

20 

20 

7a 

olf8 

61 

aO 

c7 

20 

d4 

bb 

aO 

02 

51 

c290 

8d 

72 

c7 

8d 

73 

c7 

8d 

74 

8e 

cl68 

d2 

ff 

a9 

20 

«2 

00 

85 

fc 

e2 

c200 

20 

a2 

b3 

a2 

a2 

aO 

c7 

20 

41 

0298 

o7 

a9 

7o 

8d 

9d 

c7 

a9 

4o 

5o 

ol70 

86 

fb 

aO 

00 

bl 

fb 

20 

d2 

3d 

0208 

d4 

bb 

aO 

51 

20 

a2 

b3 

a2 

37 

c2a0 

8d 

9e 

o7 

a9 

cc 

8d 

9f 

o7 

eb 

cl78 

ff 

e6 

fb 

dO 

f5 

e6 

fo 

a5 

d9 

c210 

ao 

aO 

o7 

20 

d4 

bb 

aO 

63 

77 

c2a8 

a9 

cc 

8d 

aO 

c7 

a9 

od 

8d 

4b 

cl80 

fo 

c9 

40 

dO 

ed 

20 

CO 

ff 

9e 

c218 

20 

a2 

b3 

a2 

bl 

aO 

c7 

20 

4a 

c2b0 

al 

c7 

aO 

01 

20 

a2 

b3 

a2 

a8 

0 I 88 

a9 

01 

4c 

c3 

ff 

00 

00 

cO 

bf 

o220 

d4 

bb 

a9 

7b 

8d 

52 

c7 

a9 

89 

c2b8 

2a 

aO 

c7 

20 

d4 

bb 

a9 

4d 

95 

cl90 

bl 

7a 

c9 

20 

dO 

11 

20 

71 

ee 

0228 

19 

8d 

53 

c7 

a9 

30 

8d 

54 

dl 

o2c0 

aO 

c7 

20 

a2 

bb 

a9 

20 

aO 

6b 

ol98 

c4 

aO 

00 

a9 

20 

c8 

dl 

7a 

66 

o230 

c7 

a9 

be 

8d 

55 

c7 

a9 

Oe 

83 

c2c8 

c7 

20 

50 

b8 

a2 

34 

aO 

o7 

a8 

claO 

00 

00 

00 

00 

00 

00 

00 

00 

al 

0238 

8d 

56 

c7 

a9 

7f 

8d 

57 

o7 

69 

o2d0 

20 

d4 

bb 

a9 

34 

aO 

o7 

20 

26 

cla8 

00 

00 

00 

00 

00 

00 

00 

00 

a9 

c240 

a9 

19 

8d 

58 

c7 

a9 

99 

8d 

2f 

o2d8 

a2 

bb 

a2 

98 

aO 

c7 

20 

d4 

86 

clbO 

aO 

00 

20 

a2 

b3 

a2 

20 

aO 

bf 

0248 

59 

c7 

a9 

99 

8d 

5a 

o7 

a9 

40 

o 2 e 0 

bb 

78 

a9 

34 

8d 

14 

03 

a9 

al 

olb8 

c7 

20 

d4 

bb 

a9 

90 

85 

63 

38 

c250 

9a 

8d 

5b 

c7 

a9 

73 

8d 

5o 

a6 

c2e8 

ff 

8d 

05 

do 

20 

Ob 

c6 

58 

bl 

olcO 

a9 

01 

85 

62 

a2 

90 

38 

20 

67 

c258 

c7 

a9 

dl 

8d 

5d 

o7 

a9 

b7 

44 

c2f0 

20 

00 

cO 

a9 

2a 

aO 

o7 

20 

7d 

clc8 

49 

bc 

a2 

25 

aO 

o7 

20 

d4 

2f 

c260 

8d 

5e 

o7 

a9 

17 

8d 

5f 

o7 

2e 

c2f8 

a2 

bb 

a9 

11 

aO 

c7 

20 

Of 

eb 

cldO 

bb 

a9 

58 

85 

63 

a9 

02 

85 

bd 

0268 

a9 

5a 

8d 

60 

o7 

a9 

7e 

8d 

8d 

o300 

bb 

20 

e2 

ba 

a2 

2f 

aO 

o7 

91 

cld8 

62 

a2 

90 

38 

20 

49 

bo 

a2 

3b 

c270 

66 

c7 

a9 

4c 

8d 

67 

o7 

a9 

34 

o308 

20 

d4 

bb 

a9 

03 

8d 

39 

c7 

c7 

oleO 

48 

aO 

c7 

20 

d4 

bb 

aO 

50 

bo 

o278 

cc 

8d 

68 

c7 

a9 

cc 

8d 

69 

28 

c310 

a9 

a2 

aO 

c7 

20 

a2 

bb 

a2 

77 
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C64 


TOOLS: GRAFIK 


c318 

e9 

aO 

c6 

20 

d4 

bb 

a9 

2f 

37 

c320 

aO 

o7 

20 

a2 

bb 

a9 

34 

aO 

lb 

c328 

c7 

20 

28 

ba 

a9 

52 

aO 

o7 

aO 

c330 

20 

28 

ba 

a2 

93 

aO 

c7 

20 

05 

c338 

d4 

bb 

a9 

20 

aO 

c7 

20 

a2 

66 

c340 

bb 

a2 

f8 

aO 

c6 

20 

d4 

bb 

d7 

c348 

a2 

fd 

aO 

c6 

20 

d4 

bb 

a9 

d5 

o350 

93 

aO 

c7 

20 

a2 

bb 

a9 

lb 

Oe 

o358 

aO 

o7 

20 

28 

ba 

a9 

df 

aO 

a3 

o360 

c6 

20 

67 

b8 

a 2 

6b 

aO 

o7 

bf 

c368 

20 

d4 

bb 

a9 

2f 

aO 

07 

20 

6e 

o370 

a2 

bb 

a9 

16 

aO 

c7 

20 

28 

36 

c378 

ba 

a9 

6b 

aO 

o7 

20 

67 

b8 

82 

c380 

a2 

ee 

aO 

c6 

20 

d4 

bb 

a9 

85 

c388 

93 

aO 

c7 

20 

a2 

bb 

a9 

16 

3c 

c390 

aO 

o7 

20 

28 

ba 

a9 

e4 

aO 

ef 

c398 

06 

20 

50 

b8 

a2 

6b 

aO 

o7 

31 

c3a0 

20 

d4 

bb 

a9 

2f 

aO 

o7 

20 

a6 

o3a8 

a2 

bb 

a9 

lb 

aO 

c7 

20 

28 

Of 


c3bO 

ba 

a9 

6 b 

aO 

c7 

20 

67 

b 8 

ba 

c3b8 

a 2 

f3 

aO 

c 6 

20 

d4 

bb 

20 

2 d 

c3cO 

Ob 

c 6 

a9 

3e 

aO 

c7 

20 

a 2 

6 e 

c3c8 

bb 

a9 

70 

aO 

o7 

20 

28 

ba 

lc 

o3dO 

a 2 

6 b 

aO 

c7 

20 

d4 

bb 

a9 

34 

c3d8 

e9 

aO 

c 6 

20 

a 2 

bb 

a9 

57 

24 

c 3 eO 

aO 

c7 

20 

28 

ba 

a9 

6 b 

aO 

59 

c 3 e 8 

o7 

20 

67 

b 8 

a 2 

e9 

aO 

06 

3a 

c 3 fO 

20 

d4 

bb 

a9 

e9 

aO 

c 6 

20 

9d 

o3f8 

a 2 

bb 

a9 

20 

aO 

c7 

20 

5b 

66 

c400 

bo 

c9 

ff 

dO 

13 

a9 

5c 

aO 

ec 

c408 

c7 

20 

a 2 

bb 

a 2 

e9 

aO 

c 6 

89 

c4lO 

20 

d4 

bb 

a9 

00 

8 d 

39 

c7 

9f 

c4l8 

a9 

11 

aO 

o7 

20 

a 2 

bb 

a9 

c4 

c420 

e9 

aO 

06 

20 

50 

b 8 

a9 

2 a 

d5 

c428 

aO 

c7 

20 

28 

ba 

20 

Oo 

bc 

Of 

c430 

a9 

11 

aO 

c7 

20 

a 2 

bb 

a9 

do 

o438 

61 

20 

12 

bb 

a 2 

43 

aO 

07 

fo 

o440 

20 

d4 

bb 

a9 

e9 

aO 

c 6 

20 

ed 


c448 

a2 

bb 

a2 

3e 

aO 

c7 

20 

d4 

ab 

c450 

bb 

a9 

43 

aO 

c7 

20 

a2 

bb 

44 

c458 

46 

66 

a9 

61 

aO 

c7 

20 

5b 

e7 

c460 

bo 

c9 

01 

dO 

31 

a9 

43 

aO 

Oa 

c468 

c7 

20 

a2 

bb 

20 

2b 

bo 

c9 

41 

c470 

ff 

dO 

15 

a9 

61 

aO 

c7 

20 

cc 

c478 

a2 

bb 

a9 

80 

85 

66 

a2 

43 

Of 

c480 

aO 

o7 

20 

d4 

bb 

4c 

96 

c4 

a8 

c488 

a9 

61 

aO 

o7 

20 

a2 

bb 

a2 

4e 

o490 

43 

aO 

c7 

20 

d4 

bb 

a9 

34 

53 

c498 

aO 

c7 

20 

a2 

bb 

a9 

ao 

aO 

75 

c4aO 

c7 

20 

67 

b8 

20 

9b 

bc 

a6 

87 

c4a8 

65 

8e 

75 

c7 

oa 

8e 

7f 

c7 

59 

c4bO 

a9 

43 

aO 

o7 

20 

a2 

bb 

a9 

75 

c4b8 

bl 

aO 

o7 

20 

50 

b8 

20 

9b 

32 

c4c0 

bc 

a6 

65 

8e 

84 

o7 

ca 

8e 

c9 
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TOOLS: GRAFIK 


C64 


c4c8 

7a c7 a9 8e aO c7 20 

a2 

70 

Name : 

aufsicht packed 

0801 1082 

0a21 : 

21 

08 

42 

10 

84 

29 

74 

2d 

97 

n/^n 

KV» oQ Vsl nD r>n Ort Art 

KQ 

i r\ 











0a29 : 

2a 


a9 

d5 

ld 

29 

f9 


6d 

C*+UU 

dd ay dx au c/ d\j pu 

Do 

1U 











Jy 


c4d8 

20 9b bc a6 65 8e 89 

c7 

4a 

0801 : 

Oe 

08 

c2 

07 

9e 

32 

30 

36 

4d 

Oa31 : 

55 

bf 

49 

09 

56 

6a 

96 

a2 

32 

c4e0 

ad 75 c7 85 fb ad 7a 

c7 

91 

0809 : 

31 

00 

00 

00 

8d 

20 

dO 

78 

49 

Oa39 : 

a2 

9c 

fa 

cl 

bb 

4f 

90 

43 

lf 

c4e8 

85 fc a9 c7 85 02 a9 

02 

62 

0811 : 

a2 

ff 

9a 

aO 

00 

84 

01 

a2 

db 

Oa4l : 

72 

72 

b7 

25 

4c 

b3 

27 

2a 

d2 

c4f0 

85 d7 20 ec cO a9 43 

aO 

ae 

0819 : 

cc 

bd 

57 

08 

9d 

33 

03 

b9 

8e 

Oa49 : 

eb 

24 

d4 

48 

89 

fc 

80 

lb 

3d 

c4f8 

c7 20 a2 bb a9 20 aO 

c7 

9d 

0821 : 

ld 

09 

99 

ff 

00 

ca 

dO 

02 

c7 

Oa51 : 

93 

bc 

51 

02 

72 

d8 

66 

dl 

02 

c500 

20 5b bc c9 ff d0 12 

ad 

60 

0829 : 

a2 

01 

88 

dO 

ec 

c6 

2 e 

a5 

91 

0a59 : 

Od 

dl 

de 

lc 

ed 

17 

af 

e5 

ac 

c508 

7f c7 85 fb ad 84 c7 

85 

75 

0831 : 

2e 

c9 

08 

fO 

Od 

ce 

3d 

08 

bO 

0a6l : 

14 

Of 

fc 

c3 

43 

b4 

e2 

e7 

ea 

c510 

fc ad 39 c7 85 d7 20 

68 

92 

0839 : 

bl 

2d 

99 

ff 

ff 

88 

dO 

f8 

61 

0a69 : 

b5 

37 

20 

e4 

df 

9d 

9b 

8d 

d3 

c518 

cO a9 8e aO c7 20 a2 

bb 

e4 

0841 : 

fO 

eb 

84 

f8 

aO 

9a 

a9 

f9 

eO 

0a71 : 

34 

fd 

a9 

b5 

6a 

52 

d9 

56 

12 

c520 

a9 66 aO c7 20 67 b8 

a9 

91 

0849 : 

85 

f9 

a9 

80 

a2 

d9 

86 

2d 

b3 

0a79 : 

6a 

4a 

de 

fc 

77 

47 

78 

73 

59 

c528 

43 aO c7 20 5b bc c9 

ff 

74 

0851 : 

a2 

10 

86 

2e 

4c 

34 

03 

a2 

la 

0a81 : 

b4 

5e 

bf 

94 

33 

a5 

52 

14 

b9 

c530 

dO 16 ad 7f c7 85 fb 

ad 

5a 

0859 : 

00 

86 

fe 

Oa 

fO 

20 

90 

3c 

68 

0a89 : 

ee 

b5 

41 

74 

69 

eb 

53 

53 

lb 

c538 

84 c7 85 fc ad 89 c7 

85 

f2 

0861 : 

a2 

06 

Oa 

fO 

2b 

26 

fe 

ca 

lc 

0a91 : 

3b 

e6 

a7 

40 

a6 

b9 

01 

43 

f4 

o540 

02 a9 00 85 d7 20 db 

cO 

37 

0869 : 

dO 

f8 

a6 

fe 

48 

bd 

07 

01 

cf 

0a99 : 

CC 

34 

3b 

4e 

fi 

9e 

d4 

de 

39 

c548 

ad 7f c7 85 fb ad 7a 

c7 

fe 

0871 : 

8d 

01 

08 

68 

ee 

4e 

03 

dO 

9d 

Oaal : 

fb 

e6 

ce 

56 

09 

34 

01 

62 

89 

c550 

85 fc ad 39 c7 85 d7 

20 

2e 

0879 : 

de 

ee 

4f 

03 

dO 

d9 

bl 

f8 

97 

0aa9 : 

08 

a6 

10 

40 

00 

ab 

80 

82 

75 

c558 

68 cO a9 43 aO c7 20 

a2 

01 

0881 : 

2a 

c8 

dO 

da 

e6 

f9 

dO 

d6 

ce 

Oabl : 

94 

01 

8c 

62 

c4 

ii 

4a 

24 

7b 

c560 

bb a2 8e aO c7 20 d4 

bb 

6c 

0889 : 

a9 

37 

85 

01 

58 

4c 

10 
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Oa 

38 

40 

2a 

el 

a3 

95 

0d69 

21 09 04 10 20 

cl 

39 00 

07 

Oeel 

89 

04 

al 

20 

4 b 

06 

li 

62 

c7 

1059 : 

3e 

b4 

da 

Oa 

30 

52 

9f 

46 

8a 

0d71 

03 94 72 06 00 

18 

cO 20 

20 

0ee9 

10 

00 

84 

50 

12 

40 

00 

08 

58 

1061 : 

9d 

6c 

74 

3a 

02 

88 

6b 

50 

4b 

0d79 

ac 00 67 18 a4 

82 

01 22 

a9 

Oe fl 

20 

00 

00 

60 

00 

04 

12 

18 

b6 

1069 : 

e3 

e9 

30 

3a 

5e 

a8 

cd 

ad 

52 

0d81 

la 04 43 96 29 

ca 

48 90 

6c 

0ef9 

10 

00 

31 

cO 

88 

00 

00 

60 

b7 

1071 : 

8e 

82 

a4 

16 

fa 

80 

3b 

52 

71 

0d89 

e2 14 5d c3 10 

51 

c3 12 

04 

OfOl 

91 

10 

60 

8b 

Oa 

04 

89 

05 

15 

1079 : 

08 

74 

72 

2b 

72 

25 

le 

10 

a6 

0d91 

08 62 10 bO ca 

42 

80 bl 

09 

0f09 

30 

00 

68 

81 

2c 

10 

00 

00 

c7 

1081 : 

84 

45 

52 

20 

5a 

2e 

4e 

2e 

ed 

0d99 

4a 50 98 fO 48 

00 

10 55 

bf 

Ofll 

20 

00 

01 

c2 

00 

Od 

08 

e7 

22 











Odal 

cl 08 00 04 28 

43 

8b 08 

c2 

0fl9 

00 

00 

09 

70 

41 

08 

03 

00 

ca 











0da9 

70 06 38 c7 87 

02 

lc 89 

2f 

0f21 

cO 

08 

07 

80 

13 

84 

el 

86 

al 

Listing 3. 

AUFSICHT PACKED«. 


Odbl 

62 d2 12 90 52 

83 

16 30 

Od 

0f29 

40 

12 

28 

21 

96 

34 

60 

00 

2d 

Die Aufsicht des Apfelsees in 


0db9 

c2 10 84 81 81 

Oc 

52 82 

9b 

0f31 

03 

09 

43 

02 

04 

28 

c5 

81 

66 

gepackter Form. Bitte mit dem MSE 

Odcl 

71 29 c2 43 96 

18 

a5 06 

ad 

0f39 

14 

04 

20 

00 

08 

71 

8d 

2 c 

f2 

(Seite 159) eingeben. 
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Giga-CAD und PED sind zwei äußerst 
leistungsfähige 3D-Grafikprogramme. 
Endlich können nun Objektdaten zwischen 
beiden Programmen ohne Probleme 
ausgetauscht werden. 

V iele grafikinteressierte C64-Besitzer kennen und be¬ 
nützen die beiden in 64’er-Sonderheften vorgestell¬ 
ten Programme PED und Giga-CAD zum Entwurf 
dreidimensionaler Objekte. Leider jedoch fehlte bisher eine 
Möglichkeit zum Austausch von Daten zwischen beiden 
Programmen. 

Der »Objekt-Konverter« behebt diesen Mangel. Objekte, 
die mit Giga-CAD erstellt wurden, können problemlos auf 
das PED-Format übertragen werden (Bild 1 und 2). Anders 
sieht es da leider in der entgegengesetzten Richtung aus: 
Giga-CAD und PED sind nämlich grundsätzlich unter¬ 
schiedlich konzipiert. Während die Objekte bei PED ledig¬ 
lich aus Linien bestehen, sind bei Giga-CAD Flächen die 
kleinste grafische Einheit. 

Jede begrenzte Fläche läßt sich automatisch auf ihre Be¬ 
grenzungslinien zurückführen, jedoch ein System aus 
mehreren Linien kann nicht ohne weiteres in eine ganz be¬ 
stimmte Kombination von Flächen transferiert werden. Da¬ 
her ist es unumgänglich, bei der Konvertierung von PED- 
Objekten in Giga-CAD-Objekte die benötigten Flächen per 
Hand zu definieren. Doch zunächst zum Programm selbst. 
Geben Sie zuerst Listing 1, den »Objekt-Konverter« mit dem 
Checksummer ein. Das Listing 2, den »Obj-Kompaktor«, 
benötigen Sie nur, wenn Objekte von Giga-CAD nach PED 
konvertiert werden sollen, andernfalls können Sie sich die 
Tipparbeit sparen. Die Funktion dieses Programms wird 
noch erklärt. Nach dem Speichern kopieren Sie noch die 
folgenden Giga-CAD-Dateien auf die gleiche Diskette: 
HIRES1 .CAD.OBJ 
HIRES2.CAD.OBJ 
HIRES3.CAD.OBJ 
HIRES4.CAD.OBJ 

Sie werden beim Start des »Objekt-Konverter« nachgela¬ 
den. Nach dem Laden und der Eingabe von RUN erscheint 
deshalb die Aufforderung, die Giga-Disk einzulegen. Befin¬ 
den sich die oben genannten Dateien auf der Diskette im 
Laufwerk, so drücken Sie < RETURN >. Danach erscheint 
das Hauptmenü (Bild 3). 

Folgende Funktionen stehen zur Auswahl: 

Dateinamen eingeben 

Der erste Schritt ist nun immer die Festlegung der Na¬ 
men von Ein- und Ausgabedatei. Die entsprechende Funk¬ 
tion erreichen Sie durch Drücken von < F5 >. Beim Namen 
der Giga-CAD-Datei muß übrigens das Präfix »ob.« nicht 
miteingegeben werden, das Programm ergänzt dies auto¬ 
matisch. Wichtig ist vor allem, daß der Name der Eingabe¬ 
datei, also des zu konvertierenden Objektes stimmt, der 
Name der Ausgabedatei kann frei gewählt werden. 

Directory ausgeben 

Wer sich nicht mehr an einen Namen erinnern kann oder 
sich für den freien Platz auf der Diskette interessiert, läßt 
sich durch einen Druck auf <F8> das Inhaltsverzeichnis 
der im Laufwerk liegenden Diskette ausgeben. Zurück ins 
Menü gelangt man mit < RETURN >. 

Programm beenden 

Sollten Sie das Programm beenden wollen, so geschieht 
das einfach über einen Druck auf <F7>. Danach steht 
aber das Basic-Programm samt den Maschinenroutinen 
von Giga-CAD noch im Speicher, so daß es mit dem Befehl 



Veririndung zwischen 


GOTO 1000 neu gestartet werden kann, wobei die doch et¬ 
was lange Prozedur des Nachladens entfällt. 

Giga-CAD nach PED konvertieren 

Wie gesagt gestaltet sich diese Funktion etwas einfa¬ 
cher, da die definierten Flächen direkt in ihre Begrenzungs¬ 
linien aufgelöst werden können. Die Taste < Fl > zum Auf¬ 



Bild 1. Der Flügel einmal In Giga-CAD... 


ruf der Konvertierung Giga-CAD nach PED ist übrigens ge¬ 
nauso gesperrt wie die Taste <F3>, solange noch keine 
Namen für Ein- und Ausgabedatei festgelegt wurden. 

Ansonsten aber löscht sich der Bildschirm, und es er¬ 
scheint die Aufforderung »BITTE WARTEN«. Nun wird die 
Datei geladen, das Objekt konvertiert und in der neuen Da¬ 
tei gespeichert. Sollte während dieses Prozesses ein Dis¬ 
kettenfehler auftreten, so meldet sich das Programm mit 
der Ausgabe der Fehlermeldung. Sie können nun entweder 
den Fehler beheben (richtige Diskette einlegen oder ähnli¬ 
ches) und mit einem Druck auf eine Taste fortfahren oder 
die Konvertierung durch <F1 > abbrechen. 

Nach erfolgreicher Konvertierung erscheint am Bild¬ 
schirm wiederdas Hauptmenü, die bisherigen Dateinamen 
in der Eingabemaske wurden gelöscht. Auf der Diskette be¬ 
findet sich die an sich schon funktionsfähige Objektdatei im 
PED-Format, jedoch tut sich hier noch ein kleines Problem 
auf: Die Länge einer Datei wächst bei der Konvertierung un¬ 
ter Umständen auf das sechs- bis siebenfache, und oft ist 
dies für den etwas kleinen Objektspeicher von PED noch zu 
groß. 

Daher ist noch die Anwendung des zweiten Programms, 
»Obj-Kompaktor«, nötig, die prinzipiell die gleiche Wirkung 
hat wie der Menüpunkt DOPPELPUNKTE/LINIEN-LÖ- 
SCHEN unter PED. Nach dem üblichen Laden und Starten 
des Programms muß nur noch der Name der PED-Datei 
eingegeben werden, und unverzüglich beginnt der Lade- 
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Konverter 

Gigu-CAD und KD 

und Komprimierungsvorgang. Währenddessen werden 
übrigens am Bildschirm die zusammengefaßten Doppel¬ 
punkte und -linien mitgezählt. Die Komprimierung dauert 
einige Zeit, daher empfiehlt es sich, das Programm zu com- 
pilieren, die Berechnungszeit sinkt dadurch erheblich. Auf 
der Leserservice-Diskette ist eine solche compilierte Ver¬ 
sion des Programms unter dem Namen »Obj-Kompaktor.M« 
zu finden. Diese ist grundsätzlich genauso zu bedienen wie 
das ursprüngliche Basic-Programm. Ist die Berechnung 
beendet, so finden Sie am Bildschirm folgenden Text: 
NEUES FILE SPEICHERN 
NEUE ECKEN UND KANTEN ANZAHL : 


mit <1 > geladen und aktiv. Die Unterroutine verlangt nur 
noch den Namen der zu ladenden Datei. 

<2> Flächenfile speichern 

Eine gerade erstellte Flächendefinition wird über <2> 
zur späteren Verwendung gespeichert. Die Unterroutine 
verwendet natürlich ebenfalls den Namen der Datei. 

<3>Giga-CAD-File speichern 

Anhand der geladenen Punktetabelle und der Flächen¬ 
definition errechnet »Objektkonverter« das endgültige 
Giga-CAD-Format und speichert das Objekt unter dem 
schon vorher festgelegten Namen. Wurde eine nicht sinn¬ 
volle Flächendefinition festgestellt (wenn zum Beispiel eine 
Fläche durch vier Punkte definiert wurde, die gar nicht in ei¬ 
ner Ebene liegen), so bricht die Berechnungsroutine ab. 
Korrigieren Sie am besten Ihre Flächendefinition mit dem 
Menüpunkt 5. 

<4> Flächen neu eingeben 

Das Programm erwartet nun die Eingabe einer variablen 
Anzahl von Punkten, die die Fläche definieren sollen. Dafür 
sind die Punktenummern zu verwenden, die PED in sei¬ 
nem Menüpunkt »Bildpunkte« auflistet. Zu beachten ist, 
daß die angegebene Kombination von Punkten zu einer 


xxx xxx 

GLEICHNAMIGES FILE WIRD UEBERSCHRIEBEN 
FILENAME? 

Wenn nun für die Ausgabedatei der Name einer bereits 
auf der Diskette existierenden Datei eingegeben wird, so 
wird diese überschrieben. Nach dem Speichern ist das Pro¬ 
gramm automatisch beendet und das Objekt ist bereit zum 
Einlesen in PED. 

PED nach Giga-CAD konvertieren 

Wie auch bei der umgekehrten Konvertierung kann die¬ 
ser Menüpunkt erst aufgerufen werden, wenn die Namen 
von Ein- und Ausgabedatei feststehen. Dann lädt das Pro¬ 
gramm unverzüglich die angegebene PED-Datei ein und 
meldet sich mit einem neuen Untermenü. Sie sollten be¬ 
achten, daß der »Objekt-Konverter« nur PED-Dateien bis zu 
einer Länge von etwa 30 Blöcken verarbeiten kann. Wird 
diese überschritten, so bricht das Programm mit einem 
»OUT OF MEMORY ERROR« ab. Es empfiehlt sich also, 
PED-Dateien erst zu packen. 

Das nun folgende Untermenü stellt die zur Definition der 
Flächen nötigen Funktionen zur Verfügung: 

<1 > Flächenfile laden 

Sollten Sie bereits zu der PED-Datei eine Flächendefini¬ 
tion durchgeführt und diese gespeichert haben, so wird sie 



3D - KONUERT BV STEFAN SABLATNOG 
OBJEKTE VON GIGA-CAD UND PED 
KOENNEN UNTEREINANDER AUSGETAUSCHT 


WERDEN 


GIGA-CAD FILE-NAME :OB.- 


PED 


FILE-NAME 


GIGA-CAD -> PED 
>F3<- PED -> GIGA-CAD 
>F5<— NAMEN FESTLEGEN 
>F7<- ENDE 
>FG<:- DIRECTORY 


Bild 2. ...und als PED-Objekt nach der Konvertierung 


Bild 3. Das Hauptmenü des Konverters 

Ebene überhaupt möglich ist, da sonst wie beschrieben 
Menüpunkt 3 nicht ausgeführt werden kann. Die Definition 
einer einzelnen Fläche schließen Sie mit der Eingabe von 
< FE > ab, die gesamte Definition mit < E >. VORSICHTI 
Der Aufruf dieser Unterroutine löscht die bisherige Flä¬ 
chentabelle! Wurde die Definition einmal abgeschlossen, 
so ist sie nur noch mit Hilfe von Menüpunkt 5 zu verändern. 

<5> Flächen editieren 

Die fertige Flächendefinition kann auf mehrere Arten 
nachträglich verändert werden, weshalb hier auch ein eige¬ 
nes kleines Untermenü angeboten wird: 

<1 > Flächen anhängen 

Die Bedienung dieser Funktion entspricht der von »Flä¬ 
chen neu eingeben« mit dem Unterschied, daß die einge¬ 
gebenen Flächen an die bereits existierende Definition an¬ 
gehängt werden. 

<2> Fläche ändern 

Die einzelnen Punkte einer Fläche können auch nach¬ 
träglich noch gewechselt werden. Zwar ist es nicht möglich, 
die Anzahl der Eckpunkte im Nachhinein zu erhöhen, es 
stehen allerdings folgende Sonderfunktionen zur Verfü¬ 
gung: 

—4 als Eckpunktnummer schließt die Definition der einzel¬ 
nen Fläche ab. 
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—3 dient als Zeichen für einen gelöschten Eckpunkt und 
wird vom Programm übergangen. 

—2 kennzeichnet die zuvor definierte Fläche als letzte des 
Objektes. 

<3> Fläche löschen 

Nach einer Sicherheitsabfrage wird die gewählte Fläche 
völlig gelöscht. Gleiches würde auch eine Neudefinition 
der Fläche mit —3 für alle Eckpunktnummem bewirken. 

<4> Zurück 

Führt in das vorhergehende Flächenmenü zurück. 

<6>Flächen listen Bildschirm 

Gibt eine vollständige Liste aller definierten Flächen mit 
den Nummern der Eckpunkte auf den Bildschirm aus. Die 
Auflistung kann mit einer beliebigen Taste bis zum näch¬ 
sten Tastendruck unterbrochen werden. 

<7> Flächen listen Drucker 

Entsprechend dem Punkt 6 des Menüs wird die Flächen¬ 
liste auf den Drucker ausgegeben. 


<0> Zurück 

Sollte Ihnen jetzt erst auffallen, daß Sie die falsche Datei 
gewählt oder einen ähnlichen Fehler begangen haben, so 
kommen Sie mit einem Druck auf <0> zurück ins Haupt¬ 
menü, wobei die eben geladenen Daten verlorengehen. 

Gewöhnlich sieht also die Konvertierung eines PED- 
Objektes in ein Giga-CAD-Objekt so aus: 

— Start des Programms 

— Eingabe der Dateinamen 

— Aufruf der Konvertierung mit <F3> 

— Eingabe der Flächen mit Untermenüpunkt <4> 

— eventuelle Korrektur der Definition mit Untermenü¬ 
punkt <5> 

— Speichern der Flächendefinition für spätere Verwen¬ 
dung mit Untermenüpunkt <2> 

— Berechnung des Giga-CAD-Objektes mit Untermenü¬ 
punkt <3> 

Die danach auf der Diskette entstandene Datei kann nun 
direkt in Giga-CAD eingeladen werden. Oft ist das Objekt 
zu klein oder zu groß, um sofort im Drahtmodell erkannt zu 
werden, wählen Sie daher zuerst die Zoom-Funktion »opti¬ 
maler Ausschnitt« an, um sich einen Überblick zu verschaf¬ 
fen. (Stefan Sablatnög/Nikolaus Huber/sk) 


1000 IF A=0 THEN PRINT"{CUR,13D0WN,SPACEJB 
ITTE GIGADISK EINLEGEN"sPOKE 19B,0:WA 
IT 198,1 

1010 IF A=0 THEN POKE 55,0:POKE 56,80:CLR: 
A=0 

1020 IF A=0 THEN A=1:LOAD"HIRESl.CAD.OBJ", 

8,1 

1030 IF A=1 THEN A=2:L0AD"HIRES2.CAD.OBJ", 

8,1 

1040 IF A=2 THEN A=3:LOAD"HIREB3.CAD.OBJ", 

8,1 

1050 IF A=3 THEN A=4:LOAD"HIRES4.CAD.OBJ", 

8,1 

1060 SE=0:CLR:CLOSE 14:0PEN 14,8,15 

1070 POKE 53280,11:POKE 53281,11 

1080 SM*="CCLR,25D0WN»":PRINT SM* 

1090 PRINT" {UIHITE,R VOFF> 

.«■ * .*■ * ■«■**"; 

1100 PR I NT " > " i 

1110 PRINT"C24SPACE »"CHR* < 34 >“"; 

1120 POKE 212,0 

1130 PRINT"£4SPACE> == <3SPACE>3D - KONVERT 
BY "i 

1140 PR INT "STEFAN SABLATNDG C3SPACE »--.C4SPA 
CE > "; 

OBJEKTE VON GIGA-CAD UND"; 

PEP C5SPACE ».---.C2SPACE 1KOENNEN U 


1150 

1160 


< 047 > 


< 248 > 


< 079 > 


< 129 > 


<1 


77 > 


PRINT' 

PRINT 1 
NTE"; 

1170 PRINT"REINANDER AUSBETAUSCHTC2SPACE»= 
" 5 

1180 PR I NT " = C16SPACE»WERDENC2SPACEJ"| 

1190 PRINT"<14SPACE> == C9BPACEJ"J 
1200 PRINT”C25SPACEJ") 

1210 PRINT"MBPACEJ^B 

1230 PRINT"A-CAD FILE-NAME :OB.~-" 

1240 PRINT" 

1250 PRINT" 

1260 PRINT" = PEDC 6 SPACE»FILE-NAME :- "5 

1270 PRINT"-: 

1290 PRINT" wwtU -C19SPACE»" ; * 

1300 PRINT" C19SPACE> —C3SPACE»>" ; 

1310 PRINT"Fl<— GIGA-CAD -> PEDC5SPACE»"; 
1320 PRINT" C9SPACE J=<14SPACE J" i 
1330 PRINT"C24SPACE »^"; 

1340 PRINT" = C3BPACEJ>F3<- PED -> GIGA-CAD" 
> 

1350 PR I NT " < 14SPACE »=C9SPACE J " J 
1360 PRINT"C25BPACE »"5 

1370 PRINT"C4SPACE» = ^C3SPACE»>F5<— NAMEN F 
EST"; 

1380 PRINT"LEGENC14SPACE» == <4SPACE »"5 
1390 PRINT"C25SPACE 3 "5 

1400 PRINT"<9SPACE»c=<3SPACE»>F7<- ENDE "5 


<225> 

<1B0> 

<233> 

< 202 > 

<030> 

<092> 

< 100 > 
<211 > 

< 001 > 

< 103> 

< 124» 

< 167> 

<009> 
<039> 
<226> 
<1B4> 
<007 > 

< 191 > 
<251 > 
<006> 

< 16B> 
<067> 
<236> 

< 153> 
<014> 
<00B> 
<22B> 
< 102 > 

< 162> 

<165> 

< 132> 
<090> 

< 117> 
<00B> 

< 120 > 

<217> 


1410 PRINT"C24SPACE» = "; <242> 

1420 PRINT" = C24SPACE»"5 <252> 

1430 PRINT" <14SPACE»^C3SPACE»>FB<- "5 <137> 

1440 PRINT"DIRECTORYC16SPACE»"5 <037> 

1450 PRINT" C4SPACE» = C20SPACEJ"; <232> 

1460 PR I NT "< 1BSPACE 5 <003> 

1470 PRINT" *3U*&J^**M&*********#M*? ' : <0B7> 

1480 PRINT" : <021 > 

1490 PRINT"CHOME,8D0WN,22RIGHT,YELLOW»“;NG 

* <148> 
’MT"CHOME,10DOWN,22RIGHT J";NP*;"CWH 

<094> 

1510 POKE 198,0:WAIT 198,1 <212> 

1520 GET G* <252> 

1530 IF ASC<G*+CHR*<0>>=133 THEN IF SE=1 T 

HEN 4430 <025> 

1540 IF ABC <G*+CHR*(0))=134 THEN IF SE=1 T 

HEN 1680 <059> 

1550 IF ASC<G*+CHR*<0>>=135 THEN GOTO 1580 <204> 

1560 IF ASC<G*+CHR*<0>>=136 THEN PRINT"CCL 

R»":CLOSE 14:A=4:END <15B> 

1565 IF ASC<G*+CHR*<0))=140 THEN GOTO 1571 <11G> 

1570 GOTO 1510 <09B> 

1571 PRINT"CCLR »"5 <241> 

1572 OPEN 2,8,0,"*0":SYS 26134:CL0SE 2 <029> 

1573 POKE 198,0:WAIT 19B,lsP0KE 198,0 <152> 

1574 GOTO 1080 <247> 

1580 INPUT"CCLR,9D0WN»GIGA—CAD—FILE : "sNG 

* < 120 > 

1590 INPUT"CHOME,11DOWN»PED FILEC6SPACE}: 

"jNP* <19S> 

1600 IF LEFT*(NG*,3)< >"OB."THEN NB*="OB."+ 

NG* <061> 

1610 SE=1 <030> 

1620 GOTO 1080 <037> 

1630 REM «**#*****#*»******»****■»***#« <118> 

1640 REM * * <165> 

1650 REM « PED -> GIGA-CAD * <077> 

1660 REM * * <185> 

1670 REM »mm***»*#*##*#*#**»«*****»*« <158> 

1680 SYS 25919 <009> 

1690 SYS 37021 <0B6> 

1700 OPEN 1,B,2,NP*+",S,R" <200> 

1710 GOSUB 4790 <055> 

1720 IF ERC >0 THEN 1700 <164> 

1730 INPUT#1,K: INPUT# 1,E <002> 

1740 DIM X (E+l) ,Y<E+1> ,Z<E+1> ,N7.<E+1> ,F(K+ 

1>,T(K+l) <068> 

1750 FOR 1=1 TO K+l <093> 

1760 INPUT#1,F(I)cINPUT#1,T(I) <026> 

1770 NEXT <000> 

1780 FOR 1=1 TO E+l <120> 

1790 INPUT#1,X <I>:INPUT#1,Y <I>:INPUT#1,Z <I 

):INPUTHl,NX <I) • <161> 

1800 NEXT <032> 
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1B10 

1820 

1830 

1840 

1850 

1860 

1S70 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 


1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

2280 

2290 

2300 

2310 

2320 

2340 

2360 

2370 

2380 

2390 

2400 

2410 

2420 

2430 

2440 

2450 

2470 

2500 

2510 


CLOSE 1 <043> 

BQSUB 4790 <167> 

IF ER<>0 THEN 1B10 <032> 

DIM F%<1500) <251> 

PRINT SM* <160> 

PR I NT " <2SPftCE>JIJQ>A«J: M ^ 

A*.*AA*A1Ü!A*J." < 1B5> 

PRINT"(2SPACEJaC33SPACEJa" <243> 

PRINT"(2SPACE>a(9SPACEJFLAECHEN MENUE 
(10SPACEJa" <1B3> 

PRINT"(2SPACEJ-I33SPACEJa" < 007 > 

PRINT"(2SPACEJa -1-(2SPACEJFLAECHENFI 
LE LADEN(9SPACEJa" <132> 

PRINT"(2SPACEJa(33SPACEJa" <037> 

PRINT"(2SPACE Ja -2-{2BPACEJFLAECHENFI 
LE SPEICHERNC5SPACEJa" <125> 

PRINT"(2SPACEJa(33SPACEJa" <057> 

PRINT"(2SPACEJa -3-(2SPACEJBIGA~CADFI 
LE SPEICHERNC5SPACEJa" <1B7> 

PRINT"C2SPACEJa(33SPACEJa" <077> 

PRINT"(2SPACEJa —4—(2SPACEJFLAECHENIS 
PACE,RVSON,YELLOW >NEU(WHITE,RVOFF,SPA 
CE >EI NGEBEN (6SPACE Ja" <166> 

PRINT"C2SPACEJa(33SPACEJa" <097> 

PRINT"(2SPACE Ja -5-(2SPACE JFLAECHEN CS 
HIFT-SPACE JEDITIEREN(9SPACEJa" <072 > 

PRINT"(2SPACEJa(33SPACE Ja“ <117 > 

PRINT"C2SPACEJa -6-<2SPACE>FLAECHEN L 
ISTEN BILDSCHIRM a" <039> 

PRINT" (2SPACE>a(33SPACE Ja" < 137> 

PRINT"(2SPACEJa -7-(2BPACEJFLAECHEN L 
ISTEN DRUCKER(4SPACE1a" <216> 

PRINT"(2SPACEJa<33SPACEJa" <157> 

PRINT"(2SPACEJa -0-(2SPACE>ZURUECK (M 
IT DATENVERLUST) a" <194> 

PRINT"(2SPACEJa(33SPACEJa" <179 > 

PRINT" (2BPACFJ JHHawHHMummnni» 
*«*»*»«»»**11 " <092> 

POKE 198,0:WAIT 19B,1:BET B* <099> 

ON VAL(G*> GOTO 3020,2890,2450,2150,34 
30,3310,3200 6<1SS>> Offl 

IF G*="0"THEN 1060 <003> 

GOTO 2080 <027> 

REM ***************************** <100> 

REM ***** FLAECHEN EINBEBEN ***** <176> 

REM ***************************** <120> 

PJ=l:F7.(0)=-4 <054> 

PRINT SM* <216> 

PRINT"U 


*»*»**««1 " ; 

PRINT"a BITTE BEBEN SIE DIE PUNKTNUMM 
ERN EIN a"; 

PRINT" aD IE DIE BEWUENSCHTE FLAECHE DE 
FINIERENa"! 

PRINT" g«A«A«A<A«A*At2>JA»*A<". « .«.* A A **» ». 

PRINT"a(2SPACEJENDE DER FLAECHE MIT F 
E, ENDE DER(3SPACE1 a" * 

PRI NT " a(8SPACE>LETZTEN FLAECHE MIT E< 
9SPACEJa"5 

PR INT" JA*A«A«.«*A»«<A«A«»A*A» A » A *A«A«-.». 
.“A*«A*fAÜ." 5 

FOR LF=1 TO 17:PRINT!NEXT 
PRINT"(HOME,7DOWN}"; 

INPUT I* 

IF I*="E"TMEN F7.(PJ)=-2:BOTO 1850 
IF I*="FE"THEN GOTO 2400 
EP7.=VAL(I*> 

FOR 1=1 TO E+l 


<025> 


< 012 > 


<051 > 

<227> 

<205 > 

<195> 

<1B0> 
<214> 
<24B> 
<134> 
<197> 
<243> 
<251 > 
< 132 > 


IF NX < I) “EP7.THEN I=E+1: NEXT: GOTO 2370 <036> 
NEXT <044> 
GOSUB 5120 <122> 
BOTO 2260 <246> 
F7.(PJ)=EP7. <238> 
PJ=PJ+1 <062> 
GOTO 2260 <020> 
F7.(PJ)=-4:PJ=PJ+1 < 149 > 
BOTO 2160 <024> 
REM ***************************** <146> 
REM ******BIGAFILE SPEICHERN***** <110> 
REM ***************************** <166> 
PRINT SM* <252> 
BOSUB 5020 <236> 
FOR 1=1 TO PJ <01B> 
IF SBN<F7.(I> )=-l THEN 2640 <110> 


2520 FOR J=1 TO E+l <106> 

2530 IF N7.<J)=F7.(I)THEN F7. (I) =J: J=E+1: NEXT 

:GOTO 2640 <150> 

2540 NEXT <008> 

2550 PRINT SM* <096> 

2560 PRINT" (3SPACEJ .U.*-««*.«««*-«».««.«.«*.»*««*»« 

«»-*-«*-»-»-*■«■1. " < 180 > 

2570 PRINT"(3SPACEJa FEHLER IN DER FLAECHE 

NTABELLE a" <119> 

2580 PRINT"(3SPACEJa WAHRSCHEINLICH HABEN 

SIE EIN(2SPACEJa" <102> 

2590 PRINT"(3SPACEJa FALSCHES FLAECHENFILE 

GELADEN a" <081> 

2595 PRINT" (3SPACE Ja( 11 SPACE}>>TASTE<< (US 

PACEJa" <063> 

2600 PR INT" (3SPACE > A*A*A»A*AAAA»A»A*A»A»A». 

2610 FOR* LF=V TO 10:PRINT:NEXT <062> 

2620 POKE 198,0:WAIT 19B,1:P0KE 198,0 <1B3> 

2630 GOTO 1850 <062> 

2640 NEXT <110> 

2650 FS»1:PN=1:MF=1 <096> 

2660 FOR 1=1 TO PJ <1B0> 

2670 IF F7.(I>=-4 AND F3=0 THEN SYS 40206,F 

S,NF,1,0:FS=PN:NF=NF+1:F3=l:GOTO 2720 <093> 
2680 IF F7.(I)=-2 THEN 2730 <036> 

2690 IF F7.(I>=-3 DR F7.<I>=-4 THEN 2720 <246> 

2700 SYS 39718, X (F7.< I) > , Y (F7. <I)) ,-Z (F7. (I) ) 

,PN <1B3> 

2710 PN=PN+1:F3=0 <002> 

2720 NEXT <190> 

2730 SYS 40206,FS,NF,1,0 <138> 

2740 IF F3=l THEN NF=NF-1:PRINT PN;FS <065> 

2750 SYS 40206,PN,NF+1,0,0 <110> 

2760 OPEN 2,8,2,NG*+",S,W" <226> 

2770 UM=1:GOSUB 4790 <0B1> 

2780 IF ER< >0 THEN 2760 <002> 

2790 PRINT#2,NF+1:PRINT#2,PN-1:PRINT#2,1 <170> 

2800 SYS 22520,NF+1,PN-1 <146> 

2810 FOR 1=1 TO 1:PRINT42,"MACRO":NEXT <049> 

2820 CLOSE 2 <045> 

2830 UM=1:BOSUB 4790 <143> 

[S^öwIF ER< >0 THEN 2820 <036> 

2B50 GOTO 1060 <1BB> 

2860 REM ***************************** <07B> 

2870 REM *****F7. SPEICHERN********* <161> 

2880 REM ***************************** <09B> 

2890 GOSUB 3150 <244> 

2900 OPEN 1,8,2,NF*+",S,W" <100> 

2910 UM=1: GOSUB 4790: IF ERO0 THEN 2900 <238> 

2920 PRINT#1,PJ <199> 

2930 FOR 1=1 TO PJ <196> 

2940 PRINTttl,F7.(I) <255> 

2950 NEXT <166> 

2960 CLOSE 1 <177> 

2970 UM=1: GOSUB 4790: IF ERO0 THEN 2960 <171> 

2980 GOTO 1850 , <15B> 

2990 REM ***************************** <208> 

3000 REM *****F7. LADEN ********* <063> 

3010 REM ***************************** <228> 

3020 GOSUB 3150 <11B> 

3030 OPEN 1,B,2,NF*+",S,R" <220> 

3040 UM= 1: GOSUB 4790: IF ERO0 THEN 3030 <031> 

3050 INPUT#1,PJ <249> 

3060 FOR 1=1 TO PJ <070> 

3070 INPUT# 1,F7.(I) <049> 

3080 NEXT <042> 

3090 CLOSE 1 , <053> 

3100 UM= 1: GOSUB 4790: IF ERO0 THEN 3090 <223> 

3110 BOTO 1850 <034> 

3120 REM ***************************** <084> 

3130 REM *****GET F7.NAME ********* <09B> 

3140 REM ***************************** <104> 

3150 INPUT"(CLR.12D0WNJNAME DES FLAECHENFI 

LES";NF* <149> 

3160 RETURN <170> 

3170 REM ***************************** <134> 

3180 REM ***** F7. DRUCKEN ************ <055> 

3190 REM ***************************** <154> 

3200 OPEN 1,4:F=1 <172> 


Listing 1. »Objekt-Konverter«. 

Dieses Programm konvertiert Objekte zwischen 
PED und Giga-CAD. Bitte mit dem Checksummer 
(Seite 159) eingeben. 
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3210 FOR 1=1 TO PJ 

3220 IF FX (I > =-4 THEN PRINTttl,"—<"F")"sF= 
F+1:GOTO 3260 

3230 IF FX(I)=—2 THEN PRINTttl,"—("F">":PR 
INTttl: GOTO 3260 
3240 IF FX(I)=—3 THEN 3260 
3250 PRINTttl,"- “ j FX < I) j 
3260 NEXT 

3270 CL05E lsSOTO 1050 

3200 REM ***************************** 

3290 REM ***** FX AUSGEBEN *********** 

3300 REM ***************************** 

3310 F= 1:PRINT“tCLRJ"; 

3320 FOR 1 = 1 TO PJ 

3330 IF FX <I> =-4 THEN PRINT”—("F">":F=F+1 
t 0OTO 3360 

3340 IF FX < I > =—2 OR FX(I>—3 THEN 3360 
3350 PRINT"- " J FX < I >; I BET A*: IF M< >" "THEN 
POKE 190,0:WAIT 190,1:POKE 190,0 
3360 NEXT 

3370 PRINT"—<"F">" 

3300 POKE 190,0:WAIT 190,1:POKE 198,0 
3390 GOTO 1050 

3400 REM ***************************** 

3410 REM ***** EDITMENUE *********** 

3420 REM »•**•*•***»•**•******«*••**** 

3430 PRINT SM* 

3440 PRINT" {7SPACE>k*.«.«.W-W-**AW.WA*.*.^ 
ääÜ," 

3450 PRINT"<7BPACEJ = <24SPACE> = " 

3460 PRINT"<7SPACE> = t6SPACEJEDIT - MENUEC6 
SPACE> = " 

3470 PRINT"T7SPACE J^t24SPACE > = " 

3490 PRINT"<7SPACEJ = t24SPACE> = " 

3500 PRINT"t7SPACE> = -1- FLAECHEN ANHAENBE 
N 

3510 PRINT"<7SPACE> = t24SPACE>^" 

3520 PRINT"<7SPACE> = -2- FLAECHE(2SPACE>AE 
NDERN t3SPACE> = " 

3530 PRINT"t7SPACE>a<24SPACE> = " 

3540 PRINT"t7SPACE> = -3- FLAECHET2SPACEJL0 
ESCHEN <2SPACE Ja" 

3550 PRINT"<7SPACEJaC24SPACEJa" 

3560 PRINT"«SPACEJa -4- ZURUECK(12SPACE>- 

3570 PRINT"<7SPACEJa<24SPACEJa" 

3580 PRINT" t7SPACE> J>***»»*.»»»»**.**«.*«.*.».».«. 
.*.*■». " 

3590 FOR LF=1 TO 5:PRINT:NEXT 
3600 POKE 198,0:WAIT 198,1:GET 8* 

3610 ON VAL(G*> GOTO 3640,3900,4100,1B50 
3620 GOTO 3600 

3630 REM FLAECHE ANH. **************** 

3640 FX(PJ)=-4:PJ=PJ+1:PRINT SM* 

3650 PRINT" U>*»*.»«»**>*»«l»*>**J>*-»-«-«-*.»-*»*-*-*. 

3660 PRINT"a BITTE GEBEN SIE DIE PUNKTNUMM 
ERN EIN a"5 

3670 PRINT"oDIE DIE GEWUENSCHTE FLAECHE DE 
FINIERENa"! 

36B0 PRINT" g**>*J»»»>_»>«.**»_».*.»Ji_«_*_»_»_»_»_»>.*.».». 

* ***««+» ü"j 

3690 PRINT"=C2SPACEJENDE DER FLAECHE MIT F 
E, ENDE DER«SPACEJa“J 
3700 PRINT"a<BSPACEJLETZTEN FLAECHE MIT Et 
9SPACEJa"j 

ft.»J.*.1L«.1L*J." | 

3720 FOR LF=1 TO 17:PRINT:NEXT 
3730 PRINT"{HOME,7DOWNJ") 

3740 REM PJ BLEIBT ALT 
3750 INPUT I* 

3760 IF I*="E"THEN FX(PJ)=-2:GOTO 3430 
3770 IF I*="FE"THEN GOTO 3640 
37B0 EPX=VAL<I*> 

3790 FOR 1=1 TO E+l 

3B00 IF NX(I)=EPXTHEN I=E+1:NEXT:GOTO 3860 

3810 NEXT 

3820 BOSUB 5120 

3850 GOTO 3750 

3860 FX(PJ)=EPX 

3870 PJ=PJ+1 

3BB0 GOTO 3750 

3B90 REM FLAECHE AEND. *************** 


< 222 > 

<057> 

<060> 

< 141 > 
<058> 
< 222 > 

< 1B6> 
<244 > 
<07B> 
<008> 
<072> 
<076> 

<234> 

< 155> 

< 112 > 
<01B> 
<140> 

< 1B1 > 
<060> 
< 110 > 
<093> 

< 130> 
<216> 


3900 INPUT"CCLR,12DQWN »NUMMER DER ZU AENDE 
RNDEN FLAECHE (9999=<2SPACEJABBRUCH)" 

;NU <210> 

3905 IF NU = 9999 THEN 3400 <203> 

3910 F=1:1=1 <072> 

3920 IF FX(I>=-4 OR FX(I)=-2 THEN 4010 <192> 

3930 1=1+1 <103> 

3940 IF I=<PJ THEN 3920 <0B9> 

3950 BOSUB 5070 <096> 

4010 IF F=NU THEN 4040 <041> 

4020 F=F+1 <133> 

4030 GOTO 3900 <064> 

4040 1=1-1 <245> 

4050 IF FX(I>—4 THEN 3430 <064> 

4060 PRINT"tCLR,10DOWNJOLD POINT";FX(I) <02B> 
4070 INPUT"NEW POINT";FX(I) <122> 

4080 PRINT:PRINT:GOTO 4040 <249> 

4090 REM FLAECHE LOSC. *************** <123> 

4100 INPUT"<CLR,13D0WN»NUMMER DER ZU LOESC 

HENDEN FLAECHE<7SPACEJ"jNU <153> 

4110 PRINT SM* <134> 

4120 PRINT" 110SPACE<163> 
4130 PRINT"{10SPACEJa FLAECHE<2SPACEJNUMME 

R a" <031> 

4140 PRINT"{10SPACEJa.a" <229> 

4150 PRINT"110SPACE Ja«SPACEJLOESCHEN ??t3 

SPACEJa" <11B> 

4160 PRINT"tl0SPACEJa<5SPACEJ»J/N<< C5SPAC 


<025> 

<043> 


EJa" 

4170 PRINT"110SPACE JjLi 


<236> 

<164> 


41B0 PRINT"t4UP,18RIGHT,YELLOW J"NU"<WHITE J 


<075> 


« 


<246> 

<063> 

4190 

FOR LF=1 TO 10:PRINT:NEXT:POKE 

198,0: 




WAIT 198,1:BET G*:IF G*="N"THEN 

3410 

<224> 

<219> 

4200 

IF G*< >"J"THEN 4110 


<055> 

<083> 

4210 

F=l:1=1 


< 11B> 


4220 

IF FX(I)=—4 OR FX(I> =-2 THEN 4310 

< 174> 

<140> 

4230 

1 = 1 + 1 


<149> 

< 103> 

4240 

IF I=<PJ THEN 4220 


< 109> 


4250 

GOSUB 5070 


<142> 

< 194> 

4310 

IF F=NU THEN 4340 


<093> 

< 123> 

4320 

F=F+1 


<179> 

^GR 

4330 BP Tr ' 4230 


<102> 

<025> 

4340 

1 = 1-1 


<035> 

< 143> 

4350 

IF FX(I)=—4 THEN 3430 


<110> 


4360 

FX(I)=—3 


<203> 

<051 > 

4370 

GOTO 4340 


<192> 

<163> 

4380 

REM •IHMMHMMHHHMHMMHHHHMMMMUHMUMHfr# 

<074> 


4390 

REM * 

# 

< 121 > 

<052> 

4400 

REM * GIGA-CAD -> PED 

* 

< 176> 

<234> 

4410 

REM * 

* 

< 141 > 

<236> 

4420 

REM ****************************** 

< 114> 

<027> 

4430 

GOSUB 5020 


<164> 

< 116> 

4480 

SYS 37021 


<082> 

<036> 

4490 

OPEN 2,8,2,NG*+",S,R" 


<168> 

< 176> 

4500 

GOSUB 4790:IF ER< >0 THEN 4490 


<213> 


4510 

INPUT#2,V:INPUTtt2,D:INPUTtt2,K 


< 105> 

<237> 

4520 

SYS 22541,V,D 


<237> 


4530 

FOR 1=1 TO K:INPUTW2,B*<I):NEXT 


< 172> 

<224> 

4540 

CLOSE 2 


<241 > 


4550 

GOSUB 4790:IF ER<>0 THEN 4540 


<254> 

<007 > 

4560 

SYS 40206,D+1,V,0,0 


<159> 


4570 

OPEN 1,8,2,NP*+",S,W" 


<030> 

<183> 

4580 

GOSUB 4790: IF ERO0 THEN 4570 


<034> 


4590 

PRINTttl,D—1:PRINTttl,D-1 


<092> 

< 161 > 

4600 

FOR 1=1 TO V-l 


<028> 


4610 

SYS 40344,1 


<143> 

< 151 > 

4620 

FB=USR(1):Y=USR(2):Z=USR(3) 


<252> 


4630 

SYS 40344,1+1 


<214> 

< 136> 

4640 

FE=U8R(1>:Y=USR(2):Z=USR(3) 


< 128> 

<170> 

4650 

FOR J-FB TO FE—1 


< 130> 

<204> 

4660 

IF J=FE—1 THEN PRINTttl,FB:PRINTttl,J:G 


<143> 


OTO 4680 


<035> 

<100> 

4670 

PRINTttl,J:PRINT#1,J+1 


<076> 

<225> 

4680 

NEXT 


< 11B> 

<034> 

4690 

NEXT 


< 128> 

<217> 

4700 

FOR 1=1 TO D 


<10B> 

<09B> 

4710 

SYS 40052,1 


<210> 

<194> 

4720 

X=USR <1):Y=USR(2):Z=USR(3> 


< 194> 

<00B> 

4730 

PRINTttl,X:PRINTttl,Y:PRINT*1,-Z:PRINT# 


<076> 


i.x 


<034> 

<012> 

4740 

NEXT 


< 178> 

<204> 

4750 

CLOSE 1 


<1B9> 

<02B> 

4760 

BOSUB 4790: IF ERO0 THEN 4750 


<214> 

<042> 

4770 

GOTO 1060 


<074> 

<006> 

47B0 

REM FLOPPYFEHLERKANAL 


<07B> 
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4790 

4800 

4810 

4B20 

4830 

4840 

4850 

4860 

4B70 

4880 

4890 

4900 

4910 

4920 

4930 

4940 

4950 

4960 

4970 

4980 

4990 

5000 

5010 

5020 

5030 

5040 

5050 

5060 

5065 

5070 

5080 

5085 

5086 

5088 

5100 

5105 

5110 

5120 

5130 

5140 

5150 


INPUT#14,ER,ER*,TR,SE <170> 

s <204> 

IF ER=0 THEN RETURN <046> 

CLOSE IsCLOSE 2 <070> 

PRINT SM* <090> 

PRINT"«0SPACE ) .UAWWMWU.UW. 11 < 042 > 
PRINT"<10SPACE > = {2SPACE>BITTE {2SPACE > 
BEHEBEN(2SPACE> = " <046> 

PRINT 1 '«0SPACE > = {5SPACE}SIE(2SPACE> DA 
S{5SPACE> = " <245> 

PRINT"tl0SPACE> = FLOPPY - PROBLEM = " <030> 

PRINT"«08PACE> = «BSPACE} = " <205> 

PRINT"«0SPACEJ = {2SPACEJTASTE - NOOHM 
AL = " <144> 

PRINT"a0SPACE>^C28PACE>F1{2SPACE >-<3 
SPACEJABBRUCH =" <135> 

PRINT"tl 0SPACE > = « BSPACE >=" <245> 

PRINT"« 0SPACE <214> 

FOR LF-1 TO 10:PRINT:NEXT LF <160> 

IF LEN (ER*) <17 THEN ER*-" "+ER*+" ":B 
OTO 4950 <165> 

IF LEN(ER*)-17 THEN ER*=ER*+" " <145> 

PRINT"{HOME,12D0WN,11RIGHT,RVSON,YELL 
OW >"j ER* s"{RVOFF,WHITE >" < 248> 

POKE 198,0:WAIT 19B,1:BET B*:IF ASC(G 
*+CHR*(0>)=133 THEN 5000 <041> 

RETURN <222> 

IF UM=1 THEN UM-0:GOTO 1850 <218> 

GDTO 1060 <060> 

PRINT SM* <026> 

PRINT"« 29PACE > " <250> 

PRINT"«2SPACE> = BITTE WARTEN = " <123> 

PRINT"{12SPACEJ **.*««K " <109> 

FOR LF—1 TO 10:PRINT:NEXT LF <024> 

RETURN <041> 

PRINT SM* <076> 

PRINT" 


<15B> 


<231 > 


PRINT"{3SPACE> = DIESE FLAECHE EXISTIE 
RT NICHT -" 

PRINT"{3SPACE>-«1SPACE > > >TASTE<<{11S 
PACEJ-" <01 2> 

PRINT" {3SPACE J J.«-*.«-*»»»-»«»** «»-innnnm-* 
»mUHinn«« " <021 > 

FOR LF—1 TO 10:PRINT:NEXT <010> 

POKE 198,0:WAIT 198,1:P0KE 198,0 <126> 

RETURN <0B6> 

PRINT" {5SPACE) JJ>J(>>».*>A»>«>>*»«.-»*»*>* 

< 171 > 

PRINT"{5SPACE> = DER PUNKT EXISTIERT N 
ICHT <032> 

PRINT" {5SPACE 1 J 

<016> 

RETURN <128> 


Listing 1. »Objekt-Konverter« (Schluß) 


1000 REM ***##*****#*##*#*«»**«#**#*##*### <113> 
1010 REM * * <041> 
1020 REM * PED DATEN KOMPRESSOR FUER * <19B> 
1030 REM # FILES DIE ZU GROSS SIND * <177> 
1040 REM * UND NICHT MEHR IN PED SELBST # <069> 
1050 REM * KOMPRIMIERT WERDEN KOENNEN * <131> 
1060 REM # * <093> 
1070 REM **#**#***#*#*#**#*#*»»»#*•**«*##* <1B5> 
1080 OPEN 14,8,15 <206> 
1090 INPUT"{CLR,9D0WN>NAME DES ZU KOMPRIMI 

ERENDEN FILES "jN* <1B4> 
1100 OPEN 1,B,2,N*+",S,R" <028> 
1110 GOSUB 1780: IF FO0 THEN 1090 <03B> 
1120 INPUT#1,K:INPUT#1,E <156> 
1130 DIM X(E+2>,Y(E+2>,Z(E+2) <015> 
1140 DIM XN(E+2),YN(E+2),ZN(E+2> <141> 
1150 DIM P1X(K+1>,P2X(K+1) <23B> 
1160 FOR N=1 TO K+l <051> 
1170 INPUT#1,PIX <N):INPUT#1,P2X(N) <217> 
1180 NEXT <174> 
1190 FOR 1=1 TO E+l <038> 
1200 INPUT#1,X(I):INPUT#1,Y(I>:INPUT#1,Z(I 

):INPUTttl,N <0B7> 
1210 NEXT <204> 


1220 CLOSE 1 <215> 

1230 GOSUB 1780:IF F<>0 THEN 1090 <15B> 

1240 PRINT"<CLR>”sE+l 5 K+l < 102 > 

1250 PRINT"DOPPELPUNKTE" <1B4> 

1260 FOR N=1 TO E+l <148> 

1270 PRINT"{HOME,2D0WNJ";N <244> 

1280 XN(N)=X(N>:YN(N)—Y(N>:ZN(N)—Z(N) <13B> 

1290 IF X—9999 THEN 1330 <005> 

1300 FOR S-N+l TO E+l <0B5> 

1310 IF(X(N)—X(S))THEN IF(Y(N)=Y(S))THEN I 
F(Z(N)=Z(S))THEN X(S)—9999:Y(S)-Nt Z( 

S>=0 <162> 

1320 NEXT 8 <214> 

1330 NEXT N <1B4> 

1340 FOR N=1 TO K+l <233> 

1350 IF X(P17.(N) )—9999 THEN P17.(N)-INT (YN 

(PIX(N))) <091> 

1360 IF X(P27.(N> )—9999 THEN P2X(N)-INT(YN 

(P2X(N))> <1B2> 

1370 NEXT <110> 

1380 PRINT"{CLR.DOWNJDOPPELLINIEN" <236> 

1390 FOR N—1 TO K <015> 

1400 PRINT"{H0ME,2D0WNJ";N <120> 

1410 FOR S-N+l TO K+l <207> 

1420 IF(PIX(N)—PIX( 8 ))AND(P2X(N>-P2X(B))TH 

EN PIX(S)—1:P2X(S)—1 <231> 

1430 IF(PIX(N)—P2X(S))AND(P2X(N)-PIX(S)> TH 

EN P1X(S>— 1:P2X(S>— 1 <241> 

1440 NEXT <1B0> 

1450 NEXT <190> 

1460 PRINT"{CLR,DOWNJNEUE PUNKTE UND KANTE 

NANZAHL ERMITTELN" <044> 

1470 EN—1 <059> 

1480 FOR 1=1 TO E+l <074> 

1490 IF XN< 1)0-9999 THEN EN-EN+1 <093> 

1500 NEXT <240> 

1510 KN—1 < 123> 

1520 FOR 1=1 TO K+l <117> 

1530 IF PIX (1)0-1 THEN KN-KN+1 <1B1> 

1540 NEXT <026> 

1550 PRINT"{CLR,DOWNJNEUES FILE SPEICHERN" 

:PRINT <146> 

1563 ' 'RINT:PRINT"NEUE ECKEN UND KANTEN ANZ 

AHL :“sEN;KN <087> 

1570 IF EN<=320 OR l<N<=640 THEN 1630 <132> 

1580 PRINT"FILE NOCH ZU GROSS FUER PED" <247> 
1590 PRINT"{RVSON>A{RVOFFJBRECHEN ODER{SPA 

CE,RVSONJT{RVOFFTROTZDEM SPEICHERN" <126> 
1600 POKE 19B,0:WAIT 19B,ltBET B* <012> 

1610 IF G#="A"THEN CLOSE 14:PRINT"{CLR>":E 

ND <190> 

1620 IF G*<>"T"THEN 1600 <049> 

1630 PRINT:PRINT"GLEICHNAMIGES FILE WIRD U 

EBERSCHRIEBEN"t PRINT:PRINT < 219 > 

1640 INPUT"FILENAME "5 N* <05B> 

1650 OPEN 1,B,2,"@:"+N*+",S,W" <060> 

1660 BOSUB 1780:IF F<>0 THEN 1650 <079> 

1670 PRINT#1,KN:PRINT#1,EN <016> 

1680 FOR 1=1 TO K+l <023> 

1690 IF P1X(IX>-1 THEN PRINT#1 ,P1X(I):PRI 

NT#1,P2X(I) <200> 

1700 NEXT <186> 

1710 FOR 1=1 TO E+l <050> 

1720 IF XN(IX >-9999 THEN PRINTttl,XN(I):PR 

INT#1,YN(I):PRINT#1,ZN(I):PRINT#1,I <047> 
1730 NEXT <216> 

1740 CLOSE 1 <227> 

1750 BOSUB 1780: IF FO0 THEN 1650 <169> 

1760 CLOSE 14:END <161> 

1770 REM FLOPPYFEHLERKANAL <U 6 > 

1780 INPUT#14,F,F*,F1,F2 <18B> 

1790 IF F—0 THEN RETURN <203> 

1800 CLOSE 1 <033> 

1810 PRINT"{CLR,2D0WN,2RIGHTJFLOPPYFEHLER: 

“ <196> 

1820 PRINT"{RIGHTJ"Fj F*; Fl;F2 <1B0> 

1830 PRINT"NOCHMAL ? (J/N)" <143> 

1840 POKE 19B,0:WAIT 198,1:GET B* <254> 

1850 IF G*=“J"THEN RETURN <160> 

1860 IF G*< >"N"THEN 1840 <189> 

1870 PRINT"{CLRJ"tCLOSE 14:END <179> 

Listing 2. »Obj-Kompaktor«. 

Dieses Programm optimiert Ihre PED-Datelen. 

Bitte mit dem Checksummer (Seite 159) eingeben. 
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Ein Sprite-Editor, mit dem Sie bis zu sechs Sprites 
gleichzeitig verwalten können, der mit Pull-Down-Menüs, Joystick-Steuerung und Sonder¬ 
funktionen arbeitet, die Sie sonst nur in großen Malprogrammen 
finden, und der durch Zusatzmodule beliebig erweiterbar ist, verdient das Prädikat 
»Spitzenklasse«. Sie werden staunen, was »Hypra-Sprite« alles leistet. 

ähnliches enthalten. Wir stellen Ihnen hier bereits eine sol¬ 
che Erweiterung vor, bei der es sich um ein Animationspro¬ 
gramm für mehrere Sprites handelt. Damit lassen sich klei¬ 
ne »Filme« erzeugen oder Spielsituationen simulieren. 

Jetzt geht's los - Start des Programms 


Geladen und gestartet wird Hypra-Sprite (Listing 1) mit 

LOAD "SPRITE-START",8 

und RUN. Zunächst wird ein Titelbild aufgebaut, dann wird 
das Hauptprogramm HYPRA SPRITE (Listing 2) nachgela¬ 
den, und es erscheint der Arbeitsbildschirm von »Hypra- 
Sprite« (Bild 1). In der obersten Zeile stehen einige Buchsta¬ 
ben und Zahlen; diese enthalten verschiedene Angaben 
über die Bildschirmkoordinaten, die aktuelle Sprite- und 
Farbnummer etc. (Textkasten). Die zweite Zeile ist die Me¬ 
nüzeile; sie besteht aus den Namen der fünf Pull-Down- 
Menüs: »FARBE«, »MODE«, »FORM«, »DISK« und »SPE¬ 
ZIAL«. Darunter ist ein abgegrenztes Feld, das eigentliche 
Editierfeld. Hier wird das gerade bearbeitete (aktuelle) Spri¬ 
te vergrößert dargestellt. Rechts davon befinden sich sechs 
Sprites. Der Mauszeiger, eine weiße Hand, zeigt auf die lin¬ 
ke obere Ecke des Bildschirms. 

Diese Hand, im folgenden als Pfeil bezeichnet, kann mit 
dem Joystick in Port 2 über den Bildschirm bewegt werden. 
Mit ihr werden sowohl die Pull-Down-Menüs ausgerollt, als 
auch viele Funktionen gesteuert. Zunächst bringen Sie bit¬ 
te den Pfeil in die Mitte des Editierfeldes und drücken die 
Taste <L>. Daraufhin werden alle sechs Sprites gelöscht. 
Bewegen Sie dann den Pfeil bei gedrücktem Feuerknopf 
durch das Feld. Es erscheinen einige Punkte, die auch 
rechts in einem der Sprites zu sehen sind. 

Wenn man den Pfeil auf einen der Begriffe in der Menü¬ 
zeile bewegt und den Feuerknopf drückt (festhalten), er- 



W er bisher geglaubt hat, das Erstellen und Editieren 
von Sprites für Spiele, Demonstrationen und ande¬ 
re Anwendungen sowie das Erzeugen filmartiger 
Sprite-Sequenzen ist aufwendig und kompliziert, der wird 
durch »Hypra-Sprite« eines Besseren belehrt. Mit diesem 
Programm steht Ihnen nämlich ein sehr komfortabel zu be¬ 
dienender Sprite-Editor zur Verfügung, der sehr viele Funk¬ 
tionen aufweist, die mit Pull-Down-Menüs aufgerufen wer¬ 
den. Selbst das Erstellen von Linien, Kreisen, Ellipsen etc. 
sowie eine Sprüh- und Textfunktion sind vorhanden. Die 
Sprites werden mit dem Joystick schnell und einfach bear¬ 
beitet und anschließend gespeichert oder in ein Basic-Pro- 
gramm eingebunden. Zusätzlich besteht die Möglichkeit, 
weitere Programmteile nachzuladen. Diese Erweiterungen 
sind weitgehend unabhängig vom Editor und können bei¬ 
spielsweise Druckprogramme, Construction Sets oder 


aas? 
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Direkt bestellen statt abtippen! 

Die aktuelle Diskette zum Heft: 


64'er Sonderheft 33: 

Tips, Tricks& Tools zum C64/C128 
Titelgenerator: 

Wenn Sie schon immer professionelle Programmvor- 
spänne für Ihre eigenen Programme verwenden wollte: 
Jetzt können Sie es. Ohne Programmierkenntnisse erstel¬ 
len Sie faszinierende Vorspänne mit Musik, Laufschrift, 
eigenen Zeichensätzen, Grafiken und und und... 


Hypra-Sprite: 

Ein Sprite-Editor der Spitzenklasse, der Funktionen bietet, 
die auf diesem Gebiet noch nicht da waren/Mit einer 
komfortablen Benutzeroberfläche lassen sich Sprites 
erzeugen, dehnen, stauchen, spiegeln etc. Das Erzeu¬ 
gen von Animationssequenzen und kleinen Filmen gehört 
zu den Leckerbissen des Programms. 


Alpha-Drummer: 

Der C64 wird zum Super-Schlagzeuger. 24 digitalisierte 
Drum-Sounds stehen Ihnen sofort zur Verfügung. Weitere 
können mit der im Programm integrierten Digitizer-Soft¬ 
ware von Ihnen erzeugt und bearbeitet werden. Stücke 
mit einer länge von über 15 Minuten sind kein Problem. 

Apfelsee: / U 

Eine ganz neue Variante der Fraktalprogramme: Ent¬ 
deckend^ die bizarre Schönheit dreidimensionaler 
Fraktal-landschaften. Weiterhin befinden sich auf der 
Diskette alle Programme, die im Inhaltsverzeichnis 
des 64'er-Sonderhefts 33 mit einem Diskettensymbol 
gekennzeichnet sind. 


Diskette für C64/C128 
Bestell-Nr. 15833 




DM29,90 ^(sFr 24,90*/öS 299r-*) 

* Unverbindliche Preisempfehlung 


BasIC-Kontroll-SyStem: Wenn Sie Fragen zu diesen Programmen oder zu anderen 

Machen Sie Schluß mit Syntaxfehlern und unsauberem Angeboten aus unserem Programm-Setvice haben, rufen Sie 
Programmierstil in Ihren Basic-Programmen! Das Basic- uns an: 

Kontroll-System spürt die häufigsten Programmfehler auf Telefon (089) 46 13-640 
und hebt so das Qualitätsniveau Ihrer Software. 
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Markt&Technik 

_ Zeitsch riften • Bücher 

_ Soft wo re • Schulung 

Markt&Technik Verlag AG, Buchverlag, Hans-Pinsel-Slraße 2, 8013 Haar bei Mönchen, Telefon (089) 4613-0 
Bestellungen im Ausland bitte an, SCHWEIZ, Markt&Technik Vertriebs AG, Kollerstrasse 3, CH-6300 Zug, Telefon (042) 415656. ÖSTERREICH, Markt&Technik Verlag 
Gesellschaft m.b.H., Große Neugasse 28, A-1040 Wien, Telefon (0222) 5871393-0; Rudolf lechner&Sohn, Heizwerkstraße 10, A-1232 Wien, Telefon (0222) 677526. 
Ueberreuter Media Verlagsges. mbH (Großhandel), laudongosse 29, A-1082 Wien, Telefon (0222) 481543-0 
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Sie suchen packende 
Spiele, hilfreiche Utilities 
und professionelle An¬ 
wendungen für Ihren 
Computer? Sie wünschen 
sich gute Software zu 
vernünftigen Preisen? 
Hier finden Sie beidesl 
Unser stetig wachsendes 
Sortiment enthält interes¬ 
sante Listing-Software 
für alle gängigen 
Computertypen. Jeden 
Monat erweitert sich 
unser aktuelles Angebot 
um eine weitere interes¬ 
sante Programmsamm¬ 
lung für jeweils einen 
Computertyp. 

Wenn Sie Fragen zu den 
Programmen in unserem 
Angebot haben, rufen 
Sie uns an: 

Telefon (089) 4613-640 
oder (089) 4613-133. 

Bosiollungen bitte nur gegen 
Vorauskasso an: Markt&Tochnik 
Verlag AG, Unternehmens- 
bereich Buchverlag, Hans-Pinsel- 
Straße 2, D-8013 Haar, 

Telefon (089) 4613-0. 

Schweiz: Markt&Technik 
Vertriebs AG, Kollerstrasse 3, 

CH-6300 Zug, Tolefon (042) 
415656. 

Österreich: Markt&Tochnik 
Vorlag Gosollschaft m.b.H., 
Großo Neugasse 28, 

A-1040 Wien, Telefon 
(0222)5871393-0, 

Mlcrocomput-ique, E. Schiller, 
Fasangasso 24, A-1030 Wien, 
Tolefon (0222) 785661; 

Bücherzentrum Meidling, 
Schönbrunner Straßo 261, 
A-1120 Wien, 

Telefon (0222) 833196. 
Ueberroutor Media, 

Verlagsges. mbH (Großhandel), 
Laudongasso 29, A108? Wien, 
Telefon (0222) 481543-0. 

Bestellungen aus andoron 
Ländorn bitte nur schriftlich an: 
Markt ÄTechnik Vorlag AG, 

Abt. Buchvortriob, Hans-Pinsel- 
Straßo 2, D-8013 Haar, und 
gegen Bezahlung dor Rechnung 
im voraus. 

Bitte verwenden Sie für 
Ihre Bestellung und 
Überweisung die abge¬ 
druckte Postgiro- 
Zahlkarte, oder senden 
Sie uns einen 
Verrechnungs-Scheck mit 
Ihrer Bestellung. Sie 
erleichtern uns die 
Auftragsabwicklung, und 
dafür berechnen wir 
Ihnen keine Versand¬ 
kosten. 


64'er Sonderheft 32: 

Floppy- und Drucker-Software 

Top-rlop Plus 

Der Super-Disketten-Monitor für den C128 arbeitet in seiner erweiterten 
Version nun auch mit der neuen floppy 1581 zusammen. Das Anlegen von 
Unterdirectories, den sogenannten »Partilions«, dos neue Dlsketlenlprmat 
der Floppy 1581, wird für jeden tianspaient. 

Kopieren wie ein Wollmoislor können Sie mit dom Kopiorptogrartvn 
»Hexer« für den C128 und einer Speichererweiteruna 1750. Sogar eine 
doppelseitige 1571-Diskette mit 360 Kbyle paßt in den Arbeitsspeicher 
und kann In einem Arbeitsgang beliebig oft dupliziert werden. 
Expansion-Basic: Erwecken Sie Ihre Speichererweilerung zum lebeni 
Den Betrieb einer blitzschnellen RAM-Floppy, Programmierung echter 
Windows mit Wiederherstellung des Bildschirminhalls und komfortable 
VDC-Programmlerung - das alles bietet Ihnen diese komfortable Baslc- 
Erweitorung für den C128. 

Hardcopies der Spitzenklasse: für Epson-Drucker, den Star NL-10 und 
MPS801 bieten Druckroutinen, Druckertielber für die verschiedensten Pro¬ 
gramme. So zum Beispiel für: EGA, das tolle Zeichenprogramm aus dem 
64'er-Magazin, Amlca-Painl, das Super-Malprogramm aus dem Sonder¬ 
heft 27, Die Star-Nl-IO-»Megadriver« für GEOS sorgen dafür, daß 
Schwarz wirklich schwarz Ist und Kreise auch als solche gedreckt werden. 
Vkfeilerhln belindeh sich alle Programme auf dor Diskette, die mit einem 
Diskellensymbol Im Inhaltsverzeichnis gekennzeichnet sind. 

Diskette für C64/Cl^8 

Bestell-Nr. 15832 DM 29,90* sFr 24,90*/öS 299,-' 


Probleme mit den verschiedenen Vteislonen des C128 kennt der Hexer 
nicht, es stehen verschiedene Veislonen »für alle Fälle« bereit. Besitzer des 
»Dolphin-DOS« können sich über eine Wrsion freuen, die mit diesem 
Floppy-Beschleuniger zusammenarbeitet. 

Unidat Pro: Der Wunsch jedes ernsthaften Compuler-Anwendeis ist eine 
leistungsfähige und komfortable Datelverwallung. Mit Unidat Pro wild 
dieser Wunsch Realität. Erstellen und verändern Sie eigene Datei- 
Masken. Hohe Zugriffsgeschwindigkoit auf Ihre Daten, die Unterstützung 
von Paßwörtern zum Datenschutz und eine Export-Funktion zeichnen 
diese Dateiverwaltung aus. Die Suche nach einem Datensatz erfolgt 
blitzschnell. 

nania: Spielen Sie gerne Wirlschaflsspiele? Wenn Ihnen diese 
Spiölgattung gefällt, Ist Moncomania das Richtige für Sie, Das Spielziel 
ist allerdings ein wenig anders als bei den üblichen Vertretern dieses 
Genres: \ferschleudern Sie Ihr Vermögen, so schnell Sie können. Vertrei¬ 
ben Sie sich die Zeit Im Spiel-Casino, kaufen Sie Aktien an der Börse, und 
wetten Sie beim Autorennen. Denken Sie daran, das Geld muß weg. 
Aber das Ist leichter gesagt als getan, als Millionär hat man's halt schwer! 
Diskette für CI28 

Bestell-Nr, 15829 DM 29,90* sFr 24,90'/öS 299,-' 


i mit viel Komfort 

n Traum bleiben. Mit diesem Pro- 
i Vorstellungen, Komfortable 
< läuft seit über einem Jahr 


64'er Sonderheft 
Praxiserprobte Mali 

Mailbox: Eine eigene Mailbox m 
gramm bauen Sie Ihre Box nach ei. 

Funktionen sind leicht zu erstellen. Die 
in der Schweiz; Praxisnähe ist also garantier 
Bonito: Entdecken Sie mit Ihrem C64 die Faszination des Kurzwellen- 
Empfanges. Das Programm »BONITO-RCA-64« versetzt Sie in die läge, 
Morse- und Fernschreibsendungen auf dem Monitor Ihres C64 in Klart 
milzulesen. Alles, was Sie dazu brauchen, ist ein Kurzwellenempfäni 
und eine kleine Korrverteischaltung. Die Bauanleitung hterzu finden Sie 
ebenfalls Im Sonderheft. 

Sound-Monitor: Dieses Programm enthält alles, was Profi-Musiker benöti- 

S ien. Dos Spektrum reicht von klanglichen leckerbisseabi: 
chkeit, eine Melodie auf der Tastatur zu spir 
dem C64 fantastische Mielkstücke, die sich hören lassen können. 
Messen, Steuern, Regeln: Mit dem Programm »Meßboy« und einer klei¬ 
nen Hardware-Schaltung sind Sie in der tage, Widerstände und Konden¬ 
satoren auf einfache Weise zu messen. Keine zehn Mark kostet die Schal¬ 
tung, mit der Sie gemeinsam mit dem C64 dieses Meßgerät realisieren 
können. 

Diskette für C64/C128 

Bestell-Nr. 15831 DM 29,90* sFr 24,90*/öS 299,-* 


64'er Sonderheft 28: 

Programme und Utilities zu GEOS 

Gootorm: Erschließen Sie sich die Welt der Datenfernübertragung mit 
'''GEOS. Geoterm ist ein Terminalprogramm der Spitzenklasse. Alle Funk¬ 
tionen sind wie von GEOS gewohnt mit Maus und Pull-down-Menüs steu¬ 
erbar. So leicht war DFÜ noch nie. Sie wollen Ihre Grafiken, die Sie im 
Hl-Eddi-, Koalapainler-, Doodle-Format etc. vorliegen haben, in Geo- 
Write, GeoPalnt GeoFile verwenden? Kein Problem, der Bilmap-Conver- 
lor macht's möglich. Das Programm arbeitet vollständig unter GEOS und 
speichert Ihre Grafiken im Format von GEOS-Foto-Scraps. Diese können 
mit nahezu jedem GEOS-Piogramm weiterverarbeitet werden. Ärger mit 
dem Drucker? Erstklassige Qualität erhalten Ihre Ausdrucke unter GEOS 
mit den verschiedensten Druckertreibem für den Star NL-10, Epson- 
oie in are tage, Drucker und Kompatible und den Gtizen I20D. Mit Superprint V2.0 läßt 
C64 in Klartext sich 2IJ dem nahezu jeder störrische Drucker an GEOS anpassen. 

GEOS-Icon-Editor und GEOS-Pattorn-Editor: Zwei Programme, die in 
keiner GEOS-Programmsammlung fehlen dürfen. Sie erlauben es, eigene 
Programme mit Icons (Piklogrammen) zu versehen. Mit dem Pattem-Editor 
kann jeder seine eigenen Füllmusler für GeoPaint nach Wunsch definie¬ 
ren. Eine Seite der Diskette wird im GEQS-Format ausgeliefert. Alle 
" GEOS-Programme sind ohne Zusatzaüfwgnd unter GEOS sofort 
lauffähig. 

Dalec: Ein Datenverwaltungsprogramm der Superlative (kein GEOS- 
Programml). Freie Dateneingabe- und Druckmasken (beispielsweise für 
Etiketten) sind definierbar. Umfangreiche Such- und Indexfunktionen 
sowie frei definierbare Zeichensätze (natürlich mit deutschen Umlauten) 
sind nur einige der Glanzpunkte dieses Programms. 

Diskette für C64/C128 
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■ Sonderheft 30: 

zstisches Action-Spiel mit abwechs- 
■’chen Szenen * C/N. / 

ei diesem tollen Adlon-Spiel qualmt der Joystick. Reiten Sie 
die Erde vor der Vbrnichtung. Ihre Gegner sind scheinbar übermächtig, 
nur mit Tollkühnheit und klarem Kopl übeislehen Sie das Abenteuer. Nut¬ 
zen Sie Ihre Chance, dringen Sie in der entscheidenden Schlacht zum 
Zentral-Computer der Angreifer vor. 

Ball-Booster: Riesigen Spaß zu zweit biotet dieses Taktik- und Geschick- 
lichkeilsspiel. Das einfacne Spielprinzip ist schnell etlornt, aber nur mit listi¬ 
gen Spielzügen und schneller Reaktion ble.iben.6le am Endo siegreich. 
Die Schlacht im Speichor: In der Arena stehen sich zwei Programme 
gegenüber, die nur ein Ziel haben: die Vernichtung des Gegneis. Schaf¬ 
fen Sie es, das optimale Kampfprogramm zu entwickeln, das jedem 
Gegner gewachsen ist? 

Rasanto Ski-Abfahrt: Lieben Sie Sportspiele? Mil »Hals-&ßeinbmch« 
jagen Sie per Ski auf den Spuren von Markus Wasmeier zu Tal, Trainings¬ 
rannen, Weltcup und sogar das Erstellen eigener Rennpisten bietet dieses 
begeisternde Abfahrlsprogramm, 

Diskette für C64/C128 

Bestell-Nr. 15830 DM 29,90* sFr 24,90'/öS 299,-' 


64'er Sonderheft 29: 

Programme, die jeder C 128-Besitzer 
braucht 

Mastortexl 128: Die Super-Texlverorbeituna für den 80-Zeichen-Mödus 
mit eingebauter Rechtschreibprüfung. Komfort und Funklionsvielfalt Wer¬ 
den bei diesem Programm großgeschrieben. Alb Standardbefehle dörr 
modernen Texlverarbeilung, ein integrierter Taschenrechner und sogar 
der Datenaustausch per DFÜ sind enthalten. Als besonderen teckerbisson 
bietet Maslertext 128 eine Rechtschreibprüfung, deren Wörterbuch belie¬ 
big erweiterbar ist, Tippfehler gehören damit der Vergangenheit an! 
Der Hexer: Endlich ein leistungsstarkes Kopierpragramm für den C128. 
Kopieren Sie nach Herzenslust, der Hexer wird auch Ihre Disketten bezau¬ 
bern. Neben ganzen Disketten sind mit diesem Programm auch einzelne 
Files zu kopieren. Der Bedienkomfort des Hexers ist kaum zu überbieten. 


64'er Sonderheft 27: 

Ein unglaubliches Multicolor-Mal- und 
-Zeichenprogramm 

Amica-Paint: Dieses Programm bietet Funktionen, die man vorher nur dem 
Amiga zugetraut hatte: Amica-Raint dreht, kippt und spiegelt beliebige 
Bildausschnitte und berechnet selbständig Farbverläufe. Definition von 
Makros, eine eingebaute Diashow-Funktion und natürlich komfortable 
Maussteuerung sind nur einige wenige Features dieses absolut sensatio¬ 
nellen Programms. 

Schreibmaschine: Entlocken Sie Ihrem Drucker fel lern In einer Qualität und 
Schönheit, die Sie ihm nicht zugelraul hätten. Viele Schriftarten befinden 
sich aus Platzgründon nur auf Diskette. 

Pic-Chango: Darauf haben die Grafik-Fans schon lange gewartet: Ob 
HiRes oder Mullcolot - Plc-Change macht Schluß mit dem Wiriwarr ver¬ 
schiedener Graflklormate, Jedes übliche Graflklormal kann in jedes 
andere übersetzt werden. 

Grafik 2001: Eine leistungsfähige Erweiterung zur Basic-Erweiterung 
»Grafik 2000« mit vielen neuen Befehlen. Grafik 2000 (aus dem Sonder¬ 
heft 4) ist auf der Programmservice-Dlskelle ebenfalls enthalten. 
Weiterhin linden Sie alle Programme auf Diskette, die im Inhaltsverzeichnis 
mit einem Diskettensymbol gekennzeichnet sind. 

Zwei Disketten för C64/CI28 

Bestell-Nr. 1582^ DM 34,90* sFr 29,50'/öS 349,-' 

' Unverbindliche Preisompfehlung 


I IKvinnno- Mit den Gutscheinen aus dem »Super- 
UDTigeilb. Software-Scheckheft« für DM 149,- 
könnep Sie sechs Software-Disketten Ihrer Wahl aus dem 
Programm-Service-Angobot der Zeitschriften 
PC Magazin Hsppy-Computer Amlga-Magszin 64'er-Magazin 

PC Magazin Plus Happy-Computer-Sondeihefl Computer persönlich 64'er-Sonderheft 

bestellen - egal, ob diese DM 29,90 oder DM 34,90 kosten. Das 
Scheckheft können Sie per Verrechnungsscheck oder mit der 
eingehefteten Zahlkarte direkt beim Verlag bestellen. Kenn¬ 
wort: Software-Scheckheft, Bestell-Nr. 39100. 
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TOOLS: GRAFIK 


scheint das entsprechende Untermenü. Damit die Menüs 
übersichtlicher sind, wurden manchmal Leerzeilen einge¬ 
fügt, die keine weitere Bedeutung haben. Solange der 
Feuerknopf gedrückt ist, kann man den Pfeil frei bewegen 
und den gewünschten Menüpunkt auswählen. Beim Los¬ 
lassen des Knopfes wird die entsprechende Funktion auf- 

Menüs für jeden Geschmack 


gerufen. Befindet sich der Pfeil dabei außerhalb der Menü¬ 
tafel, so geschieht nichts. Einige dieser Funktionen können 
auch über die Tastatur angewählt werden (siehe Textka¬ 
sten). 


»Hypra-Sprlte« - Die Anzeigen in der obersten Zelle 

»SN«: 

Nummer des aktuellen Sprites (1 bis 6) 

»BL«: 

Block, aus dem die Daten für das aktuelle 

Sprite kommen (= aktueller Block) 

»SK«: 

Bildschirm-Koordinaten des aktuellen Sprites 

»FA«: 

aktuelle Farbnummer (»1« = Multicolor-Farbe 1, 


»2« = Multicolor-Farbe 2, »3« = Sprite-Grund¬ 
farbe, »H« = Hintergrundfarbe) und Farbcode 
(0 bis 15) 

»PK«: 

Pfeilkoordinaten: XK (0-39) und YK (0-20 und 
»M« für Menüzeile). Dadurch wird ein genaues 
Positionieren möglich (z.B. bei »SPIEGEL« im 
»SPEZIAL«-Menü) 

Tastenbelegung bei »Hypra-Sprlte« 

< Linkspfeil >: 

Skala am Rand des Editierfeldes 
ein-/ausblenden 

<SPACE>: 

Anzeige aller sechs Sprite-Blöcke 

<1> - <6>: 

Anwahl der sechs Sprites 

<7> - <0>: 

Anwahl der Farben (<7> - Multicolor-Farbe 1, 
<8> - Multicolor-Farbe 2, <9> - Sprite- 
Grundfarbe, <0> - Hintergrundfarbe) 

< Fl >/ < F2 >: 

Farbcode der Rahmenfarbe ändern 

<F3>/<F4> 

Farbcode der Schriftfarbe ändern 

<F5>/<F6> 

Farbcode der Pfeil-Farbe ändern 

<M>: 

Multicolor für alle 6 Sprites umschalten 

<X>: 

X-Expand für alle 6 Sprites umschalten 

<Y>: 

Y-Expand für alle 6 Sprites umschalten 

<L>: - 

alle 6 Sprites löschen 


Menü Farbe 

Farbe 1: Dieser Menüpunkt dient zum Einstellen der Mul- 
ticolorfarbe 1. Wenn man nach dem Ausrollen des Menüs 
den Pfeil auf diesen Menüpunkt lenkt und den Feuerknopf 
losläßt, wird anschließend in der Multicolorfarbe 1 gezeich¬ 
net. (Im Singlecolormodus wird in der Sprite-Grundfarbe 
weitergezeichnet.) Sobald der Feuerknopf losgelassen 
wird, erscheinen 16 Farbbalken. Damit läßt sich die Farbe 
bestimmen, die dem VIC-Register 37 zugeordnet wird. Da¬ 
zu bewegt man den Pfeil auf den entsprechenden Farbbal¬ 
ken und drückt einmal kurz den Feuerknopf. Wenn der Pfeil 
neben oder unter den Balken ist, so wird zwar die Multico¬ 
lorfarbe 1 angewählt, der bestehende Farbcode aber wird 
nicht geändert. 

In gleicherweise arbeiten die Menüpunkte FARBE 2 und 
FARBE 3 für die Multicolorfarbe 2 (VIC-Register 38) be¬ 
ziehungsweise für die Sprite-Grundfarbe (VIC-Register 40 
bis 46). 

HINTERGR: Bestimmt die Hintergrundfarbe, außerdem 
werden die gesetzten Punkte ab jetzt gelöscht. 

Das »MODE«-Menü 

MULTI: Hiermit stellt man das aktuelle Sprite auf Multico- 
lormodus um. Dies zeigt sich daran, daß sich die Darstel¬ 
lung der Punkte im Editierfeld ändert: Je zwei Bits bilden 


jetzt einen großen Punkt. Außerdem kann man mit allen vier 
Farben gleichzeitig zeichnen. Beim zweiten Aufruf dieses 
Menüpunktes wird wieder auf Singlecolor geschaltet. 

X-EXPAND/Y-EXPAND: Vergrößerung für das aktuelle 
Sprite in der X- beziehungsweise Y-Achse ein- und aus- 
schalten 

SPRITE 1 bis SPRITE 6: Neben dem Editierfeld sind 
sechs Sprites zu sehen, die nebeneinander bearbeitet wer¬ 
den. Mit diesem Menüpunkt wird das Sprite 1 (das Sprite 
oben links) angewählt. In gleicher Weise wählt man Sprite 
2 (oben rechts), Sprite 3 (Mitte links), Sprite 4 (Mitte rechts), 
Sprite 5 (unten links) und Sprite 6 (unten rechts). 

Das »FORM«-Menü 

Einige Funktionen in diesem Menü werden mit dem Joy¬ 
stickgesteuert. Immer dann, wenn man den normalen Mal¬ 
modus verläßt, erscheint in der rechten unteren Ecke des 
Bildschirms ein kleiner Kreis. Bei den Funktionen »SCROL¬ 
LEN« bis »DREHEN 3« verschwindet außerdem der Pfeil. 
Die Funktionen »LINIE« bis »TEXT« sind eine Neuheit in 
Sprite-Editoren. Hier wird der Pfeil weiterhin gebraucht. 

X-SPIEGEL/Y-SPIEGEL: Damit läßt sich das aktuelle 
Sprite längs der X- beziehungsweise der Y-Achse umdre¬ 
hen. Im Multicolormodus bleiben dabei die Farben erhal¬ 
ten. 

INVERS: Das aktuelle Sprite wird invertiert. 

SCROLLEN: Durch Joystick-Bewegungen (seitlich so¬ 
wie oben und unten) wird damit das aktuelle Sprite punkt¬ 
weise verschoben. Durch Druck auf den Feuerknopf fixiert 
man das Sprite wieder. 

STAUCHEN: Durch das Bewegen des Joysticks nach 
oben oder unten beziehungsweise links und rechts ist es 
möglich, das Sprite in vertikaler oder horizontaler Richtung 
zu stauchen. Ist das Sprite bis zur Breite einer Punktzeile 
gestaty”'t, erfolgt wieder eine Expansion in der jeweiligen 
Richtung. Im Extremfall wird das Sprite also in der gewähl¬ 
ten Richtung punktgespiegelt. Auch hier beendet ein Druck 
auf den Feuerknopf die Funktion. 

DREHEN 1: Mit diesem Punkt kann das aktuelle Sprite 
gedreht werden. Zunächst wird der Kreis unten rechts wie¬ 
der eingeblendet, und der Pfeil verschwindet. Durch das 
Bewegen des Joysticks in eine der vier Hauptrichtungen 
wird die Gradzahl für die Drehung bestimmt (hoch: 0 Grad, 
rechts: 90 Grad, runter: 180 Grad, links: 270 Grad). Drückt 
man nur den Feuerknopf, wird die Funktion beendet. Hin¬ 
weis: Bei einer Drehung um 90 und 270 Grad wird das Spri¬ 
te gleichzeitig gestaucht (24 Spalten müssen in 21 Zeilen 
Platz finden), bei 0 und 180 Grad ist das nicht der Fall. 

Vielfältige Funktionen 


DREHEN 2: Diese Funktion arbeitet wie »DREHEN 1«, es 
erfolgt aber auch bei der Drehung um 0 und 180 Grad eine 
Stauchung. Man erhält also immer ein 21 x 21-Feld. 

DREHEN 3: Funktioniert ebenfalls wie »DREHEN 1«, 
aber die drei Spalten ganz rechts (Spalten 21 bis 23) wer¬ 
den ausgelassen. Dadurch ergibt sich eine optimale Dre¬ 
hung, da ja nur ein quadratisches Feld gedreht wird. 

LINIE: Bei dieser und den nächsten fünf Funktionen gilt: 
Wenn man den Feuerknopf drückt und der Pfeil sich außer¬ 
halb des Editierfeldes befindet, wird die angewählte Funk¬ 
tion beendbt (der Kreis verschwindet). Außerdem bleibt die 
Tastenbelegung (Kasten) erhalten, damit man andere Far¬ 
ben und Sprites auch während der Funktion anwählen 
kann. Bei »LINIE« werden (sowohl im Single- als auch im 
Multicolormodus) dünne Linien gezeichnet. Wenn man den 
Feuerknopf drückt (Pfeil im Editierfeld) und festhält, wird ab 
jetzt nicht mehr der Pfeil bewegt, sondern der zweite End- 
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punkt der Linie bestimmt (auf den ersten zeigt der Pfeil). So¬ 
bald man den Knopf losläßt, wird die Linie fixiert und der 
Pfeil kann wieder bewegt werden. Man hat jetzt die Mög¬ 
lichkeit, weitere Linien zu zeichnen (wie eben beschrieben) 
oder die Funktion zu beenden. 

ELLIPSEN: Funktioniert ähnlich wie »LINIE«, dient aber 
zum Zeichnen von Ellipsen (Joystick nach rechts: X-Radius 
= XR+1, Joystick nach links: XR = XR-1 (bis 0, nicht klei¬ 
ner), hoch: YR = YR+1, runter: YR = YR-1). 

RECHTECK: Damit zeichnen Sie, ähnlich wie bei »LI¬ 
NIE« und »ELLIPSEN«, diesmal aber Rechtecke. 

FUELLEN: Dies ist eine Fill-Funktion. Um eine Fläche 
auszufüllen, steuert man den Pfeil in das Editierfeld und 
drückt in der zu füllenden Fläche den Feuerknopf. Wie 
auch sonst, beendet ein Feuerknopfdruck außerhalb des 
Editierfeldes die Funktion. 

SPRUEHEN: Hiermit wird eine kleine Sprühdose simu¬ 
liert. Die Punkte werden bei Feuerknopfdruck in einem 
Quadrat von 7x7 Punkten gesetzt, bei dem die vier Eck¬ 
punkte jedoch fehlen (bei Multicolor nicht zu bemerken). 
Der Pfeil bildet dabei den Mittelpunkt der Sprühfläche. 

TEXT: Dies dient zum Einfügen von Textzeichen in das 
Sprite. Durch den Pfeil wird zuerst der Beginn des Textes 
(obere linke Ecke) bestimmt (kurzer Feuerknopfdruck). Die 
gewünschten Zeichen erscheinen darauf als 8 x 8-Punkte- 
Matrix, wie sie auch im ROM-Zeichensatz des C 64 ausse- 
hen. Sondertasten wie < RETURN >, <CTRL 1> oder 
<DEL> werden nicht angenommen. Eine besondere Wir¬ 
kung haben hier die Funktionstasten: 

< Fl >: Groß-/Grafik-Zeichensatz (normal) 

einschalten (bei Beginn des Textmodus 
angeschaltet) 

GroB-/Grafik-Zeichensatz (invers) 
Klein-/Groß-Zeichensatz (normal) 
Klein-/Groß-Zeichensatz (invers) 

Ein weiterer Feuerknopfdruck schaltet den Schreibmo¬ 
dus wieder aus, es gilt die alte Tastenbelegung. 

OR: Diese Funktion dient dazu, zwei Sprite-Blöcke mit¬ 
einander zu verknüpfen. Der erste Block (in dem auch das 
Ergebnis steht) ist der des aktuellen Sprites. Der zweite 
wird über ein Feld unten rechts am Bildschirm eingegeben. 
Dabei erscheint folgender Text: 

BLOCK 
000 E F 
t 


<F3>: 

<F5>: 

<F7>: 


Der kleine Pfeil darunter läßt sich nun durch Rechts- 
Links-Bewegungen des Joysticks unter den Zeichen ver¬ 
schieben. Steht er unter einer der Ziffern, so kann diese 
durch Auf-/Ab-Bewegungen verändert werden. Dadurch 
wird die Zahl des zu verknüpfenden Sprite-Blocks eingege¬ 
ben. Unter den beiden Buchstaben bewirkt nur ein Feuer¬ 
knopfdruck folgendes: Bei »E« (Ende) wird die Zahl-Einga¬ 
be beendet, bei »F« (Fehler) wird die aktuelle Funktion ab¬ 
gebrochen. Gibt man Zahlen größer als 255 ein, wird dies 
wie bei »F« behandelt. Dies gilt auch bei den anderen Me¬ 
nüpunkten, die die Eingabe einer Zahl benötigen. Die Me¬ 
nüpunkte »AND« und »EOR« funktionieren in gleicher Wei¬ 
se; sie entsprechen den Befehlen »AND« und »EOR«. 


Achtung: Der Begriff »Block« bedeutet hier wie im folgenden einen 
Sprite-Speicher-Block im C 64. Ein jeder dieser Blöcke umfaßt 64 Byte 
und liegt In der Speicherbank 1 des VIC (Video Interface Chip), also 
von Adresse 0 bis 16384. Es sollten also nur Sprite-Blöcke gewählt 
werden, die In »ungefährlichen« Speicherbereichen liegen. Das La¬ 
den eines Sprites in Block 0 oder 1 zum Beispiel hat einen Programm¬ 
absturz zur Folge, da hier direkt in die Zeropage des Computers gela¬ 
den wird. Empfehlenswert sind Block-Nummern ab 32. 


LOESCHEN: Damit wird das aktuelle Sprite gelöscht. 


Das »DISK«-Menü 

LOAD-S: Hiermit wird ein einzelner Record aus einer re¬ 
lativen Datei in das aktuelle Sprite geladen. Dabei fragt das 
Programm, ähnlich wie bei OR, nach einer Zahl, nur daß 
hier nicht BLOCK darüber steht, sondern FILE-NR. Diese 
File-Nummer (Näheres siehe bei ANLEGEN) muß angege¬ 
ben werden, um eine relative Datei zu öffnen, welche diese 
Nummer im Dateinamen hat. Anschließend wird noch die 
gewünschte Record-Nummer erfragt, dann wird geladen. 

SAVE-S: Dies ist gewissermaßen die Umkehrfunktion zu 
LOAD-S. Auch hier wird zuerst nach einer File- und einer 
Record-Nummer gefragt. Danach wird das aktuelle Sprite 
gespeichert. 

LOAD-A: Da es sehr umständlich ist, viele Sprites mit 
LOAD-S einzeln in den Speicher zu holen, gibt es eine 
Funktion, mit der sich mehrere Sprites hintereinander la¬ 
den lassen. Zuerst muß man wieder eine File-Nummer und 
anschließend einen Block eingeben. Dieser Block ist der 
erste, in den geladen wird. Ab jetzt sieht man nur noch ein 
Sprite (zeigt den gerade bearbeiteten Record). 

Unten rechts am Bildschirm erscheinen zwei Zahlen: 

1. Zahl: gerade bearbeiteter Block (in diesen werden die 

Records geladen). 

2. Zahl: gerade bearbeiteter Record (im Sprite zu sehen). 

Zusätzlich gilt hier folgende Tastenbelegung: 

<M>: Schaltet das zu sehende Sprite auf Multicolor- 
beziehungsweise zurück auf normale Darstellung. 

< t >: Schließt die relative Datei; Ende der Funktion. 

< SPACE>: Erhöht die Record-Nummer und lädt das 
nächste Sprite (in den gerade bearbeiteten Block). 

< RETURN >: Lädt den Record endgültig in den Spei¬ 
cher und erhöht Block- und Record-Nummer. 

SAVE-A: Eine Speicherfunktion, die ähnlich wie LOAD-A 
. arbeitet, aber nicht die Eingabe eines Blocks, sondern die 
' Eingabe feiner Record-Nummer verlangt. <M> und < t > 
haben die gleiche Funktion, <SPACE> schaltet einen 
Block weiter, < RETURN > speichert den eingestellten 
Block und erhöht Record- und Block-Nummer. Dadurch ist 
das Speichern vieler Blöcke hintereinander möglich. 

ANLEGEN: Hiermit wird eine relative Datei angelegt. Da¬ 
zu gibt man eine File-Nummer und anschließend die ge¬ 
wünschte Anzahl der Records (= Größe der Datei) ein. 
Dann wird eine Datei mit dem Namen »S-DATEI (File-Num¬ 
mer)« auf der eingelegten Diskette erzeugt. Will man bei 
den vorherigen Funktionen diese Datei ansteuern, so gibt 
man jeweils die File-Nummer an, die man auch bei »ANLE¬ 
GEN« verwendet hat. Man kann also 256 verschiedene Da¬ 
teien auf einer Diskette anlegen (256 File-Nummern). Da¬ 
nach blinkt, wie beim Anlegen von relativen Dateien üblich, 
die LED-Lampe am Diskettenlaufwerk. 

SAVE-F: Mit dieser Funktion lassen sich Sprite-Blöcke 
absolut speichern. Nach Eingabe einer File-Nummer wird 
man noch nach dem ersten und dem letzten zu speichern¬ 
den Block gefragt. Es ist darauf zu achten, daß der erste 
Block kleiner als der zweite ist. 

LOAD-F: Damit wird ein unter SAVE-F erzeugtes File wie¬ 
der geladen. 

PFEIL: Diese Funktion gestattet es, den im Programm 
verwendeten Pfeil nach den eigenen Wünschen zu gestal¬ 
ten. Man wird dazu nach einem Block gefragt; in diesem 
müssen die Daten für den neuen Pfeil stehen. Dieser Block 
wird nun in Block 13 kopiert und gespeichert (Filename: 
»MAUS«, Listing 3). Da dieses File bei jedem Programm¬ 
start geladen wird, kann man automatisch immer seinen in¬ 
dividuellen Pfeil benutzen. 

Das »SPEZIAL«-Menü 

BLOCK: Hiermit wird der Block für das aktuelle Sprite ge¬ 
wählt. 
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BLOCK-A: Will man einzelne Sprites für eine Anima¬ 
tions-Sequenz direkt hintereinander im Speicher ablegen, 
so besteht durch diesen Befehl die Möglichkeit, alle sechs 
Sprites auf sechs hintereinanderliegende Blöcke zu set¬ 
zen. Beispiel: Gibt man als Block 33 ein, so wird Sprite 1 auf 
Block 33 gesetzt, Sprite 2 auf Block 34, Sprite 3 auf Block 
35 etc. 

UEBERTRAGEN: Der aktuelle Block wird mit Hilfe dieser 
Funktion in einen einzugebenden Block kopiert. 

BEWEGEN: Hiermit werden die Bildschirmposition des 
rechts angezeigten aktuellen Sprites verändert (per Joy¬ 
stick, bis Feuerknopf gedrückt wird). Mehrere Sprites kön¬ 
nen also direkt nebeneinander gesetzt werden, so daß man 
ein »Super-Sprite« vor sich sieht. 

SPIEGEL: Es ist möglich, für die Zeichen-Funktionen ei¬ 
nen Spiegelpunkt zu wählen. Dazu bewegt man den Pfeil 
in das Editierfeld und drückt an der gewünschten Position 
den Feuerknopf. Ab jetzt wird jeder neue Punkt noch ein¬ 
mal gespiegelt. Wenn man eine der Koordinaten auf Null 
setzt, so wird diese ignoriert. Beispiel: Man wählt die Koor¬ 
dinaten (0; 10). Jetzt wird die X-Koordinate ignoriert, das 
heißt, es wird nur an der Y-Achse 10 gespiegelt. Wird der 
Feuerknopf gedrückt, wenn der Pfeil außerhalb des Editier¬ 
feldes ist, so werden beide Koordinaten auf Null gesetzt. 

21 SPALTEN: Die X-Achse wird hiermit auf 21 (statt 24) 
Spalten begrenzt. Dadurch kann man quadratische Sprites 
bearbeiten, wie es auch bei der Funktion DREHEN 3 vor¬ 
ausgesetzt wird. 

24 SPALTEN: Die X-Achse wird (wieder) auf 24 Spalten 
gesetzt. 

PROGRAMM: Hierdurch wird ein Basic-Programm mit 
DATA-Zeilen auf Diskette erzeugt, das mit einem Merge-Be- 
fehl an ein Hauptprogramm gehängt werden kann. Dazu 
muß man der Reihe nach die Nummern der Sprite-Blöcke 
eingeben, die man in DATA-Zeilen umsetzen will. Nach der 
Eingabe der Block-Nummer 0 werden keine Blöcke mehr 
erfragt - das Programm »SPRITE-DATAS« wird erzeugt (oh¬ 
ne File-Nummer). Das Basic-Programm wird mit »GOSUB 
60000« aufgerufen und füllt dann die Sprite-Blöcke im Spei¬ 
cher, welche im Editor angegeben wurden, mit den entspre¬ 
chenden Daten. 

ERGAENZUNG: Dies ist eine Spezialfunktion zum 
Nachladen zusätzlicher Programmteile. Nach Eingabe ei¬ 
ner File-Nummer wird die Ergänzung geladen und gestar¬ 
tet (Name: »ERWEITERUNG + jFile-Nummerj«). Im nach¬ 
folgenden Abschnitt über die hier vorgestellte »Erweiterung 
1«, einem Animationsprogramm, finden Sie auch Hinweise 
zur Programmierung solcher Programm-Module. 

RESET: Dadurch erfolgt ein Neustart des Sprite-Editors 
mit Laden des Files »MAUS« (Listing 3). 

ENDE: Hiermit wird der Editor wieder verlassen. Ein 
Neustart ist mit »SYS 16384« möglich. 

Ein Leckerbissen: 

Die Funktion »ERGÄNZUNG« 


Wie schon in der allgemeinen Beschreibung von »Hypra- 
Sprite« erwähnt, befindet sich im »SPEZIAL«-Menü die 
Funktion »ERGAENZUNG«. Ruft man diese Funktion im 
Editor auf, so wird man zuerst nach einer File-Nummer ge¬ 
fragt. Dann wird versucht, das Programm »ERWEITE¬ 
RUNG + jFile-Nummerj« zu laden. Da man 256 verschie¬ 
dene Nummern eingeben kann, ist es also möglich, 256 
verschiedene Erweiterungen zu verwenden. Diese Erwei¬ 
terungen sollen dazu dienen, weitere Menüpunkte nachzu¬ 
liefern und könnten sich zum Beispiel mit der Peripherie be¬ 
schäftigen (Floppy, Drucker, Datasette etc.). Dadurch kann 
jeder das Programm an seine eigene Hardware anpassen. 


Eine erste derartige Erweiterung stellen wir Ihnen nachfol¬ 
gend vor (Listing 4). 

Programmierung einer Erweiterung 


Das Erweiterungs-Programm muß mit JMP 49152 aufgeru¬ 
fen werden können. Dies erfolgt direkt aus dem Editor her¬ 
aus, Bildschirmveränderungen müssen also selbständig 
programmiert werden. Der Rest liegt in der Fantasie des 
Programmierers. Routinen des Editors können selbstver¬ 
ständlich benutzt werden. Der Rücksprung sollte JMP 
$4024 (VORSTART) lauten, muß es aber nicht. 

Das Animations-Programm »ERWEITERUNG1« 

Diese Erweiterung dient zum Ansehen und Austesten 
von Sprite-Sequenzen. Es können auch kleine »Filme« er¬ 
stellt werden, bei denen mehrere Sequenzen nebeneinan¬ 
der herlaufen, so daß man beispielsweise Spielsituationen 
simulieren kann. Nach dem Laden des Programms färbt 
sich der Bildschirm schwarz und das Hauptmenü wird auf¬ 
gebaut. Die Bedienung erfolgt im Prinzip wie beim Haupt¬ 
programm mit Hilfe des Joysticks. Durch Druck auf den 
Feuerknopf wählt man die gewünschte Funktion an. Nach¬ 
folgend werden die einzelnen Menüpunkte beschrieben. 

»ERSTELLEN 1 bis ERSTELLEN 6« 

Bei diesen sechs Menüpunkten kann man sich je eine 
Animations-Sequenz zusammenbauen, die maximal aus 
64 verschiedenen Positionen bestehen darf. Nach Anwahl 
eines dieser Menüpunkte erscheinen drei vergrößerte Spri¬ 
tes nebeneinander auf dem Bildschirm. Darüber stehen je¬ 
weils zwei Zahlen (Bild 2, Seite 32). Die erste gibt die Posi¬ 
tion an (0 bis 63), die zweite den Sprite-Block (0 bis 255). 
Zu Beg. in steht bei allen Positionen der Block 11. Außer¬ 
dem steht über dem Sprite ganz links das Wort »ANFANG« 
(siehe unten). Nun läßt sich mit Hilfe des Joysticks die Se¬ 
quenz einstellen. Dabei gelten folgende Regeln: 

Joystick nach rechts: Eine Position nach rechts gehen 
(bis 63, dann wieder 0). 

Joystick nach links: Eine Position nach links gehen (bis 
0, dann 63). 

Je nach Positionsnummer werden bis zu fünf Sprites an¬ 
gezeigt. Man bearbeitet jeweils das Sprite in der Mitte des 
Bildschirms. 

Joystick hoch: Block an der aktuellen Position erhöhen 
(bis 255, dann wieder 0). 

Joystick nach unten: Block erniedrigen (bis 0, dann 255). 

In Verbindung mit dem Feuerknopf ergeben die vier Rich¬ 
tungen den gleichen Effekt, mit dem Unterschied, daß je¬ 
weils um zehn Positionen/Blöcke verändert wird. Drückt 
man den Knopf alleine, so wird (außer bei Position 0) der 
eingestellte Block der vorherigen Position um eins erhöht 
für die aktuelle Position übernommen. Hat man also die 
vorherige Position auf Block 32 gestellt, so wird die aktuelle 
auf Block 33 gerichtet. Wichtig ist, wenn man zum Beispiel 
die Positionsnummer weitgehend verändern will, daß man 
erst den Joystick bewegt und dann den Feuerknopf drückt, 
da ja sonst der Block verändert wird. 

Ferner gilt folgende Tastenbelegung: 

<SPACE>: zurück zum Menü 
<1 >: Multicolorfarbe 1 erhöhen 

<2>: Multicolorfarbe 2 erhöhen 

< 3 >: Sprite-Grundfarbe erhöhen 

<4>: Hintergrundfarbe erhöhen 

< 5 >: Schriftfarbe erhöhen 

Die Farbcodes der fünf verwendeten Farben werden je¬ 
weils in der ersten Bildschirmzeile angezeigt. 

< M >: Multicolor umschalten (ohne Anzeige) 
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< * >: Es ist möglich, eine Position in der Se¬ 

quenz festzulegen, zu der beim Ansehen 
ab dem zweiten Durchlauf zurückgekehrt 
wird. Dieser Punkt wird mit dem Wort 
»ANFANG« gekennzeichnet (siehe oben). 
Drückt man diese Taste, so wird dieser 
Punkt auf die aktuelle Position gesetzt. 

Es ist also möglich, eine Art Vorspann 
ablaufen zu lassen, bevor die eigentliche 
Sequenz beginnt. 

Beim Ansehen wird das Ende einer Sequenz (wenn also 
ein neuer Durchlauf gestartet werden soll) durch den ersten 
Block bestimmt, dessen Nummer kleiner als 13 ist. Deshalb 
stehen beim Erstellen zu Anfang auch alle Blöcke auf 11. 

Die Sprites lernen laufen 


ANSEHEN 1: Zuerst muß man auf dieselbe Art wie im 
Editor einen Verzögerungsfaktor eingeben, der die Ge¬ 
schwindigkeit bei der Animation bestimmt. Anschließend 
wird durch Auf-/Ab-Bewegung des Joysticks die Nummer 
der gewünschten Sequenz eingestellt. Außerdem ist es 
hier möglich, durch die Tasten <1 > bis <5> die Farben 
zu ändern, durch <M> auf Multicolor umzuschalten und 
mit < SPACE> zum Menü zurückzukehren. Nach Druck 
auf den Feuerknopf kann man sich die gewünschte Se¬ 
quenz in fünf verschiedenen Größen ansehen. Ein weiterer 
Druck führt zum Rücksprung ins Menü. Sollte der erste 
Block der Sequenz oder der Block, der durch ANFANG bei 
ERSTELLEN gekennzeichnet wird, kleiner als 13 sein, wird 
sofort zum Menü gesprungen. 

ANSEHEN 2: Hiermit ist es möglich, sich einen kleinen 
Film zu erstellen, bei dem man maximal sechs verschiede¬ 


ne Sprites steuern kann. Als erstes kommt man in den Ein¬ 
gabemodus. Hier sieht man sechs Sprites sowie einige Pa¬ 
rameter. Diese werden mit folgenden Tasten verändert: 

< S >: Nummer des gerade bearbeiteten Spri¬ 

tes erhöhen (1 bis eingestellte Zahl). Die 
Nummer wird unter »SN« angezeigt. 
<A>: Nummer der Sequenz erhöhen (0 bis 6), 

die dem Sprite im Film zugeordnet wird 
(Anzeige: »AS«). Steht die Nummer auf 
Null, so wirkt das Sprite im Film nicht 
mit. Im Eingabemodus wird es ebenfalls 
ausgeblendet. Ansonsten wird es auf 
den ersten Block der eingestellten Se¬ 
quenz gerichtet. 

X-, Y-Expand (siehe Anleitung Hauptpro¬ 
gramm) und Multicolor umschalten. Da¬ 
bei wird ein »X«, »Y« oder »M« ein- bezie¬ 
hungsweise ausgeblendet. 

Film ablaufen lassen, bis entweder alle 
Sprites ausgeschaltet sind oder der Feu¬ 
erknopf lange gedrückt wird. Wenn eine 
der eingestellten Sequenzen einen Feh¬ 
ler hat (erster Block bzw. »ANFANG«- 
Block kleiner 13), wird die Sprite-Num- 
mer, der diese Sequenz zugeordnet wur¬ 
de, oben links angezeigt, und das Sprite 
wird ausgeschaltet. 

<1 > bis Farben ändern 

<5>: 1: Sprite-Grundfarbe (kann bei jedem 

Sprite verschieden sein) 

2: Multicolorfarbe 1 
3: Multicolorfarbe 2 
4: Hintergrundfarbe 
5: Schriftfarbe 

Die Farbcodes werden wieder angezeigt. 


<X>,<Y>, 

<M>: 


<SPACE >: 


< * > Nach Druck dieser Taste können einige 

Parameter, die die Bewegung der einzel¬ 
nen Sprites beeinflussen, geändert wer¬ 
den. Im einzelnen sind dies folgende 
Werte: 

BE (0 bis 9999): Mit dieser Zahl kann man das Sprite wäh¬ 
rend des Films ausschalten. Wenn der Parameter größer 
als 0 ist, so wird es beim entsprechenden Durchlauf der 
Routine ausgeschaltet. Dadurch kann man zum Beispiel 
erreichen, daß beim Zusammenstoß zweier Objekte die 
entsprechenden Sprites ausgeschaltet werden. Will man, 
daß das Sprite erst später auf dem Bildschirm erscheint, so 
kann man die ersten Blöcke der Sequenz auf einen leeren 
Block richten. 

VB (0 bis 255): Angabe der Geschwindigkeit. Beispiel: 
Wenn VB auf 20 steht, so wird das Sprite alle 20 Durchläufe 
bewegt (Schrittweite: siehe unten). 

VA (0 bis 255): Hiermit kann man regeln, wie schnell die 
Sprite-Sequenz durchlaufen wird. Steht VA also auf 10, so 
wird das Sprite alle 10 Durchläufe auf einen neuen Block 
gerichtet. VA ist unabhängig von VB. Die Veränderung der 
Zahlen erfolgt ähnlich wie im Editor. Man ist allerdings nicht 
auf eine Zahl beschränkt. Durch Rechts-Links- 
Bewegungen kommt man auch zu den anderen Zahlen. Au¬ 
ßerdem gibt es hier kein »E« und auch kein »F« mehr. Man 
beendet die Zahleingabe mit einem Feuerknopfdruck. 

Neben diesen Tasten braucht man auch den Joystick, um 
die Parameter zu verändern. Bewegt man ihn ohne Feuer¬ 
knopfdruck, so kann man die Startposition des Sprites auf 
dem Bildschirm ändern (Anzeige: »BK«). Mit Feuerknopf 
ändert man die Schrittgröße bei der Bewegung, die von -5 
bis +5 gehen darf. Man kann hiermit also sowohl die Rich¬ 
tung einstellen als auch die Geschwindigkeit beeinflussen 
(Anzeige: »XB« und »YB«). 

Diskettenoperationen 


SAVE: Mit diesem Menüpunkt kann man alle Parameter 
(Animations-Sequenzen und Parameter aus dem Film) 
speichern. Dazu wird nach Eingabe einer File-Nummer das 
File »S-ANIMATION + (File-Nummer]« auf Diskette er¬ 
zeugt. In Verbindung mit dem Menüpunkt »SAVE-F« im 
»DISK«-Menü des Editors kann man sich so eine kleine 
Film-Sammlung anlegen. 

LOAD: Die gespeicherten Parameter werden hiermit wie¬ 
der geladen. 

EINBINDEN: Häufig wird es Vorkommen, daß man beim 
Austesten einer Sequenz noch kleine (oder große) Fehler 
findet. Da es sehr umständlich ist, zum Beispiel die Se¬ 
quenz nach dem Ändern des fehlerhaften Sprite-Blocks 
ganz neu einzustellen, wird hiermit dem »SPEZIAL«-Menü 
des Editors der Menüpunkt »ANIMATION« hinzugefügt. 
Ruft man diesen auf, gelangt man wieder in das Anima¬ 
tions-Programm, jedoch ohne daß die Parameter vorher ge¬ 
löscht werden. Man muß allerdings aufpassen, daß man 
diesen Menüpunkt nicht aufruft, wenn man bereits eine an¬ 
dere Erweiterung geladen hat. Dies würde höchstwahr¬ 
scheinlich zum Absturz des Computers führen. 

AUSBLENDEN: Damit wird der Menüpunkt wieder aus 
dem »SPEZIAL«-Menü entfernt. Dies sollte immer ausge¬ 
führt werden, bevor man eine neue Erweiterung lädt. 

ENDE: Verlassen des Animations-Programms. 

Hypra-Sprite beweist: Sprite-Editor ist nicht gleich Sprite- 
Editor. Durch die große Funktionsvielfalt wird dieses Pro¬ 
gramm sehr schnell zum unentbehrlichen Helfer bei der 
Entwicklung von Spielen aber auch von Anwendungspro¬ 
grammen. (Andreas Wendker/Dr. Rudolf Egg/sk) 
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C64 


TOOLS: GRAFIK 


10 

REM 



<072> 


SEHR BEI DER ENT—" 

<239> 

11 

REM "SPRITE-START" 



<074> 

110 

PRINT ■■ <D8WN,3SPACEJWICKLUNG DIESES PR 


12 

REM 



<074> 


□GRAMMS GEHOLFEN" 

<033> 

13 

REM ANDREAS WENDKER 



< 151 > 

120 

PRINT "<DQWN,3SPACEJHABEN, BEDANKEN:<S 


14 

REM GOJENBERGSWEG 112 D 



<026> 


PACE,WHITE5ANDREAS BCHOEMANN" 

<203> 

15 

REM 2050 HAMBURG 80 



< 120> 

130 

PRINT "<DOWN,20SPACE>JESKO SCHWARZER" 

< 194> 

16 

REM TEL. 040/720 68 04 



<227> 

140 

PRINT "<DOWN,20SPACE>BCS" 

<247 > 

17 

REM 



<079> 

150 

PRINT "tDOWN,20SPACE>CI5" 

< 14S> 

20 

POKE 53280,12sPOKE 53281,12 



<219> 

160 

IF A=0 THEN A=l:LOAD "HYPRA SPRITE",8, 


50 

PRINT "{CLR,WHITE,10SPACEI*»# 

HYPRA SPR 



8 

<1B5> 


ITE ***" 



<236> 

170 

SYS 4*4096 

<243> 

70 

PR I NT " <DDWN, BLACK , BSPACE > 1987 

VON 

ANDR 





90 

EAS WENDKER" 

PRINT "<5DDWN,3BPACE>ICH MOECHTE MICH B 
EI DEN FOLGENDEN" 

<126> 

< 151 > 

Listing 1. »Sprlte-Start«. Der Basic-Lader von 
»Hypra-Sprlte«. Bitte mit dem Checksummer (Seite 159) 

100 PRINT "(D0WN,3SPAGE>PERS0NEN, 

DIE 

MIR 


eingeben. 



Name 

hypra Sprite 


4000 5fc7 

4lb8 : 

5f 

eO 

00 

fO 

Oa 

85 

fe 

8a 

83 

4380 

: f7 

a2 

68 

86 

fa 

a9 

d8 

85 

lf 










4lc0 : 

38 

e5 

fe 

18 

6d 

04 

5f 

aa 

77 

4388 

: fb 

ad 

00 

d8 

aO 

Of 

91 

fa 

34 

4000 

a9 

00 

8d 

15 dO 

a9 

04 

a2 

5f 

4lc8 : 

ec 

06 

5f 

bO 

20 

cO 

15 

bO 

63 

4390 

: 88 

10 

fb 

a5 

fa 

18 

69 

28 

3a 

4008 

ba 

aO 

5a 

20 bd 

ff 

a9 

01 

31 

4ld0 : 

lc 

20 

25 

42 

a5 

02 

c9 

ff 

20 

4398 

: 85 

fa 

a5 

fb 

69 

00 

85 

fb 

28 

4010 

a2 

08 

aO 

00 20 

ba 

ff 

20 

f7 

4ld8 : 

fO 

14 

bd 

34 

5b 

85 

f9 

49 

25 

43 aO 

: c9 

de 

90 

e5 

60 

ce 

00 

d8 

e6 

4018 

cO 

ff 

a9 

00 20 

d5 

ff 

a9 

46 

4le0 : 

ff 

31 

fa 

a6 

f7 

eO 

22 

90 

3b 

43a8 

: 4c 

73 

43 

ee 

27 

dO 

60 

ce 

75 

4020 

01 

20 

c3 

ff aO 

05 

98 

18 

e7 

4le8 : 

02 

05 

f9 

91 

fa 

60 

8a 

29 

4c 

43bO 

: 27 

dO 

60 

aO 

ld 

4c 

bf 

43 

25 

4028 

69 

20 

99 

f9 07 

a9 

00 

99 

38 

4lf0 : 

06 

4a 

aa 

bd 

3c 

5b 

48 

a6 

8b 

43b8 

: aO 

17 

4c 

bf 

43 

aO 

lc 

b9 

Oc 

4030 

28 

dO 

88 

10 fl 

aO 

ld 

b9 

1« , 

4lf8 : 

f7 

eO 

21 

dO 

02 

a9 

00 

eO 

fl 

43 cO 

: 00 

dO 

49 

7e 

99 

00 

dO 

a5 

73 

4038 

Oe 

5b 

99 

00 dO 

88 

10 

f7 

da 

4200 : 

25 

dO 

02 

a9 

55 

eO 

26 

dO 

da 

43c8 

: a3 

20 

6e 

56 

4 c 

27 

57 

98 

6e 

4040 

20 

44 

e5 

aO 4f 

b9 

be 

5a 

82 

4203 : 

02 

a9 

ff 

eO 

27 

90 

02 

a9 

4d 

43dO 

: 38 

e9 

Oa 

85 

a3 

20 

09 

45 

la 

4048 

c9 

3f 

90 

03 18 

69 

cO 

09 

17 

4210 : 

aa 

85 

f9 

aO 

00 

68 

48 

31 

d6 

43d8 

: a5 

a3 

20 

6e 

56 

20 

a8 

55 

d8 

4050 

80 

99 

00 

04 88 

10 

ee 

a9 

36 

4218' : 

fa 

85 

fe 

68 

49 

ff 

25 

f9 

bf 

43eO 

: 4c 

27 

57 

a9 

25 

85 

f7 

4c 

c2 

4058 

00 

85 

a7 

a9 Od 

8d 

f8 

07 

m 

4220 : 

05 

fe 

4c 

eb 

41 

86 

f9 

84 

6e 

43e8 

: 09 

45 

a9 

26 

4c 

e5 

43 

a5 

Of 

4060 

a9 

01 

85 

a3 a9 

28 

85 

f7 

41 

4228 : 

fe 

20 

b8 

57 

a5 

fe 

Oa 

18 

fa 

43 fO 

: a3 

18 

69 

27 

4c 

e5 

43 

a9 

33 

4068 

4c 

d7 

55 

20 e4 

ff 

fO 

le 

47 

4230 : 

65 

fe 

18 

65 

fa 

85 

fa 

a5 

da 

43 f 8 

: 21 

4c 

e5 

43 

a5 

a7 

c9 

ff 

eO 

4070 

aO 

00 

d9 

ab 5e 

fO 

07 

c8 

17 

4238 : 

f9 

4a 

4a 

4a 

18 

65 

fa 

85 

d6 

4400 

: fO 

48 

a9 

ff 

85 

a7 

a9 

04 

c3 

4078 

cO 

16 

90 

f6 bO 

ed 

98 

Oa 

37 

4240 : 

fa 

aO 

00 

a5 

f9 

29 

07 

aa 

99 

4408 

: 85 

fd 

a9 

69 

85 

fc 

aO 

00 

e6 

4080 

aa 

bd 

cl 

5e 85 

fa 

bd 

c2 

f2 

4248 : 

60 

20 

aa 

58 

a9 

04 

8d 

b6 

CC 

4410 

: a9 

2f 

85 

fe 

e6 

fe 

a2 

30 

e3 




fh 

f n 

on 

60 

Ad 

c2 

4250 : 



-dR 


ha 


2 n 

00 

af 

4418 

: a5 

fe 

91 

fc 

c8 

8a 

91 

fc 

61 

4090 

00 

de 

48 

20 6b 

40 

a9 

00 

74 

4258 : 

bl fa c9 aO dO 03 

tc 

8f 

82 

4420 

: 88 

a9 

28 

20 

ac 

57 

e8 

eO 

76 

4098 

85 

61 

85 

62 20 

81 

58 

68 

bc 

4260 : 

40 

8a 

aO 

00 

d9 

ed 

5e 

90 

b5 

4428 

: 3a 

bO 

e9 

c9 

07 

90 

e9 

a5 

56 

40a0 

48 

29 

01 

c9 01 

fO 

09 

cO 

34 

4268 : 

03 

c8 

dO 

f8 

98 

Oa 

a8 

b9 

12 

4430 

: fc 

c9 

96 

90 

e3 

a2 

30 

aO 

le 

40a8 

02 

90 

05 

a9 ff 

4c 

be 

40 

47 

4270 : 

f2 

5e 

85 

fc 

b9 

f3 

5e 

85 

52 

4438 

: 00 

8a 

99 

cO 

07 

e8 

eO 

38 

a7 

40b0 

68 

48 

29 

02 c9 

02 

fO 

08 

47 

4278 : 

fd 

a9 

f3 

8d 

fc 

cf 

a9 

42 

72 

4440 

: 90 

02 

a2 

30 

c8 

cO 

18 

90 

94 

40b8 

cO 

16 

bO 

04 a9 

01 

85 

62 

ad 

4280 : 

8d 

fd 

cf 

aO 

00 

bl 

fc 

48 

26 

4448 

: fO 

60 

a9 

04 

85 

fa 

aO 

00 

06 

40c0 

68 

48 

29 

04 c9 

04 

fO 

09 

aa 

4288 : 

20 

e8 

42 

48 

20 

e8 

42 

8d 

23 

4450 

: 85 

fb 

bl 

fa 

c9 

30 

90 

08 

Of 

40e8 

eO 

00 

fO 

05 a9 

ff 

4c 

df 

ii 

4290 : 

b5 

42 

8d 

bb 

42 

20 

e8 

42 

8e 

4458 

: c9 

3a 

bO 

04 

a9 

20 

91 

fa 

c3 

40d0 

40 

68 

48 

29 08 

c9 

08 

fO 

4c 

4298 : 

a2 

00 

c9 

2a 

dO 

Od 

20 

9d 

23 

4460 

: e6 

fa 

dO 

02 

e6 

fb 

a5 

fb 

15 

40d8 

08 

eO 

27 

bO 04 

a9 

01 

85 

cd 

42 aO : 

55 

4c 

f3 

42 

20 

e8 

42 

c9 

46 

4468 

: c9 

07 

90 

e6 

a5 

fa 

c9 

e8 

el 

40e0 

61 

a2 

07 

ad 01 

dO 

18 

65 

cc 

42a8 : 

2a 

fO 

16 

c9 

3f 

90 

03 

18 

be 

4470 

: 90 

eO 

a9 

00 

85 

a7 

60 

a9 

45 

40e8 

62 

8d 

01 

dO a5 

61 

c9 

ff 

f8 

42b0 : 

69 

cO 

09 

80 

9d 

00 

04 

ad 

11 

4478 

: 05 

8d 

00 

ce 

ac 

00 

ce 

b9 

97 

40f0 

fO 

11 

ad 

00 dO 

18 

65 

61 

fa 

42b8 : 

00 

d8 

9d 

00 

d8 

e8 

4c 

a4 

db 

4480 

: f9 

07 

20 

ba 

57 

20 

cb 

45 

8c 

40f8 

8d 

00 

dO 

ad 10 

dO 

69 

00 

9c 

42c0 : 

42 

ad 

b5 

42 

18 

69 

28 

8d 

17 

4488 

: ce 

00 

ce 

10 

ef 

20 

27 

57 

57 

4100 

4c 

11 

41 

ad 00 

dO 

38 

e9 

16 

42c8 : 

b5 

42 

ad 

b6 

42 

69 

00 

8d 

6b 

4490 

: 20 

a8 

55 

60 

20 

9d 

55 

eO 

6c 

4108 

01 

8d 

00 

dO ad 

10 

dO 

e9 

5c 

42d0 : 

b6 

42 

ad 

bb 

42 

18 

69 

28 

65 

4498 

: 09 

bO 

06 

88 

88 

cO 

04 

90 

4c 

4110 

00 

8d 

10 

dO 20 

8c 

55 

ca 

46 

42d8 : 

8d 

bb 

42 

ad 

bc 

42 

69 

00 

Od 

44aO 

: 03 

4c 

10 

56 

b9 

a6 

5d 

c9 

72 

4118 

10 

c9 

20 

81 58 

cO 

01 

dO 

76 

42e0 : 

8d 

bc 

42 

aO 

00 

4c 

95 

42 

ad 

44a8 

: 27 

90 

03 

18 

65 

a3 

85 

f7 

55 

4120 

08 

a9 

8d 

8d 26 

04 

4c 

46 

52 

42e8 : 

e6 

fc 

dO 

02 

e6 

fd 

aO 

00 

a2 

44bO 

: a9 

50 

85 

fa 

85 

fc 

a9 

04 

31 

4128 

4l 

88 

88 

20 a2 

b3 

20 

dd 

d7 

42f0 : 

bl 

fc 

60 

ad 

00 

de 

29 

10 

99 

44b8 

: 85 

fb 

a9 

d8 

85 

fd 

a2 

00 

93 

4130 

bd 

aO 

00 

b9 01 

01 

c9 

00 

b4 

42f8 : 

c9 

10 

fO 

08 

ad 

00 

de 

29 

a7 

44cO 

: aO 

00 

b9 

aa 

5d 

91 

fa 

8a 

87 

4138 

fO 

08 

09 

80 99 

26 

04 

c8 

eb 

4300 : 

ef 

4c 

92 

40 

68 

8d 

fd 

cf 

4c 

44c8 

: 91 

fc 

c8 

cO 

09 

90 

f3 

a5 

52 

4140 

dO 

fl 

cO 

01 dO 

05 

a9 

aO 

76 

4308 : 

68 

8d 

fc 

cf 

6c 

fc 

cf 

a9 

bl 

44dO 

: fa 

18 

69 

28 

85 

fa 

85 

fc 

76 

4148 

8d 

27 

04 

20 81 

58 

8a 

a8 

c4 

4310 : 

00 

8d 

15 

dO 

aO 

00 

84 

fe 

50 

44d8 

: 90 

04 

e6 

fb 

e6 

fd 

e8 

eO 

67 

4150 

20 

a2 

b3 

20 dd 

bd 

aO 

00 

00 

4318 : 

b9 

f9 

07 

a8 

20 

a2 

b3 

20 

cb 

44eO 

: 10 

90 

dd 

a9 

fO 

a2 

44 

8d 

35 

4158 

b9 

01 

01 

c9 00 

fO 

08 

09 

c5 

4320 : 

dd 

bd 

a4 

fe 

b9 

b6 

5d 

a8 

fd 

44e8 

: fc 

cf 

8e 

fd 

cf 

4c 

8f 

40 

4d 

4160 

80 

99 

23 

04 c8 

dO 

fl 

cO 

53 

4328 : 

a2 

00 

bd 

01 

01 

c9 

00 

fO 

9a 

44 fO 

: 20 

9d 

55 

eO 

09 

bO 

Oc 

88 

a8 

4168 

01 

dO 

05 

a9 aO 

8d 

24 

04 

57 

4330 : 

07 

99 

97 

04 

e8 

c8 

dO 

f2 

68 

44 f 8 

: 88 

cO 

10 

bO 

06 

98 

a4 

f7 

a2 

4170 

68 

29 

10 

c9 00 

fO 

03 

4c 

d6 

4338 : 

a4 

fe 

c8 

cO 

06 

90 

d7 

20 

2a 

4500 

: 99 

00 

dO 

20 

09 

45 

4c 

10 

de 

4178 

8f 

40 

6c 

fc cf 

20 

81 

58 

97 

4340 : 

9d 

55 

20 

e4 

ff 

c9 

20 

dO 

9d 

4508 

: 56 

a4 

a3 

b9 

27 

dO 

85 

a9 

33 

4180 

cO 

01 

dO 

03 4c 

49 

42 

20 

ae 

4348 : 

f9 

a9 

7f 

8d 

15 

dO 

a2 

00 

Oa 

4510 

: a5 

f7 

c9 

27 

90 

07 

a9 

27 

3e 

4188 

90 

41 

20 

27 57 

4c 

8f 

40 

3c 

4350 : 

bd 

b6 

5d 

a8 

a9 

20 

99 

97 

06 

4518 

: 18 

65 

a3 

85 

f7 

a4 

f7 

b9 

74 

4190 

88 

88 

ec 

06 5f 

bO 

56 

cO 

af 

4358 : 

04 

99 

98 

04 

99 

99 

04 

e8 

18 

4520 

: 00 

dO 

29 

Of 

a8 

a9 

aO 

8d 

2a 

4198 

15 

bO 

52 

8a 48 

98 

48 

20 

96 

4360 : 

eO 

06 

90 

ec 

60 

4c 

fc 

43 

e8 

4528 

: le 

04 

20 

a2 

b3 

20 

dd 

bd 

d4 

4la0 

c8 

4l 

68 

ae 05 

5f 

eO 

00 

c8 

4368 : 

ee 

20 

dO 

60 

ce 

20 

dO 

60 

98 

4530 

: aO 

00 

b9 

01 

01 

c9 

00 

fO 

9f 

4la8 

f0 

Oa 

85 

fe 8a 

38 

e5 

fe 

de 

4370 : 

ee 

00 

d8 

ad 

00 

d8 

aO 

4f 

32 

4538 

: 08 

09 

80 

99 

ld 

04 

c8 

dO 

cf 

4lb0 

18 

6d 

05 

5f a8 

68 

ae 

04 

3d 

4378 : 

99 

00 

d8 

99 

98 

db 

88 

10 

25 

4540 

: fl 

a5 

f7 

c9 

25 

dO 

02 

a9 

6f 
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4548 

: bl c9 26 dO 02 a9 b2 c9 

4d 

4798 

: c5 

fc 

fO 

06 

c9 

00 

fO 

02 

3d 

49e8 

: 4a 

8e 

13 

cf 

8d 

14 

cf 

a2 

36 

4550 

: 21 dO 02 a9 88 c9 80 bO 

c9 

47aO 

: 45 

fc 

05 

fd 

85 

fd 

ca 

10 

f8 

49f0 

: ff 

ad 

11 

cf 

cd 

14 

cf 

90 
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20 

20 

66 

5b fO : 

: 20 

20 

20 

20 

20 

2a 

53 

54 

76 

5b f8 : 

: 41 

55 

43 

48 

45 

4e 

20 

2a 

59 

5cOO : 

; 44 

52 

45 

48 

45 

4e 

20 

31 

71 

5c08 : 

: 20 

2a 

44 

52 

45 

48 

45 

4e 

el 

5clO : 

: 20 

32 

20 

2a 

44 

52 

45 

48 

13 

5c 18 : 

: 45 

4e 

20 

33 

20 

2a 

20 

20 

07 

5c20 : 

: 20 

20 

20 

20 

20 

20 

20 

2a 

34 

5c28 : 

: 4c 

49 

4e 

49 

45 

20 

20 

20 

ec 

5c30 : 

: 20 

2a 

45 

4c 

4c 

49 

50 

53 

37 

5c38 : 

: 45 

20 

20 

2a 

52 

45 

43 

48 

c8 

5c40 : 

: 54 

45 

43 

4b 

20 

2a 

46 

55 

88 

5c48 : 

: 45 

4c 

4c 

45 

4e 

20 

20 

2a 

2a 

5c50 : 

: 53 

50 

52 

55 

45 

48 

45 

4e 

53 

5c58 : 

: 20 

2a 

54 

45 

58 

54 

20 

20 

34 

5c60 : 

: 20 

20 

20 

2a 

20 

20 

20 

20 

a2 

5c68 : 

: 20 

20 

20 

20 

20 

2a 

4f 

52 

da 

5c70 : 

: 20 

20 

20 

20 

20 

20 

20 

2a 

84 

5c78 : 

: 4l 

4e 

44 

20 

20 

20 

20 

20 

b9 

5c80 i 

: 20 

2a 

45 

4f 

52 

20 

20 

20 

d8 

5c88 : 

: 20 

20 

20 

2a 

4c 

4f 

45 

53 

01 

5c90 : 

: 43 

48 

45 

4e 

20 

2a 

2a 

ff 

Oe 

5c98 : 

: 4f 

66 

4c 

4f 

4l 

44 

2d 

53 

a9 

5caO : 

; 20 

2a 

53 

4l 

56 

45 

2d 

53 

bd 

5ca8 : 

: 20 

2a 

4c 

4f 

41 

44 

2d 

41 

48 

5cbO : 

; 20 

2a 

53 

41 

56 

45 

2d 

41 

a9 

5cb8 : 

: 20 

2a 

41 

4e 

4c 

45 

47 

45 

9e 

5ccO : 

; 4e 

2a 

20 

20 

20 

20 

20 

20 

f3 

5cc8 : 

: 20 

2a 

53 

41 

56 

45 

2d 

46 

cb 
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2a 

4c 

4f 

41 

44 
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46 
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20 
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20 
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45 

de 
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45 
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45 
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42 

45 

57 

45 

47 

45 
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20 
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53 
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49 

45 

47 

45 
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20 
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20 

2a 
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31 

17 
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53 

50 

41 
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54 

45 
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57 
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32 
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53 

50 
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54 
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20 
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50 
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47 
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41 
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30 
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86 

87 
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31 

32 

95 
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33 

34 

35 

36 
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38 
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30 

94 
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4c 

Of 

43 

65 

43 

68 

43 

70 

77 
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43 
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43 
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43 
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43 

b3 

43 
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43 

bd 
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43 
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2 d 
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43 
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43 
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43 
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43 
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c7 
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ff 
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5b 
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e7 
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97 
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00 

40 

c5 
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00 
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40 
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00 

00 

18 
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lb 

5f08 : 

5f 

50 

5f 
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50 
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5flO : 
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50 
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5f 

9b 

5f 

9b 
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bl 

5f 

bl 

fc 

5f28 : 

5f 

9b 

5f 

9b 

5f 

bl 

5f 

bl 

04 

5f30 : 

5f 

9b 

5f 

9b 

5f 

bl 

5f 

17 

d7 

5f38 : 

: 00 

01 

02 

03 

04 

05 

06 

07 

28 

5f40 : 

; 08 

09 

Oa 

Ob 

Oc 

Od 

Oe 

Of 

30 

5f48 : 

: 10 

11 

12 

13 

14 

15 

16 

17 

38 

5f50 : 

: 17 

00 

01 

02 

03 

03 

04 

05 

4a 

5f58 : 

: 06 

07 

08 

09 

Oa 

Oa 

Ob 

Oc 

3a 

5f60 : 

: Od 

Oe 

Of 

10 

11 

11 

12 

13 

42 

5f68 : 

: 14 

17 

17 

16 

15 

14 

13 

12 

f3 

5f70 : 

: 11 

10 

Of 

Oe 

Od 

Oc 

Ob 

Oa 

80 

5f78 : 

: 09 

08 

07 

06 

05 

04 

03 

02 

89 

5f80 : 

: 01 

00 

17 

14 

13 

12 

11 

11 

f2 

5f88 

: 10 

Of 

Oe 

Od 

Oc 

Ob 

Oa 

Oa 

9a 

5f90 

: 09 

08 

07 

06 

05 

04 

03 

03 

a3 

5f98 

: 02 

01 

00 

14 

14 

13 

.12 

11 

e2 

5faO 

: 10 

Of 

Oe 

Od 

Oc 

Ob 

Oa 

09 

bO 

5fa8 

: 08 

07 

06 

05 

04 

03 

02 

01 

b9 

5fbO 

: 00 

14 

00 

01 

02 

03 

04 

05 

2 d 

5fb8 

: 06 

07 

08 

09 

Oa 

Ob 

Oc 

Od 

a8 

5fcO 

: Oe 

Of 

10 

11 

12 

13 

14 

00 

86 


Listing 2 (Schluß) 


Name : maus 0340 037f 


0340 : 

: 60 

00 

00 

fO 

00 

00 

f8 

00 

a2 

0348 : 

: 00 

7c 

00 

00 

3e 

08 

00 

lf 

e9 

0350 : 

: 14 

00 

Oe 

a4 

00 

04 

48 

00 

be 

0358 : 

: Oa 

10 

00 

19 

10 

00 

25 

10 

43 

0360 : 

: 00 

52 

10 

00 

4c 

08 

00 

28 

e3 

0368 : 

: 04 

00 

10 

02 

00 

Oc 

01 

00 

15 

0370 : 

: 03 

82 

00 

00 

7c 

00 

00 

00 

7c 

0378 . 

: 00 

00 

00 

00 

00 

00 

00 

00 

79 


Listing 3. »Maus«. Die Daten für 
den Zeigepfeil in »Hypra-Sprite«. 
Bitte mit dem MSE (Seite 159) 
eingeben. 
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TOOLS: GRAFIK 
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Name 

: erweiterungl 
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ad 
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66 
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fa 
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c248 
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ee 
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61 
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ad 
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c008 
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33 

c6 

91 

fa 

88 

f5 

c250 

ee 

21 

dO 

4c 

6c 
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ee 

00 

35 

c498 
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20 

d2 

c4 

aO 

3f 

cOlO 

10 f8 a5 

•fa 

18 

69 

04 

85 
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c258 
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4c 
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ad 

46 
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ca 
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: 27 
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40 

90 
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fa a5 fb 

69 

00 

85 

fb 
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cl 

c260 

00 

fO 

Ob 
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38 
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90 

9a 
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69 

cO 

99 

00 

04 

88 

10 

3b 
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96 90 e5 
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80 

a9 

00 

99 

14 

c268 

a8 

a5 

fe 

99 

38 

96 

4c 

80 

40 

c4bO 

: fO 

ad 

21 

dO 

8d 

20 

dO 

a9 

4a 

c028 

00 96 88 

10 

fa 
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01 

aO 

da 

c270 

o3 

a9 

c7 

a2 
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20 

a4 

59 

55 
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: d8 

85 
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a9 

00 

85 

a3 

ad 

c7 

c030 

17 99 10 

96 

88 

10 

fa 

aO 

21 

c278 

90 

09 

20 

28 

cl 

20 

28 
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db 

c4cO 
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d8 

aO 

00 

91 

a3 

c8 

dO 

4f 

c038 

05 98 Oa 

aa 
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64 

9d 

41 

18 

o280 

4c 

5a 

cO 

85 

93 

20 

32 

c3 

65 

c4c8 

: fb 

e6 

a4 

a6 

a4 

eO 

de 

90 

la 
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96 98 Oa 

Oa 

Oa 

Oa 

Oa 

18 

30 

c288 

20 

6c 

c4 

a9 

47 

a2 
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20 

2d 

c4dO 

: f 3 

60 

29 

Of 
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b9 

5f 

ab 
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40 
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88 
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fb 
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85 
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ff 
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02 
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85 
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fl 
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99 
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85 
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ad 
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04 
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28 
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cl 
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3f 
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: c8 
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01 
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48 
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56 
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fa 

88 

dO 

fb 
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00 

84 
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94 

bl 

94 

c9 

f4 

c508 
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Der Grafik-Klau geht um 

Viele Programme bieten schöne Grafiken und Zeichensätze, 
die man gerne selbst verwenden würde. Doch 
nicht immer ist es einfach, diese zu »kopieren». Die folgende 
Lösung ermöglicht dies und wartet mit weiteren Überraschungen auf. 


D as Programm »Graph-Search« (Listing 1) ist ein 
Grafik-Utility, mit dem man alle möglichen Zeichen¬ 
sätze, Bildschirme und Bitmaps darstellen, aus- 
drucken, laden und speichern kann. 

Die aktuelle Zugriffsadresse wird im Bildschirmrahmen 
dargestellt, um den gesamten Bildschirm ausnutzen zu 
können. Mit dem Programm kann auch auf den Speicher¬ 
bereich unter dem Basic- und Kernel-ROM sowie unter den 
I/O-Registern zugegriffen werden. 

Ein Hires-Bildschirm benötigt 8 KByte an Speicherplatz. 
Dies ist ein großer Speicherbedarf. Aus diesem Grund ver¬ 
wenden viele Programme veränderte Zeichensätze zur 
Darstellung von Grafiken. Dabei wird ein 8 x 8 Punkte gro¬ 
ßer Grafikblock als Zeichen definiert. Wird nun in der Grafik 
dieser Block benötigt, greift man einfach wieder auf dieses 
Zeichen zurück. 

Der Vorteil dieser Methode liegt in der großen Speicher¬ 
platzersparnis. Ein Lores-Bildschirm mit verändertem Zei¬ 
chensatz benötigt nur 1/8 des Speichers, den ein Hires- 
Bildschirm einnehmen würde. Zusätzlich werden noch 
2 KByte für den Zeichensatz benötigt, aus dem jedoch be¬ 
liebig viele Bilder zusammengesetzt werden können. 

Der Nachteil dieser Methode liegt darin, daß nur auf 256 
unterschiedliche Zeichen zugegriffen werden kann. 

Mit dem Programm Graph-Search (Listing 1) kann man 
nun den Speicher des C64 nach allen möglichen Grafiken 
durchsuchen; nach Zeichensätzen, Lores- und Hires- 
Grafiken und diese laden, speichern und drucken. Das Pro¬ 
gramm ermöglicht also, auf einfache Weise Grafiken und 
Zeichensätze aus anderen Programmen herauszusuchen 
und für eigene Programme zu verwenden. Dazu sind etli¬ 
che Tasten mit neuen Funktionen belegt. 


Tastaturbelegung 


<+ >/<-> Auswahl des Lores-Bildschirms 

<,>/<■> Auswahl des Zeichensatzes und des Hires- 

Bildschirms 

Ist der Lores-Modus aktiviert, so wird hiermit der aktuelle 
Zeichensatz ausgewählt. Befindet man sich im Hires- 
Modus, so wird die Startadresse der Bitmap bestimmt. 


<N> Normalmodus 

Der ausgewählte Lores-Bildschirm wird im C64-eigenen 
Zeichensatz dargestellt. Bei gesetztem CONT-Flag wird 
dieser Zeichensatz bei den folgenden Operationen beibe¬ 
halten. Dies ist durch ein Umspringen des linken Zeigers 
auf $2800 zu erkennen. 

<Z> Zeichensatz einblenden 
Im Mir«--- Modus wird ein Teil der auf dem Bildschirm dar¬ 
gestellten Grafik überschrieben. Die Grafik selbst bleibt je¬ 
doch erhalten! (Siehe Puffer) 

Alle Grnffikformate 


<M> Normal’/Multicolormodus 

Durch Drücken der Taste < M > wird ausgewählt, ob die 
Grafik im Multicolor- oder im Normalfarbmodus dargestellt 
wird. 

<G> Lores-/Hires-Auswahl 

Im Hires-Modus wird der Zeiger auf den Lores- 
Bildschirm ausgeblendet. 

<F1 >/<F3>/<F5>/<F7> Farbauswahl 
<D> Directory 
<L> LOAD 

Das Programm entscheidet automatisch, ob eine Datei 
als Zeichensatz, Lores- oder Hires-Grafik geladen wird. Als 
Indikator dient die Dateilänge: Ist die Datei 4 KByte lang 
oder länger, so wird sie als Hires-Grafik eingestuft, ist sie 
größer als 2 KByte aber kleiner als 4 KByte, so wird sie als 
Zeichensatz geladen. Alles unter 2 KByte Dateilänge wird 
in den aktuellen Lores-Bildschirm geladen. 

<S> G-SAVE 

Hiermit wird, je nachdem in welchem Modus man sich 
befindet (Lores/Hires), entweder der aktuelle Zeichensatz 
oder der aktuelle Hires-Bildschirm gespeichert. 

<B> B-SAVE 

Speichern des aktuellen Lores-Bildschirms 
<T > Transform 

Durch diesen Befehl wird die aktuelle Lores-Grafik als 
Hires-Grafik gespeichert. 

<l> Invert 

Je nach Modus wird entweder der Zeichensatz oder die 
Hires-Grafik invertiert. 
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C64 


TOOLS: GRAFIK 


<C> Hardcopy 

Je nach Grafikmodus wird eine Hardcopy der Bitmap 
oder der Inhalt des Lores-Bildschirms im aktuellen Zei¬ 
chensatz auf den Drucker ausgegeben. 

<-> Init 

Das Programm wird erneut gestartet. 


So arbeitet das Programm 


Der Hauptteil des Programms beginnt mit der Tastaturab¬ 
frage. Diese liegt bei $0B00 und liest aus der Adresse $C5 
den Code der zuletzt gedrückten Taste aus. Dann wird der 
Code mit den vorhandenen Befehlen verglichen und bei 
keiner Übereinstimmung zum nächsten Vergleich ver¬ 
zweigt. Die zum Befehls-Code gehörende Routine liegt un¬ 
mittelbar hinter dem dazugehörigen Vergleich. 

Das Programm verwendet Sprites im Bildschirmrand als 
Zeiger auf die eingeblendeten Grafiken. Der linke Zeiger 
gibt die Anfangsadresse der aktuellen Bitmap beziehungs¬ 
weise des Zeichensatzes an, der rechte den Anfang des 
Lores-Bildschirms. 

Die Sprites werden dabei aus den Zeichen »0« bis »9«, 
»a« bis »f« und »$« ständig aktualisiert und von $0f00 bis 
$1000 abgelegt. Diese Zeichen liegen von $0e00 bis $0e88 
als ASCII-Zeichen vor, können aber beliebig geändert wer¬ 
den. 

Puffer 

Graph-Search bietet die Möglichkeit, den gesamten 
Speicher des C64 nach Grafiken zu durchsuchen. Dies 
wird durch den Gebrauch von Puffern möglich. Der Puffer 
für Lores-Grafik liegt von $0400 bis $0800 (Bildschirm¬ 


speicher), der für den Zeichensatz von $2800 bis $3000 
und der Puffer für die Hires-Grafik von $2000 bis $4000. 

Der Zeichensatz-Puffer liegt im Bitmap-Puffer, daher 
wird auch ein Teil der Grafik im Hires-Modus überschrie¬ 
ben, wenn <Z> (Zeichensatz einblenden) betätigt wird. 
Die Grafik wird aber nur im Puffer überschrieben, bleibt 
selbst aber vollkommen erhalten! 

Wichtige Hinweise 

- Der Speicher von $2000 bis $4000 sowie $0f00 bis $1000 
wird vom Programm überschrieben. 

- Die IRQ-Routine ist erweitert. Dies hat zur Folge, daß 
mancher Zugriff auf den VIC zu einem Absturz führt. Daher 
sollten Sie bei eigenen Routinen, die auf den VIC zugrei¬ 
fen, unbedingt zuvor die IRQ-Routine wieder zurückset¬ 
zen. Innerhalb von Graph-Search ist für diese Fälle jedoch 
schon Sorge getragen. 

- Bei Texten wirkt der Multicolormodus erst ab Textfarben 
mit einem Code größer als 8. Sollte der »M«-Befehl also 
nicht funktionieren, so erhöhen Sie die Textfarbe mit 
<F7>, bis der Multicoloreffekt auftritt. 

Graph-Search Intern 


Falls Sie Routinen aus Graph-Search in eigene Program¬ 
me einbinden wollen, finden Sie hier die Einsprungadres¬ 
sen einiger Funktionen: 

$0832 Interrupt einrichten, starten 

$086a Grafiken in Puffer übertragen, Farbe setzen (RTS) 

$0a00 Filename abfragen (RTS) 

$0a44 Interrupt ausschalten (RTS) 

$0b00 Tastaturabfrage 

Die mit RTS gekennzeichneten Routinen schließen mit 
einem RTS-Befehl ab. (Olaf Stauffer/dm) 
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Llsting 1. »Graph-Search« kopiert 
Grafiken und Zeichensätze aus fast 
jedem Programm heraus. Bitte mit 
dem MSE (Seite 159) eingeben. 

_ 
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Ein Vorspann mit Laufschrift und Musik verleiht 
jedem Programm Professionalität. Mit dem hier 
vorgestellten Titelgenerator erzeugen Sie beein¬ 
druckende Programmtitel, die es mit jedem ko- 
merziellen Produkt aufnehmen können. 

H and aufs Herz, wer hat nicht schon einmal mit Neid 
den Vorspann eines kommerziellen Programmes be¬ 
wundert, der die vielfältigen grafischen und akusti¬ 
schen Möglichkeiten des C64 ausnützt. Mit dem PTG (Pro¬ 
fessional Titel Generator) stellen Sie ohne jegliche Pro¬ 
grammierkenntnisse problemlos Ihre eigenen Vorspanne 
zusammen, die beispielsweise dem des bekannten Spieles 
»Ghostbusters« in keiner Weise nachstehen müssen. Das 
Einfügen von digitalisierten Sounds stellt ebensowenig ein 
Problem dar, wie die Verwendung von Laufschriften, sich 
langsam aufbauenden Texten und Musikfiles. 

PTG bietet eine komfortable und sichere Benutzerober- 


Zu dieser Startmeldung können Sie durch einen Druck 
auf die Tasten < —> oder <RESTORE> gelangen. 

Die Bedienung des PTG mit Joystick und Tastatur 

Wie schon erwähnt, bietet der PTG eine komfortable Be¬ 
nutzeroberfläche, die bis auf wenige Ausnahmen mit dem 
Joystick in Port 2 zu steuern ist. Ein pulsierender Pfeil stellt 
den Zeiger dar. 

Am leichtesten lernt man den Umgang mit einem Pro¬ 
gramm im praktischen Beispiel. Klicken Sie also einmal 
den Menüpunkt Grafik an, indem Sie den Zeiger auf das 
Wort »Grafik« in der Menüleiste bewegen und dann den 
Feuerknopf betätigen (Bild 2). 

Sofort sehen Sie das gewünschte Untermenü am Bild¬ 
schirm, es besteht aus fünf einzelnen Funktionen. Wird der 
Zeiger über den Text dieses Menüs bewegt, so invertiert 
sich der nächstliegende Menüpunkt. Aktivieren kann man 
diesen dann wieder durch Drücken des Feuerknopfs. 


fläche. Wahlweise mit dem Joystick oder mit der Tastatur 
können Sie ein gewünschtes Menü öffnen oder auch eine 
Datei aus dem angezeigten Directory öffnen. Zudem ist der 
PTG modular aufgebaut, so daß Maschinensprache-Pro¬ 
grammierer auch eigene Ideen integrieren können. Als fer¬ 
tige Module werden hier angeboten: 

- »Lettermaker«: gezielte Textausgabe auf den Bildschirm 

- »Musik«: Einbau von Musik, die mit dem Soundmonitor 
erstellt wurde 

- »Laufschrift«: Abrollen einer Laufschrift am Bildschirm 

- »Speech«: Spielen eines mit Speech-Basic digitalisier¬ 
ten Sounds 

- »Aufbau«: langsamer Aufbau einer Grafik 

»Wellen«: Erstellen eines wellenartigen Effektes durch 
geschickte Farbdefinitionen 

- »Pseudo«: durch ständige Neudefinition eines Zeichens 
Pseudo-Scrolling 

- »Overlay«: automatisches Nachladen und Starten eines 
weiteren Vorspanns oder des Hauptprogramms 

Wer den Soundmonitor (Sonderheft 31) oder auch das 
Speech-Basic (64’er-Magazin, Ausgabe 10/86) nicht be¬ 
sitzt, der benötigt natürlich auch die entsprechenden Mo¬ 
dule nicht und kann sich die Tipparbeit dafür sparen. Ge¬ 
ben Sie also zunächst das Hauptprogramm (Listing 1) und 
dann die gewünschten Module (Listings 2 bis 9) mit dem 
MSE ein und speichern Sie alles auf Diskette. Geladen wird 
dann mit: 

LOAD "PTG",8 <RETURN> 

RUN 

Es erscheint nun die Startmeldung (Bild 1). Der PTG- 
Bildschirm ist grundsätzlich in drei logische Einheiten zu 
teilen. Die invertierte Menüleiste oben zeigt die vier Haupt¬ 
menüpunkte »Grafik«, »Modul«, »System« und »Floppy«. 
Die obere Bildschirmhälfte dient vor allem der Anzeige der 
Untermenüs, während die untere Bildschirmhälfte meist für 
Meldungen und Eingaben reserviert ist. 


Io d U 1 


Titel-Generator 
von Stefan Kebekus 

<C> 1987 bei Stefan Kebekus 


1217 Bytes benutzt, 

36638 Bytes frei. 

Bild 1. Das Hauptmenü des Titelgenerators 

Am besten ist es wohl, dies gleich einmal mit Punkt 2, 
»Grafik einfügen«, auszuprobieren. Sie befinden sich an¬ 
schließend in einem kleinen Menü zur Auswahl der Grafik¬ 
art. Nach dem Anklicken einer beliebigen Art erscheint 
dann der sogenannte »File-Selector«, mit dessen Hilfe Da¬ 
teien direkt aus dem Directory heraus angewählt werden 
können. Statt über den Zeiger wird hier die Invertierung der 
einzelnen Dateien direkt mit der Joystick-Auslenkung nach 
unten beziehungsweise oben verschoben. Umfaßt das Di¬ 
rectory mehr als eine Bildschirmseite, können Sie mit der 
Leertaste die nächste Seite anwählen. Eine entsprechende 
Joystick-Funktion gibt es leider nicht. 

Wurde eine Datei durch Anklicken selektiert, so löscht 
sich die untere Bildschirmhälfte, und nach der Meldung 
»Lade...«fragt das Programm nach dem gewünschten Na¬ 
men der Grafik. Dies ist nun wieder eines der wenigen Ma¬ 
le, bei denen eine Eingabe über Tastatur unvermeidlich ist. 
Benutzen Sie zunächst einfach einen Fantasienamen. 

Wieder ins Grafikmenü gelangt, sollte Ihnen nun das Lö¬ 
schen der Grafik durch Punkt 3 keine Schwierigkeit sein. 
Die Sicherheitsabfrage ist mit <J> zu bestätigen, jede an¬ 
dere Taste führt zum Abbruch der Funktion. Wie Sie dann 
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zurück ins Hauptmenü gelangen, wurde schon oben er¬ 
klärt (Tasten <-> oder <RESTORE>). 

Wer keinen Joystick zur Verfügung hat oder Wert auf sehr 
schnelle Menüwahl legt, der kann den PTG natürlich auch 
ausschließlich über die Tastatur steuern. Die vier Hauptme¬ 
nüpunkte werden durch Eingabe des ersten Buchstaben 
des Namens aktiviert (<G>, <M>, <S>, <F>),dieUn- 
termenüpunkte durch ihre Nummern. 

Im File-Selector übernehmen <CRSR-abwärts> bezie¬ 
hungsweise <CRSR aufwärts > die Funktion des Joy¬ 
sticks. Die Bestätigung erfolgt über < RETURN >. Um von 
einer Auflistung (zum Beispiel Funktion 1 im Grafikmenü) 
zurückzugelangen, betätigen Sie <RUN/STOP>. 

Zusätzliche Tastaturfunktionen 

- Die Geschwindigkeit des Zeigers kann durch die Tasten 
< + > (schneller) und <-> (langsamer) reguliert wer¬ 
den. 

- Der Zeiger wird durch Drücken von <SHIFT 
CLR/HOME> abgeschaltet. Um ihn wiedereinzuschal¬ 
ten, drücken Sie den Joystick kurz nach vorne. 

- Das Directory der Diskette kann durch Betätigung von 
<SHIFT 4> auf den Bildschirm gebracht werden. Wie 
im File-Selector ruft die Leertaste die nächste Seite auf 
und führt < RUN/STOP> zurück ins aktuelle Menü. Die¬ 
se Funktion entspricht dem Punkt 1 des Floppymenüs. 

- Der aktuelle Titel kann, soweit im Speicher vorhanden, 
durch die Taste < N> gestartet werden. Näheres erfah¬ 
ren Sie darüber bei der Erklärung des Punktes 3 im 
Systemmenü. 

- Zusätzlich bietet PTG auch noch vier programmierbare 
Funktionstasten an, die mit einer beliebigen Reihenfolge 
von zehn Einzeltasten belegt werden können. Es können 
also auch mehrere Befehle in Kombination eingegeben 
werden. Den Komfort der Definition solcher »Makros« 
kennt man sonst nur bei Programmen aus dem profes¬ 
sionellen PC-Bereich. 


raphik Modul Systen 


Graphik Menue - 


1) 

Graphiken listen 

2> 

Graphik 

ein fuegen 

3) 

Graphik 

loesehen 

4> 

Graphik 

austauschen 

5 > 

Graphik 

unbennenen 


Bild 2. Das Grafik-Menü verwaltet alle Grafikarten 

Die Belegung ist bei Programmstart: 

<F1> = <RUN/STOP> <Pfeil links> (mehrmals) 
<F3> = <G 1 > 

<F5> = <M 1 > 

<F7> - <SHIFT4> 

Die Änderung dieser Belegung geht denkbar einfach vor 
sich: 

1. Drücken Sie die gewünschte Funktionstaste zusammen 
mit < SHIFT>, der Bildschirmrand färbt sich zur Bestä¬ 
tigung, daß der »Makrorecorder« an ist, rot 

2. Alle nun betätigten Tasten werden registriert und in die 
Definition aufgenommen. 

3. Die Definition ist abgeschlossen, wenn insgesamt zehn 
Tasten oder die Funktionstaste zusammen mit 
< SHIFT> gedrückt wurden. Der Bildschirmrahmen 
färbt sich daraufhin wieder normal. 

Funktionstasten können sich auch untereinander aufru- 

fen. Sollte schon bei der Eingabe das Programm dadurch 


in eine Endlosschleife geraten, so ist der Definitionsvor¬ 
gang mit < RUN/STOP > abzubrechen. 

Grundsätzlich versteht der PTG unter Grafik nicht nur Bilder 
im üblichen Sinne, sondern auch andere Speicheraus- 

Dus Grafikmenü 


schnitte, die grafische Informationen im weiteren Sinne er¬ 
halten. Folgende Grafiktypen kennt PTG: 

BITMAP — die übliche Hires- oder Multicolorgrafik (zum 
Beispiel von Malprogrammen) 

VIDEO-RAM — der Bildschirmspeicher 
SPRITE — Definition für acht Sprites 
ZEICHENSATZ — ein kompletter Zeichensatz für 256 Zei¬ 
chen 

FARB-RAM — die Farbinformation, die für jede Bildschirm¬ 
darstellung nötig ist. Es befindet sich immer eine Grafik 
von diesem Typ im Speicher, die jedoch ausgetauscht wer¬ 
den kann. Mehr als ein Farb-RAM ist aus Gründen der 
Hardware nicht zu verwalten. 

SPECIAL — ein Grafiktyp, der selbstprogrammierten 
Modulen zur Verfügung steht. 

Der PTG verwaltet eine nur durch den Speicherplatz be¬ 
schränkte Anzahl von unterschiedlichen Grafiken automa¬ 
tisch im Speicher. Zur späteren Verwendung durch die Mo- 
dule werden die Grafiken unter einem frei wählbaren Na¬ 
men abgelegt und aufgerufen. Jede Grafik hat ihren festen 
Platz im Speicher, der beim Einfügen festgelegt wird. Das 
Farb-RAM steht immer ab $D800 im VIC-internen Speicher. 

Nun zu den einzelenen Funktionen des Grafikmenüs: 

1) Grafiken listen: 

Diese Fi mktion gibt eine Tabelle sämtlicher sich im Spei¬ 
cher befindlichen Grafiken aus. Das Format ist: 

Startadresse "Name ": Grafiktyp 

Ist ein Drucker mit Geräteadresse 4 betriebsbereit, so 
wird die Ausgabe auf diesen umgeleitet. Drücken Sie hier 
wie bei jeder Auflistung die Leertaste, um eine Seite weiter 
zu blättern, und <RUN/STOP>, um die Ausgabe abzubre¬ 
chen. Anschließend gelangen Sie zurück in das Grafik¬ 
menü. 

2) Grafik einfügen: 

Nachdem die gewünschte Grafikart erfragt wurde, kön¬ 
nen Sie mit dem File-Selector die gewünschte Datei aus¬ 
wählen und als Grafik laden. Unter dem Namen, der einge¬ 
geben werden muß, wird die Grafik dann später angespro¬ 
chen. 

3) Grafik löschen: 

Eine mit Menüpunkt 2 eingefügte Grafik wird wieder aus 
dem Speicher entfernt. Wählen Sie wie gewohnt die Grafik 
aus und bestätigen Sie die Sicherheitsabfrage mit <J>. 

4) Grafik austauschen: 

Soll eine derzeitig im Speicher befindliche Grafik ge¬ 
löscht und dafür eine andere eingefügt werden, so emp¬ 
fiehlt sich die Verwendung dieser Funktion. Im Gegensatz 
zu einer Kombination der Menüpunkte 3 und 2 ist hier ge¬ 
währleistet, daß die Adresse der Grafik im Speicher gleich 
bleibt. Wenn Sie statt eines neuen Namens nur 
< RETURN > oder < RUN/STOP > betätigen, so bleibt der 
alte Name für die neue Grafik gültig. 

5) Grafik umbenennen: 

Dieser Punkt ist der kürzeste von allen im Grafik-Menü. 
Wählen Sie nur die Grafik nach dem üblichen Verfahren 
aus und geben Sie den neuen Grafiknamen ein. 
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Das Modul-Menü 


Dies ist das zentrale Menü des PTG, da hier die wichtigen 
Module verwaltet werden. Es gibt drei verschiedene Typen 
von Modulen: 

PROGRAMM - das normale Einzelmodul für Effekte wie 
Laufschrift oder ähnliches 

SOUND - ein Modul (meist Musikdaten), bei dem die 
RAM-Obergrenze gesenkt wurde, um einen unverschieb¬ 
baren Programmteil zu schützen. Normalerweise kann da¬ 
her immer nur ein Modul vom Typ SOUND im Speicher ste¬ 
hen. 

SYSTEM - ein Modul, das die Grundlage für alle anderen 
Module bildet und elementare Funktionen wie zum Beispiel 
den Raster-Interrupt steuert. Es befindet sich immer minde¬ 
stens ein Modul vom Typ SYSTEM im Speicher. 

1) Module listen: 

Ähnlich wie bei Punkt 1 des Grafikmenü werden hier die 
im Speicher befindlichen Module gelistet, wobei aber die 
Startadresse keine Rolle spielt und daher nicht angegeben 
wird. Nach jedem Neustart steht das Modul »Start«, ein Mo¬ 
dul vom Typ SYSTEM, im Speicher, das für den Start und 
den Ablauf des Titels nötig ist. 

2) Modul einfügen: 

Durch diese Funktion wird ein Modul von Diskette gela¬ 
den und in den Titel eingefügt. Falls das Modul zur Initiali¬ 
sierung eine eigene Benutzeroberfläche bietet, so wird die¬ 
se nach dem Laden aktiv (Beschreibung unten). Ansonsten 
folgt sofort die Frage nach dem Namen, der dem Modul im 
Speicher zugewiesen werden soll. Danach schaltet sich 
der Bildschirm für kurze Zeit ab, da in dieser Zeit das Modul 
in den Titel integriert wird. 

3) Modul löschen: 

Dieser Menüpunkt erlaubt es, ein Modul aus dem Spei¬ 
cher zu entfernen. Verfahren Sie genauso, wie beim ent¬ 
sprechenden Punkt des Grafikmenüs. Der einzige Unter¬ 
schied besteht in der Behandlung der Module vom Typ SY¬ 
STEM. Wird ein solches Modul gelöscht, führt der Titelge¬ 
nerator eine komplette Programm-Neuinitialisierung aus, 
befindet sich also im gleichen Zustand wie direkt nach dem 
Laden. Daher wird während der Sicherheitsabfrage auch 
eine Warnung ausgegeben, wenn der Titel noch nicht ge¬ 
speichert wurde (siehe Punkt 2 im Systemmenü). 

4) START ändern: 

Eine Aufgabe des Start-Modules ist es, für die richtige 
Grafik-Voreinstellung beim Start des Titels zu sorgen. Da 
im Grafikspeicher viele Grafiken unterschiedlicher Art un¬ 
tergebracht sein können, muß dem PTG gesagt werden, 
welche Grafiken von Anfang an erscheinen sollen. Hier 
können Sie also Ihre eigenen Voreinstellungen wählen. 

Zunächst gelangt man in ein Untermenü, in dem die Art 
der voreingestellten Grafik festgelegt wird. Folgende Mög¬ 
lichkeiten stehen zur Verfügung: 

Bitmap-Hires - die übliche hochauflösende Grafik mit 
320 x 200 Punkten und zwei Farben 

Bitmap-Multi - die Multicolor-Grafik mit 160 x 200 Punk¬ 
ten und vier Farben 

Video-Hires - der normale Textbildschirm 

Video-Multi - Textbildschirm mit Multicolor-Zeichensatz 

Video-Extended, - Textbildschirm im Extended-Color- 
Modus 

Geben Sie nach dem Anwählen des entsprechenden 
Menüpunktes noch den Namen der Bitmap oder des Zei¬ 
chensatzes und des Video-RAMs an (muß jeweils beides 


schon im Speicher vorhanden sein). Danach können die 
Farben eingestellt werden, wozu entweder <CRSR- 
aufwärts> und <CRSR abwärts> oder der Joystick ver¬ 
wendet wird. Die beiden zusätzlichen Hintergrundfarben 
spielen nur im Extended-Color-Modus eine Rolle. 

5) Modul umbenennen: 

Dieser Menüpunkt entspricht dem Punkt 5 des Grafikme¬ 
nüs und bedarf wohl keiner weiteren Erklärungen. 

Das System-Menü 


Mit den Funktionen des System-Menüs können Sie die 
Komponenten des späteren Titels im Speicher weiterverar¬ 
beiten. 

1) Stand laden: 

Wurde ein sogenannter Stand (nähere Erklärung siehe 
weiter unten) durch Punkt 2 desselben Menüs gespeichert, 
so kann er mit dieser Funktion zurückgeladen werden. Da¬ 
zu dient der übliche File-Selector. 

Da beim Laden der vorher im Speicher stehende Stand 
überschrieben wird, erfolgt erst eine Sicherheitsabfrage, 
wenn Sie den aktuellen Stand noch nicht gespeichert ha¬ 
ben. Nach den Speichern gelangt man in das Hauptmenü. 

2) Stand speichern: 

Der gesamte sich im Speicher befindliche Titel wird auf 
Diskette zwischengespeichert. Der sogenannte Stand ent¬ 
hält folgendes: 

- alle Module 

- alle Grafiken 

- die aktuelle Cursorgeschwindigkeit 

- die aktuelle Funktionstastenbelegung 

- interne Verwaltungsflags 

Der gespeicherte Stand ist noch kein fertiger Titel und in 
keiner Weise außerhalb des PTG ausführbar! 

3) Titel starten: , 

Diese Funktion dient dazu, den Titel im Speicher zu star¬ 
ten. Es ist aber zu beachten, daß viele Module nur einmal 
sinnvoll gestartet werden können, da sie sich selbst modifi¬ 
zieren. Daher sollten Sie den Titel vor dem Starten unbe¬ 
dingt durch Aufruf von Punkt 2 desselben Menüs spei¬ 
chern. 

Um voreiligen Entschlüssen vorzubeugen, erfolgt auch 
hier wieder zuerst eine Sicherheitsabfrage. Sie sollten übri¬ 
gens darauf achten, daß alle benötigten Grafiken im Spei¬ 
cherstehen und daß das Startmodul (Modulmenü, Punkt 4) 
korrekt initialisiert wurde. 

Drücken Sie <RESTORE>, um wieder in den PTG zu¬ 
rückzugelangen. 

4) Titel generieren: 

Nun wird der Titel endlich zu einem lauffähigen Pro¬ 
gramm. Nach der Sicherheitsabfrage und der Eingabe des 
gewünschten Dateinamens rechnet der Computer einige 
Sekunden und speichert das Programm dann auf Diskette. 
Anschließend führt er eine komplette Neuinitialisierung 
durch, weshalb auch grundsätzlich vorher der Stand gesi¬ 
chert werden sollte. 

Das fertige Programm kann nun von Basic aus ganz nor¬ 
mal geladen und mit RUN gestartet werden. 

5) Programmende: 

Hier kann der PTG verlassen werden. Selbstverständlich 
ist auch diese Funktion durch eine Sicherheitsabfrage ge¬ 
schützt. 
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Bild 3. Das Menü des »LETTERMAKERS« 

Das Floppy-Menü 


Das Floppy-Menü enthält einige Funktionen zur Unterstüt¬ 
zung des Diskettenlaufwerkes. Der Aufruf ist nur bei einge¬ 
schalteter Floppy möglich. Unter dem letzten der drei Me¬ 
nüpunkte wird der aktuelle Diskettenstatus angezeigt. 

1) Directory: 

Das Directory wird auf den Bildschirm seitenweise aus¬ 
gegeben. Näheres darüber ist bei der Beschreibung der Ta¬ 
stenkombination <SHIFT 4> zu finden. 

2) Floppykommando: 

Dieser Menüpunkt dient zum Senden eines Kommandos 
an die Floppy. Nach der Ausführung des Kommandos er¬ 
scheint der entsprechende Floppystatus. 

Wurde ein Kommando gesendet, das die Floppy zum Ab¬ 
sturz bringt (zum Beispiel »M-E«), so meldet sich der PTG 
nicht zurück. Schalten Sie in einem solchen Fall die Floppy 
kurz aus und wieder an. 

3) Floppystatus: 

Die Funktion aktualisiert den Floppystatus. 


Das Fehlermenü 


Die Fehlermeldungen des PTG 


Um Datenverlusten durch unüberlegte Handlungen vorzu¬ 
beugen, ist die Benutzeroberfläche des PTG durch zahlrei¬ 
che Fehler- und Systemmeldungen gesichert worden. Tritt 
eine solche Meldung auf, drücken Sie die Leertaste oder 
Feuer, um (abhängig von der jeweiligen Situation) in das 
vorhergehende Menü zurückzugelangen oder die Eingabe 
zu wiederholen. Wollen Sie abbrechen, betätigen Sie 
< RUN/STOP >. 

Hier die einzelnen Fehlermeldungen: 

»Achtung! Ihre Änderungen wurden noch nicht gesi¬ 
chert«: Sie haben eine Operation vor, die Ihren Titel zerstö¬ 
ren könnte, ohne daß er vorher gesichert wurde. »Das Farb- 
RAM kann nicht gelöscht werden«: Sie haben versucht, das 
Farb-RAM zu löschen (siehe auch Punkt 3 des Grafikme¬ 
nüs). »Diese Datei ist kein Modul«: Sie wollten eine Datei als 
Modul laden, die nicht als solches erkannt werden konnte. 
»Diese Datei ist kein Stand«: Sie wollten eine Datei als 
Stand laden, die nicht als solcher erkannt werden konnte. 
»Diese Grafik existiert bereits«: Sie haben beim Laden ei¬ 
ner Grafik einen Namen angegeben, der bereits verwendet 
wurde. »Diese Grafik ist kein ...«: Sie haben den Namen ei¬ 
ner Grafik angegeben, die nicht der geforderten Klasse ent¬ 
spricht. 

»Diese Grafik wurde nicht gefunden«: Sie haben den Na¬ 
men einer Grafik angegeben, die nicht im Speicher exi¬ 
stiert. 

»Dieses Modul existiert bereits«: Sie haben beim Laden 
eines Moduls einen Namen angegeben, der bereits ver¬ 
wendet wurde. 

»Dieses Modul wurde nicht gefunden«: Dieser Fehler 
darf norrr.r'erweise nicht auftreten. Er kann einen Soft¬ 
warefehler in einem Modul anzeigen. 

»Speicherüberlauf! Der Grafikspeicher ist zu voll«: Sie 
wollten eine Grafik laden, die nicht mehr in den Grafikspei¬ 
cher paßt. Durch Betätigung von <RESTORE> erfahren 
Sie in der Startmeldung, wieviel Speicherplatz noch zur 
Verfügung steht. 

»Speicherüberlauf! Der Programmspeicher ist zu voll«: 
Sie wollten eine Operation durchführen, für die der Modul¬ 
speicher nicht mehr ausreicht. 


Der PTG sichert sämtliche Diskettenoperationen durch ei¬ 
ne umfangreiche Fehlerbehandlung ab. Tritt also ein sol¬ 
cher Fehler auf, meldet sich automatisch sofort das Fehler¬ 
menü mit der Art des Fehlers und zwei Menüpunkten: 

- »I/O Error #xx«: Dieser Fehler sollte eigentlich niemals 
auftreten, er zeigt einen Fehler in der Software auf 

- Floppyfehler: Der Floppyfehler wird im gewohnten For¬ 
mat angezeigt. Die Meldung tritt bei gewöhnlichen Feh¬ 
lern (»file not found«, »Disk full« oder ähnliches) auf. 

- »Die Floppy ist nicht ansprechbar«: Entspricht der Basic- 
Fehlermeldung »device not present«. Schalten Sie die 
Floppy an oder überprüfen Sie das serielle Kabel. 

1) Neuer Versuch: 

Der PTG wiederholt den Vorgang, der zum Auftreten des 
Fehlers geführt hat. Dieser Punkt sollte nur gewählt wer¬ 
den, wenn Sie die Fehlerquelle behoben haben. 

2) Abbruch: 

Normalerweise gelangt man damit zurück in das vorher¬ 
gehende Menü, Ausnahmen sind: 

- ein Fehler nach Beginn des Ladens eines Titels; durch 
Abbruch löscht der PTG den gesamten Speicher; 

- ein Fehler nach Beginn des Schreibens des fertigen Pro¬ 
grammes; PTG führt eine Neuinitialisierung durch. 


Das Modul »Lettermaker« 


Der Lettermaker registriert alle Eingaben, die Sie in einem 
dem Basic ähnlichen Editor machen, und spielt diese wäh¬ 
rend des Titels wieder ab. Folgende Menüpunkte stehen an 
der eigenen Benutzeroberfläche zur Verfügung (Bild 3): 

1) Text eingeben: 

Nach der Eingabe der Namen von verwendetem Zei¬ 
chensatz und Video-RAM gelangen Sie in den Texteditor, 
der dem üblichen Basic-Editor des C64 sehr ähnelt und 
sich nur in wenigen Punkten von diesem unterscheidet. 

Erstens können Sie durch Funktionstasten Steuerzei¬ 
chen für die spätere Abspielgeschwindigkeit des Textes 
setzen. Die Tasten haben folgende Funktionen: 

<F1 > = schnell 
<F3> = normal 
<F5> = langsam 
<F7> = kurze Pause 

<F8> = zurück in das Menü des Lettermakers. 

Das blinkende Cursorquadrat kann als Zeichen in den 
Text eingebaut werden und stellt so einen sehr schönen Ef¬ 
fekt dar (Freunde des Spieles »Boulder Dash« werden sich 
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freuen). Sie erreichen dieses Zeichen durch die Tasten¬ 
kombinationen: 

<CTRL 9> <COMMODOREB> 

Wenn der Speicher zu voll ist, nimmt der Editor keine Ein¬ 
gaben außer <F8> mehr an. Übrigens kann der Letterma¬ 
ker auch zur Erstellung eines Video- oder Farb-RAMs ge¬ 
nutzt werden. Betätigen Sie zur Beendigung der Eingabe 
anstelle von <F8> die Tasten <SHIFT Fl >. Danach er¬ 
scheint wieder das Hauptmenü des PTG und die entspre^ 
chenden Grafiken wurden in den Speicher übernommen. 

2) Probelauf: 

Unmittelbar wird der »Letter«, wie er eben eingegeben 
wurde, vorgespielt. Auf diese Weise hat man die Möglich¬ 
keit, die Eingabe nochmals zu überprüfen. Die Ausgabe er¬ 
folgt wie im späteren fertigen Programm. Zusätzlich ist sie 
noch durch folgende Tasten zu beeinflussen: 

< SPACE> = Beschleunigung der Textausgabe 
<RUN/STOP> = Rückkehr ins Menü 
<CTRL> = Setzt die Editierung an der aktuellen Stelle 
fort. Der folgende Text wird dann überschrieben. 

3) Text laden: 

Lädt eine Textdatei im eigenen Format in den Textspei¬ 
cher des Lettermaker. Da der geladene Text einen eventuell 
noch im Speicher vorhandenen überschreibt, erfolgt eine 
Sicherheitsabfrage. 

4) Text speichern: 

Speichert den Textspeicher des Lettermaker in einer Pro¬ 
grammdatei im eigenen Format. 

5) Einbau 

Das Modul wird in den Titel eingebaut. Es ist unter dem 
angegebenen Namen im Speicher vorhanden, die Benut¬ 
zeroberfläche kann nicht mehr aufgerufen werden. 

Mögliche Fehlermeldungen: 

»Sie haben keinen Text eingegeben«: Ohne Text im Spei¬ 
cher kann weder ein Probelauf gezeigt noch das Modul ein¬ 
gebaut werden. 

»Diese Datei enthält keinen Text«: Die Datei entspricht 
nicht dem Lettermaker-Format für Texte. 

Der Zeichensatz für Lettermaker sollte unbedingt im Be¬ 
reich von $C000 bis $CFFF liegen, da sich sonst Schwierig¬ 
keiten mit dem Rasterinterrupt ergeben. 

Im fertigen Programm können Sie die Textausgabe mit 
der Leertaste beschleunigen und mit der linken Shift-Taste 
oder <SHIFT LOCK> anhalten. 


Das Modul »Musik« 


Der Titel wird durch das Abspielen einer mit dem Soundmo¬ 
nitor erstellten Musik unterlegt. Folgende Menüpunkte ste¬ 
hen an der eigenen Benutzeroberfläche zur Verfügung: 

1) Musik laden: 

Lädt eine Musikdatei im Format von Soundmonitor in den 
Speicher. 

2) Musik anhören: 

Die Musik wird probeweise abgespielt. Drücken Sie die 
Leertaste oder Feuer, um abzubrechen. 

3) Einbau: 

Die Musikunterlegung wird in den Titel integriert. 
Mögliche Fehlermeldungen: 

»Sie haben noch keine Musik geladen«: Ohne Musik im 


Speicher kann weder ein Probelauf durchgeführt, noch das 
Modul eingebaut werden. 

»Speicherüberlauf...«: Der Speicher ist zu voll; die Musik 
kann nicht mehr geladen werden. 

»Es existiert bereits ein Sound-Modul«: Es kann immer 
nur ein Musik-Modul im Speicher vorhanden sein. 

Das Modul »Laufschrift« 


Die Laufschrift ist wohl einer der bekanntesten Effekte für 
Titelvorspänne. Ein Text wird dabei horizontal Punkt für 
Punkt scheinbar unter dem Bildschirm weggescrollt. 

Folgene Menüpunkte stehen zur Verfügung: 

1) Text eingeben: 

Nach der Eingabe des Zeichensatzes und des Video- 
RAMs wählen Sie bitte eine Zeile, in der die Laufschrift ab- 
rollen soll. Dazu wird der gelbe Balken mit den Cursorta¬ 
sten oder dem Joystick bewegt und die gewünschte Zeile 
durch < RETURN> oder Feuer bestimmt. 

Nun können Sie Ihren Text in dem (natürlich nur einzeili¬ 
gen) Texteditor eingeben. Korrekturen sind jederzeit mit 
<DEL> möglich. Selbstverständlich sind auch reverse 
Zeichen darstellbar, und die Funktionstasten sind folgen¬ 
dermaßen belegt: 

<F1 > = Schnellschrift 
< F3> = Normalgeschwindigkeit 
<F7> = Pause 

Die Funktionstasten-Steuercodes werden in vielen Zei¬ 
chensätzen als Leerzeichen dargestellt. Bedenken Sie, 
daß es keine sind, und ergänzen Sie unter Umständen mit 
Leerzeichen. Dies sollte übrigens auch vor jeder Pause ge- 
schehn, damit kein Zeichen unter dem Rand stehenbleibt 
und dadurch nicht zu sehen wäre. Schließlich sollten Sie 
auch noch am Textende ein Leerzeichen anfügen (der An¬ 
fang des Textes wird unmittelbar angehängt) und die even¬ 
tuell eingeschaltete Schnellschrift wieder deaktivieren. 

Mit < RETURN > wird die Texteingabe abgeschlossen. 

2) Probelauf 

Hier können Sie wie üblich Ihr fertiges Werk bewundern. 
Sollte gar nichts zu sehen sein, so könnte das daran liegen, 
daß die Laufschrift in der Hintergrundfarbe erscheint. In 
diesem Fall ist die Farbe mit dem nächsten Menüpunkt zu 
verändern. 

Normalerweise flimmert die Laufschrift im Probelauf 
leicht am rechten Rand und hat auch hin und wieder Start¬ 
probleme (versuchen Sie es einfach mit einem erneuten 
Probelauf). Dies liegt an der Tastaturabfrage des Betriebs¬ 
systems und gibt sich nach Einbau der Laufschrift. 

3) Farbe ändern: 

Ändern Sie hier wie gewohnt die Farbe mit den Cursorta¬ 
sten oder dem Joystick. 

4) Grafik austauschen: 

Entspricht dem gleichlautenden Punkt im Grafikmenü. 

5) Einbau: 

Diese Funktion baut Ihre Laufschrift in den Titel ein. Be¬ 
achten Sie, daß der zweite Rasterinterrupt sehr lang ist (al¬ 
so viele Taktzyklen benötigt), so daß mindestens zwei Zei¬ 
len (16 Rasterzeilen) Abstand zwischen der Laufschrift und 
dem nächsten Rasterinterrupt (also der nächsten Lauf¬ 
schrift) bestehen sollten. Mögliche Fehlermeldung: 

»Sie haben noch keinen Text eingegeben«: Ohne Text im 
Speicher kann weder ein Probelauf gestartet, noch das Mo¬ 
dul eingebaut werden. 
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Das Modul »Speech« 


Mit Speech-Basic digitalisierte Geräusche werden vom 
Speech-Modul am Anfang des Titels und auf Tastendruck 
abgespielt. 

Folgende Menüpunkte stehen zur Verfügung: 

1) Speech laden: 

Dient zum Laden eines digitalisierten Sounds in den 
Speicher. Sollten nicht die gesamten Daten in den Speicher 
passen, so wird der Rest einfach weggelassen. 

2) Probelauf: 

Der digitalisierte Ton wird probeweise vorgespielt. 

3) Geschwindigkeiten: 

Geben Sie die Geschwindigkeit, mit der das Stück ge¬ 
spielt werden soll, mit einem Buchstaben von < A> (sehr 
schnell) bis <Z> (sehr langsam) oder von <SHIFTA> bis 
<SHIFTZ> (extrem langsam) an. Wenn Sie mehrere Ge¬ 
schwindigkeiten angeben (maximal 16), ertönt der Sound 
mehrere Male mit entsprechenden Geschwindigkeiten. 

4) Farben: 

Hier werden die Einstellungen zur Lautstärkeverteilung 
und den Farben eingegeben. Insgesamt sind vier verschie¬ 
dene Lautstärke/Farben-Kombinationen möglich. Am Bild¬ 
schirm erscheint zunächst eine Skala von »0« bis »F« für die 
gewünschte Lautstärke. Ändern Sie diese entweder mit 
Links- oder Rechtsbewegung des Joysticks oder mit den 
Tasten <CRSR-rechts> und <CRSR-links>. 

Gleichzeitig läßt sich die Bildschirmfarbe bestimmen. 
Während des Abspielens wird ja der gesamte Bildschirm 
abgeschaltet, daher ist auch nur die Definition einer Farbe 
notwendig. Diese entspricht der aktuellen Rahmenfarbe. 
Sie ist zu verändern durch Vor- oder Zurückbewegen des 
Joysticks oder durch die üblichen Farbtasten (<CTRL 1 > 
bis <CTRL8> sowie <CBM 1 > bis <CBM 8>). Die Ein¬ 
stellung wird mit Feuer oder < RETURN > bestätigt, und 
die nächste Kombination kann definiert werden. 

Nach der vierten Definition oder aber nach Betätigung 
der Taste < RUN/STOP > kehrt Speech zum Menü zurück. 

5) Einbau: 

Diese Funktion baut wie üblich das Modul in den Titel ein. 
Der digitalisierte Sound wird dann zu Beginn des Titels ein- 
oder mehrmals (hängt von der Anzahl der Geschwindig¬ 
keits-Einstellungen ab) und dann erst wieder bei Drücken 
der Leertaste abgespielt. 

Mögliche Fehlermeldung: 

Keine - daher sollten Sie selber darauf achten, daß vor 
dem Probelauf oder dem Einbau tatsächlich ein digitalisier¬ 
ter Sound geladen wurde, da auch ein leerer Speicher von 
Speech als Sound interpretiert wird (ein akustischer Spei¬ 
chermonitor ist übrigens auch eine sehr interessante Sa¬ 
che, nur leider nicht besonders aufschlußreich). 

Das Modul »Aufbau« 


Dieses sehr einfache Modul läßt eine Bitmap langsam 
punktweise (sogenannter Sprühdosen-Effekt) am Bild¬ 
schirm erscheinen. 

Folgende Menüpunkte stehen zur Verfügung: 

1) Bitmap angeben: 

Geben Sie den Namen der Bitmap an, die am Bildschirm 
erscheinen soll. 


2) Probelauf: 

Die Grafik wird probeweise ausgegeben. Diese Ausgabe 
sollte auf keinen Fall mit < RESTORE > unterbrochen wer¬ 
den, da sonst die Bitmap im angezeigten Zustand im Spei¬ 
cher bleibt. 

3) Einbau: 

Das Modul wird in den Titel eingebaut. 

Mögliche Fehlermeldungen: 

»Sie haben noch keine Bitmap angegeben«: Ohne Fest¬ 
legung der Bitmap kann weder ein Probelauf stattfinden 
noch das Modul eingebaut werden. 

Das Modul »Wellen« 


Durch ständige Neudefinition von Farben in einer Bitmap 
oder in einem normalen Video-RAM wird ein fließender, 
wellenartiger Effekt erzeugt. Auch wenn Sie einen 
Monochrom-Monitor besitzen (oder gerade dann), sollten 
Sie dieses Modul eingeben. Da der Farbübergang bei mo¬ 
nochromer Darstellung zum reinen Helligkeitsübergang 
wird und eine beliebig lange Folge von Farben für die Welle 
definiert werden darf, läßt sich so ein äußerst weiches und 
homogenes Pulsieren der Zeichen erreichen. Besonders 
gut läßt sich dieser Effekt mit der Laufschrift oder dem 
Pseudo-Scrolling kombinieren. 

Folgende Menüpunkte stehen zur Verfügung: 

1) Bereich festlegen: 

Wählen Sie in einem Untermenü aus, ob ein Bereich im 
Farb-RAM (für alle Grafik-Einstellungen) oder im Video- 
RAM (für Bitmaps) ständig neu definiert werden soll, und 
geben S>h gegebenenfalls den Namen des Video-RAMs 
ein. Durch Punkt 3 (»Zurück«) gelangt man in das Hauptme¬ 
nü von »Wellen« zurück. 

Jetzt sehen Sie Ihre Grafik-Voreinstellung, in die peri¬ 
odisch ein Video-RAM eingeblendet wird. In der linken obe¬ 
ren Ecke ist ein Cursor zu erkennen, den man mit dem Joy¬ 
stick oder mit den Cursortasten bewegen kann. 

Geben Sie mit diesem Cursor die linke obere Ecke des 
Bereiches an, in dem die »Wellen« später ablaufen sollen. 
Nach der Bestätigung durch < RETURN > oder Feuer 
wählen Sie bitte auf die gleiche Weise die rechte untere 
Ecke des Bereiches. Nun gelangt man wieder zurück in das 
Wellen-Menü. 

2) Farben ändern: 

Nun können Sie eine beliebige Farbenfolge eingeben, 
die sich dann wellenartig am Bildschirm fortbewegt. Die 
Eingabe erfolgt denkbar einfach über die üblichen Farbta¬ 
sten (<CTRL 1> bis <CTRL 8> und <CBM 1> bis 
<CBM 8>). Die gewählten Farben werden als inverse 
Leerzeichen dargestellt. 

Die Voreinstellung für die Farbenfolge ist:»Blu - L Blu - 
Wht -L Blu -Blu - Blk«. 

Eine interessante Alternative wäre zum Beispiel: 

»Blu -L Blu - Cyn - Wht - Wht - Cyn - L Blu -Blu -Blk - Blk 
- Blk«. 

3) Probelauf: 

Jetzt können Sie sehen, wie die Farben geändert wer¬ 
den. Dabei bestehen folgende Möglichkeiten, auf den Ab¬ 
lauf Einfluß zu nehmen: 

Joystick nach unten und oben oder <CRSR-abwärts> 
und <CRSR-aufwärts> ändern die Geschwindigkeit der 
Welle, Joystick nach links und rechts oder <CRSR- 
rechts> und <CRSR-links> bestimmen die Richtung der 
Welle. 
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Mit <G> wird die aktuelle Geschwindigkeit (kleiner 
Wert = schnell, großer Wert = langsam) bis zum Druck auf 
die Leertaste oder Feuer eingeblendet. 

4) Grafik austauschen: 

Diese Funktion entspricht der gleichnamigen im Grafik¬ 
menü. Sie dient hier dazu, ein Video-RAM zu restaurieren, 
das durch den Wellengenerator manipuliert wurde. 

5) Einbau: 

Der Welleneffekt wird in den Titel eingebaut. Erfahrungs¬ 
gemäß werden die Wellenbewegungen durch den Einbau 
etwas schneller als im Probelauf. Probieren Sie daher erst 
einmal aus, wie sich die Geschwindigkeit ändert. Das Vi¬ 
deo-RAM soll im Bereich von $C000 bis $CFFF liegen, da 
es sonst zu Problemen mit dem Rasterinterrupt kommen 
kann. 

Mögliche Fehlermeldung: 

»Sie haben noch keinen Bereich bestimmt«: Ohne einen 
festen Bereich für die Wellen kann weder ein Probelauf 
stattfinden noch das Modul eingebaut werden. 

Das Modul Pseudo- 


Nach einem bestimmten Algorithmus wird ein Zeichen 
ständig auf bestimmte Weise neu definiert, daß ein schein¬ 
bares Scrolling des Zeichens zustande kommt (auch 
Pseudo-Scrolling oder zeicheninterne Bewegung ge¬ 
nannt). Besonders empfehlenswert ist dieser Effekt zusam¬ 
men mit der Wellenbewegung. 

Folgende Menüpunkte stehen zur Verfügung: 

1) Zeichen wählen: 

Nach der Eingabe des Zeichensatzes, in dem sich das 
für den Scrolling-Effekt verantwortliche Zeichen befindet, 
wählt man durch Joystick nach vorne und hinten oder 
<CRSR-abwärts> und <CRSR-aufwärts> das ge¬ 
wünschte Zeichen aus und bestätigt mit < RETURN > 
oder Feuer. 

Anschließend wird automatisch der Scrolling-Effekt ein¬ 
geschaltet. Mit den Cursortasten oder dem Joystick ändern 
Sie die Richtung des Scrollings, mit den Tasten < + > und 

< —> die Geschwindigkeit des Scrollings. Die angezeigte 
Verzögerung ist selbstverständlich um so größer, je kleiner 
die Geschwindigkeit ist. Endgültig übernommen wird die 
Einstellung dann durch < RETURN > oder Feuer. 

ACHTUNG: Aus programmtechnischen Gründen kön¬ 
nen Sie die Wahl des Zeichens nicht mit der Taste 

< RUN/STOP > beenden. Dies führt zum Absturz des ge¬ 
samten Programmes. Sollten Sie eine Fehler begangen ha¬ 
ben, muß die Einstellung trotzdem korrekt abgeschlossen 
und vom Menü aus noch einmal vorgenommen werden. 

2) Einbau: 

Das Pseudo-Scrolling wird in den Titel eingebaut. 

Beachten Sie, daß der Zeichensatz im Bereich von 
$C000 bis $CFFF liegt, da es sonst Probleme mit dem Ra¬ 
sterinterrupt geben kann. 

Mögliche Fehlermeldung: 

»Sie haben noch kein Zeichen ausgewählt«: Ohne die 
Einstellungen kann das Modul nicht in den Titel eingebaut 
werden. 

Das Modul »Overlay« 


Ein Titel wäre keiner, wenn es nicht noch ein Hauptpro¬ 
gramm gäbe, das von dem Titel aus gestartet wird. Das 
Nachladen und Starten des Hauptprogramms ist Aufgabe 


dieses letzten Moduls namens Overlay. Selbstverständlich 
kann anstatt des Hauptprogramms auch ein weiterer Titel 
nachgeladen werden. 

Folgende Menüpunkte stehen zur Verfügung: 

1) Run: 

Das Overlay-Modul wird auf ein Hauptprogramm einge¬ 
stellt, das mit RUN zu starten ist. Legen Sie vor Aufruf des 
Menüpunktes schon die Diskette mit dem Hauptprogramm 
ein und wählen eben diese Datei aus dem Directory. Jetzt 
ist Ihr Modul auf diese Datei eingestellt. 

2) Sys: 

Die Funktion entspricht weitgehend »Run«, jedoch be¬ 
zieht sie sich auf ein mit SYS startbares Maschinenpro¬ 
gramm. Geben Sie zusätzlich noch die Startadresse als 
vierstellige Hexadezimalzahl ein. 

3) Einbau: 

Das Modul wird in den Titel eingebaut. Sobald im fertigen 
Programm die Taste < RETURN > betätigt wird, versucht 
es, das Hauptprogramm zu laden und zu starten. Tritt dabei 
irgendein Fehler auf, führt der Computer einen Reset aus. 

ACHTUNG! Das Overlay-Modul ist sehr gefährlich, da es 
schon vor der endgültigen Generierung des Titels auf die 
Taste < RETURN > reagiert. Oft ist ein Abbruch des Lade¬ 
vorgangs durch <RESTORE> nicht mehr möglich, so daß 
der Titel hoffnungslos verloren geht. Sie sollten daher auf 
jeden Fall vor dem Start des Titels (Punkt 3 im Systemme¬ 
nü) den Stand speichern. Zudem ist es empfehlenswert, 
das Overlay-Modul grundsätzlich als letztes einzubauen. 
Mögliche Fehlermeldung: 

»Sie haben noch keine Datei angegeben«: Ohne die Aus¬ 
wahl eines Hauptprogramms kann das Modul nicht einge¬ 
baut werden. 

Das fertige Titel-Programm 


Es ist möglich, daß auch bei korrekt programmierten und 
eingebauten Modulen ein Titel nicht läuft. Das ist zwar sehr 
selten, aber theoretisch dennoch möglich. Ursache dafür 
kann zum Beispiel ein Überlauf des Stapels sein, der auf- 
tritt, wenn zuviel Zeit im Interrupt-Bereich benötigt wird. 
Leider läßt sich dies nicht vermeiden, jedoch hilft meist 
schon das Entfernen oder Ändern eines Moduls. 

Ebenso kann es Vorkommen, daß ein Rasterinterrupt im 
Probelauf oder bei Punkt 3 im Systemmenü nicht auf An¬ 
hieb funktioniert. Das ist durch das Betriebssystem des 
PTG bedingt und gibt sich, wenn der Titel generiert wurde. 
In solchen Fällen brechen Sie bitte ab und starten den Titel 
neu. 

Oft hat das gespeicherte fertige Programm eine aberwit¬ 
zige Länge. Dem kann aber durch einen normalen Packer 
wirkungsvoll abgeholfen werden. Oft läßt sogar ein mittel¬ 
mäßiger Packer von dem ursprünglichen Programm nur 
noch 20 bis 30 Prozent übrig. Bei voller Speicherausnüt¬ 
zung entstehen sogar Titel, die in ungepackter Form gar 
nicht mehr geladen werden. In diesem Fall ist das Packen 
nicht nur nützlich, sondern unentbehrlich. 

Zusammenarbeit mit Floppybeschleunigem: Der Titel¬ 
generatormuß oft sehr lange Dateien speichern und wieder 
laden. Das geht mit dem Original-Betriebssystem sehr 
langsam und zehrt an den Nerven. Dazu kommt, daß die 
Dateien nicht mit den Kernal-Routinen LOAD und SAVE ge¬ 
speichert und geladen werden, da oft Bereich unter dem 
l/O-RAM (ab $D000) gespeichert werden müssen. Softwa¬ 
remäßige Beschleuniger helfen hier also auf keinen Fall. 
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Der Hardware-Beschleuniger Exos bootet zwar den Titel¬ 
generator schnell, kann dann aber die Programmdateien, 
die später geöffnet werden, nicht mehr schnell lesen. Bei 
Speeddos+ werden Floppy-Fehler, die beim Laden auftre- 
ten, nicht korrekt erkannt. 

Ähnliche Fehler zeigt das 64ör-DOS. Hier werden keine 
Fehler beim Schreiben auf Diskette erkannt. Bei der Ver¬ 
wendung eines der beiden Betriebssysteme sollten Sie al¬ 
so unbedingt auf die rote Laufwerksleuchte achten, die den 
Fehler anzeigt, und dann die I/O-Operation von sich aus 
wiederholen. 

Keine Fehler in dieser Hinsicht hat das Dolphin-DOS; 
auch Prolocig-DOS arbeitetet einwandfrei mit dem PTG zu¬ 
sammen. 

Die Erstellung eigener Module 


Wie schon oben angesprochen, kann der PTG ohne weite¬ 
res mit eigenen Modulen erweitert werden, so daß dem fin¬ 
digen Maschinensprache-Programmierer hier Tür und Tor 
offenstehen, die eigenen Ideen zu verwirklichen. 

Der PTG bietet hierfür sehr viele nützliche Hilfsroutinen 
und Standard-Vektoren, so daß eine Einführung in die Pro¬ 
grammierung des PTG im Rahmen dieses Artikels aus 
Gründen der Länge weder sinnvoll noch machbar ist. Inter¬ 
essierte finden aber auf der Leserservice-Diskette die ent¬ 
sprechende Anleitung in der Datei »PTG-INTERN.TXT« im 
Format der verbreiteten Textverarbeitung Vizawrite. 

Video-RAM und Zeichensatz 

Fast jedes Modul des PTG benötigt ein Video-RAM oder 
einen Zeichensatz im Speicher. Hier sollen nun für Anfän¬ 
ger noch zwei kleine Programme vorgestellt werden, mit 


denen Sie ein leeres Video-RAM sowie den Standard- 
Zeichensatz auf Diskette speichern können. 

Das folgende Programm eröffnet eine sequentielle Datei 
vom Typen PRG und speichert darin nacheinander die 
ASCII-Codes von 0 und 4 (übliche Ladeadresse: $0400/ 
1024) sowie lOOOmal den ASCII-Code von 32 (entspricht ei¬ 
nem mit Leerzeichen gefüllten Bildschirmspeicher). Nach 
dem Schließen der Datei haben Sie unter dem Namen 
»VIDEO-RAMI« ein einfaches Video-RAM auf Diskette, das 
Sie im Speicher des PTG dann nach eigenen Wünschen 
verändern können (siehe Punkt 1 des Lettermaker-Menüs). 

10 OPEN 2,8,2,"VIDEO-RAMI,P,W" 

20 PRINT#2, CIIR$(0) ;CHR$(4); 

30 F0R L=1 T0 1001 

40 PRINT#2, CHR$(32); 

50 NEXT 

60 CL0SE 2 

Auch einen neuen Zeichensatz hat man als Anfänger 
nicht immer zur Hand. Die einfachste Art, an einen Zei¬ 
chensatz heranzukommen, ist natürlich, den eingebauten 
Commodore-Zeichensatz zu benutzen. Leider erlaubt der 
PTG aus Gründen der Speicherverwaltung nicht den direk¬ 
ten Zugriff auf das ROM. 

Listing 10 (»ZS-GENERATOR«) stellt eine Lösung des 
Problems dar. Unerfahrene mögen sich über die Länge des 
Programmes für den doch relativ einfachen Zweck wun¬ 
dern, da aber Zeichensatz- und l/O-ROM übereinander lie¬ 
gen, ist es das sinnvollste, zunächst das Zeichensatz-ROM 
ins RAM und dann von dort in eine Datei zu kopieren. 

Nach Ablauf des Programms finden Sie auf der Diskette 
unter dem Namen »ZEICHENSATZ1« den Standard- 
Zeichensatz ladbar für den PTG. 

(Stefan Kebekus/Nikolaus Huber/sk) 
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nelle Titelgenerator. Bitte mit 
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87 

b3 

08 

5b 

59 

d4 

lf99 

ld 

f3 

97 

8e 

88 

bl 

77 

e7 

2b 

lbOl 

9c 

2c 

36 

b2 

9f 

12 

ca 

e4 

17 

ld51 

6d 

bf 

86 

96 

la 

b9 

c8 

21 

e7 

lfal 

8f 

bd 

8b 

02 

70 

el 

9d 

53 

65 

lb09 

3d 

al 

84 

e7 

df 

c3 

00 

f7 

41 

ld59 

96 

4a 

ae 

74 

ba 

78 

e9 

6f 

44 

lfa9 

7c 

69 

62 

eb 

c9 

73 

99 

aa 

o4 

lbll 

de 

da 

38 

bb 

3e 

25 

c6 

ea 

de 

ld6l 

2e 

e9 

f9 

28 

10 

4b 

81 

f4 

53 

lfbl 

50 

42 

5d 

3c 

f5 

23 

5a 

97 

12 

lbl9 

19 

39 

al 

03 

85 

94 

b8 

fc 

71 

ld69 

37 

c7 

2f 

81 

70 

Oa 

eO 

36 

c7 

lfb9 

8f 

a2 

f2 

9e 

c6 

cd 

e2 

61 

53 

lb21 

lb 

54 

06 

7d 

58 

27 

52 

ce 

3d 

ld71 

b5 

47 

07 

cc 

cf 

96 

26 

Of 

8e 

lfcl 

a4 

dl 

Oc 

le 

5f 

4f 

e5 

f4 

07 

lb29 

a5 

2d 

fc 

07 

b6 

b5 

5c 

3c 

88 

ld79 

02 

5a 

44 

70 

46 

54 

b3 

d8 

4f 

lfc9 

ba 

8d 

49 

al 

62 

aa 

a3 

51 

7d 

lb31 

9e 

74 

da 

Ob 

80 

ba 

51 

8b 

5c 

ld81 

d6 

97 

42 

32 

ii 

7c 

26 

a8 

d9 

lfdl 

2c 

a6 

a7 

bf 

f4 

Oa 

Od 

ce 

a4 

lb39 

c5 

4f 

20 

52 

7e 

07 

ee 

Oe 

fO 

ld89 

a5 

b8 

08 

88 

26 

8c 

Of 

23 

e7 

lfd9 

a5 

lf 

29 

c5 

e2 

a9 

89 

5f 

71 

lb4l 

68 

d2 

fc 

le 

62 

ca 

fa 

62 

42 

ld91 

aO 

9a 

b8 

66 

48 

9a 

b8 

86 

c2 

lfel 

c3 

40 

89 

el 

78 

19 

de 

ae 

8c 

lb49 

c7 

af 

be 

c4 

cl 

52 

4a 

60 

c9 

ld99 

f3 

3b 

e9 

df 

6c 

5a 

73 

75 

f2 

lfe9 

40 

b8 

5e 

96 

7b 

e6 

a5 

99 

a8 

lb51 

3a 

46 

d2 

14 

c8 

a4 

78 

d4 

23 

ldal 

64 

4d 

34 

8f 

a4 

ee 

f7 

9b 

84 

lffl 

c5 

55 

31 

8f 

56 

la 

4f 

48 

a3 
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TOOLS: GRAFIK 


C64 


lff9 

: fc 7d 07 da d8 ba 82 8e 

5b 

2001 

: 70 92 6f 4f 7c 49 b6 54 

16 

2009 

: c2 93 77 a4 69 31 a7 3f 

44 

2011 

: el 51 06 lc fd 37 68 e4 

a5 

2019 

: a2 ld e8 ce 93 68 02 5c 

9b 

2021 

: 5c fb 92 26 ce b2 ac 75 

04 

2029 

: 46 d7 09 65 81 13 de a3 

bd 

2031 

: bd 65 67 d7 Oe c4 f7 dl 

00 

2039 

: de a4 38 5e ef a9 e5 da 

dd 

2041 

: 28 7a 19 47 b4 12 b7 23 

d7 

2049 

: 3f 44 ae 47 60 b2 dl fO 

04 

2051 

: 08 92 2f f7 83 97 al 39 

5b 

2059 

: 89 53 ad e4 31 54 2b 78 

e7 

2061 

: 0c 34 61 bd 6e e9 b0 dl 

34 

2069 

: 96 30 26 da ba 61 99 d6 

c7 

2071 

: b8 a4 4f 98 c5 5c e6 be 

bb 

2079 

: c7 06 ca lb 29 e9 dd 49 

45 

2081 

42 58 09 lf b3 98 76 4d 

8a 

2089 

f9 6f 4d 67 50 78 27 78 

dO 

2091 

54 b8 ce 57 a7 7e 53 42 

20 

2099 

01 ld ee 17 c8 a5 ae 18 

6c 

20al 

d6 41 e2 cc e2 e6 5a 20 

79 

20a9 

87 aa 9c dl 06 67 6d 61 

fb 

20bl 

75 83 bl 4l 25 c8 al 2e 

f8 

20b9 

99 55 87 76 10 d7 55 36 

2f 

20cl 

59 e4 52 47 a3 ff e6 5a 

94 

20c9 

47 09 90 02 b9 f7 95 20 

eb 

20dl 

97 ba 94 d5 ea d6 b6 06 

fl 

20d9 

6d 6d 83 ae a2 11 ae d9 

d5 

20el 

5b 2a cc cf d6 92 e8 4a 

b9 

20e9 

25 c7 bc 6b 9a eb a6 71 

15 

20fl 

3f bl 76 d3 25 dO 9c 5d 

27 

20 f9 

aO 5a 82 9f e7 e6 cO b2 

79 

2101 

cO ef 02 cb 2d dO da 39 

ea 

2109 

68 9e ac fc 80 ba b8 b9 

bf 

2111 

ca fO b5 12 3c b7 00 6c 

5d 

2119 

e6 40 ba 12 ac 26 e6 74 

91 

2121 

77 bd 04 3a f2 5b aO 6a 

21 

2129 

dO 7f Oe 72 e7 57 cO 38 

37 

2131 

39 e4 90 43 77 ad 04 d3 

05 

2139 

bf 62 b7 b3 b9 cl e5 98 

00 

2141 

ee lf 9c 2d 12 c7 05 e6 

cd 

2149 

de 5e 82 f6 2b c7 6e 75 

6b 

2151 

23 5c 33 67 01 80 29 8b 

2c 

2159 

70 fa d7 2c 6f a6 ba cl 

5c 

2161 

d6 eO ad 03 d4 85 25 al 

c4 

2169 

37 02 ec d5 3e 73 19 8c 

94 

2171 

71 95 eO 95 9a 69 d6 be 

65 

2179 

ad 4b 6a a7 ed 38 a8 47 

2d 

2181 

77 Of 70 5b 40 07 be 74 

27 

2189 

90 lb f8 9a 28 81 e6 fl 

46 

2191 

25 78 2a aO f9 bd 72 b6 

56 

2199 

a9 lc lb 84 d5 b5 7d Od 

c3 

21al : 

da 26 83 d9 a2 02 al fa 

61 

21a9 : 

f6 61 16 f5 70 f6 12 dO 

3d 

21bl : 

26 87 80 bd 6d 57 el 67 

5a 

21b9 : 

83 b7 a6 5f 89 07 67 73 

03 

21ol : 

71 7d 67 69 aa 95 81 fO 

37 

21c9 : 

dO 81 6c ab a8 f6 40 66 

fa 

21dl : 

a9 70 06 4f Ob b4 b5 b5 

b6 

21d9 : 

84 bO 43 fb 47 f4 d9 5e 

46 

21el : 

3a lc 6e 6c 9b 03 f4 27 

46 

21e9 : 

87 cd eO lb 65 dO lc ee 

ld 

21fl : 

ba 46 81 00 ff 66 f6 30 

9e 

21f9 : 

35 05 9e 5f 02 4d dd cb 

de 

2201 : 

41 48 Oe 4f b5 2d d5 2d 

4a 

2209 : 

cd 5d ca 5b 2a fe 52 f2 

6d 

2211 : 

97 12 4b 81 97 la 4b 01 

2e 

2219 : 

01 4a 03 cO ac 02 cl 57 

a9 

2221 : 

cO f7 61 50 ae 40 cO ce 

cd 

2229 : 

3c fO 6e 94 eO f9 13 84 

3f 

2231 : 

5d 67 81 4e a3 04 al fc 

47 

2239 : 

41 ld 6d 5d db d7 a6 c2 

ac 

2241 : 

de b4 7f e3 c8 ff fd 09 

6a 


2249 : 

: 3a 

50 

b6 

36 

68 

Ob 

Ob 

3c 

a3 

2251 : 

: Od 

02 

Of 

2f 

67 

6d 

73 

83 

cO 

2259 : 

: b7 

be 

a6 

74 

32 

b3 

la 

7b 

c8 

2261 : 

: 8b 

9a 

8c 

46 

4d 

Oe 

a8 

53 

b4 

2269 : 

: 93 

03 

6a 

d5 

c9 

01 

f5 

6a 

24 

2271 : 

: 5f 

d4 

34 

d6 

cd 

cl 

4e 

f8 

38 

2279 : 

64 

10 

c4 

10 

ec 

7f 

18 

aa 

99 

2281 : 

Ob 

27 

a9 

el 

39 

95 

54 

37 

c6 

2289 : 

83 

07 

55 

88 

9c 

89 

22 

af 

f4 

2291 : 

89 

Oa 

91 

71 

ff 

f3 

ff 

00 

51 


Listlng 1. (Schluß) 


Name : Aufbau.mo 4fcd 5271 


4fcd 

: 6b 

72 

de 

4f 

f7 

51 

81 

de 

el 

4fd5 

: 4f 

f4 

51 

00 

00 

00 

00 

00 

f3 

4fdd 

: 00 

00 

00 

6a 

52 

6a 

72 

a2 

b2 

4fe5 

: ff 

9a 

ad 

de 

4f 

ad 

e2 

4f 

05 

4fed 

: 85 

3d 

ad 

e3 

4f 

85 

3e 

ad 

6e 

4ff5 

: 00 

dd 

09 

03 

8d 

00 

dd 

a9 

2a 

4ffd 

: lb 

8d 

11 

dO 

a9 

c8 

8d 

16 

80 

5005 

: dO 

a9 

17 

8d 

18 

dO 

ad 

20 

20 

500d 

: 52 

ad 

06 

50 

ac 

07 

50 

20 

46 

5015 

: 62 

Od 

a9 

04 

20 

99 

Od 

c9 

7f 

501d 

: 01 

fO 

42 

c9 

02 

dO 

08 

a9 

7a 

5025 

: ff 

8d 

40 

51 

4c 

c7 

50 

ad 

c5 

502d 

: c8 

50 

dO 

15 

20 

66 

14 

ad 

d5 

5035 

: f7 

51 

ad 

2f 

50 

ac 

30 

50 

f2 

503d 

: 20 

62 

Od 

20 

63 

11 

6c 

3d 

cl 

5045 

: 00 

a9 

ff 

8d 

40 

51 

a9 

01 

03 

504d 

: 8d 

cd 

4f 

ad 

lc 

51 

ad 

4b 

e4 

5055 : 

: 50 

ac 

4c 

50 

8d 

ce 

4f 

8c 

be 

505d : 

: cf 

4f 

4c 

00 

lc 

20 

69 

14 

78 

5065 : 

: ad 

02 

2b 

ad 

60 

50 

85 

02 

36 

506d : 
5075 : 

: ad 
: aO 

» 

# 

* 

»## 

96 

a6 

507d : 

: bl 

60 

8d 

8a 

50 

a9 

00 

85 

70 

5085 : 

: 02 

8d 

4c 

51 

8d 

74 

51 

8d 

68 

508d : 

: c2 

51 

a9 

20 

85 

03 

8d 

4e 

a9 

5095 ! 

: 51 

8d 

76 

51 

8d 

c4 

51 

a9 

Oc 

509d : 

: 2c 

8d 

6b 

51 

ad 

49 

51 

ac 

59 

50a5 : 

: 4a 

51 

85 

04 

84 

05 

78 

a9 

lf 

50ad : 

: 00 

85 

01 

a2 

20 

aO 

00 

bl 

6f 

50b 5 : 

: 02 

91 

04 

88 

dO 

f9 

e6 

03 

10 

50bd : 

: e6 

05 

ca 

dO 

f2 

a9 

36 

85 

53 

50c 5 : 

: 01 

8d 

c8 

50 

58 

6c 

3d 

00 

a7 

50cd : 

a9 

00 

dO 

15 

20 

66 

14 

ad 

2e 

50d5 : 

f7 

51 

ad 

cf 

50 

ac 

dO 

50 

28 

50dd : 

20 

62 

Od 

20 

63 

11 

6c 

3d 

61 

50e5 : 

00 

ad 

35 

2c 

8d 

11 

dO 

ad 

8f 

50ed : 

30 

2o 

8d 

18 

dO 

ad 

3a 

2c 

55 

50f5 : 

8d 

16 

dO 

ad 

00 

dd 

29 

fc 

05 

50fd : 

8d 

00 

dd 

18 

a5 

30 

85 

02 

fb 

5105 : 

85 

04 

a5 

31 

85 

03 

69 

04 

3a 

510d : 

85 

05 

ad 

00 

d8 

ad 

Oa 

51 

46 

5115 : 

85 

06 

ad 

Ob 

51 

85 

07 

20 

08 

511d : 

lc 

51 

4o 

16 

51 

ea 

ad 

40 

5b 

5125 : 

51 

30 

29 

dO 

06 

4c 

ef 

51 

18 

512d : 

4c 

ec 

51 

a2 

01 

ca 

8e 

2b 

8f 

5135 : 

51 

dO 

f5 

a2 

3a 

8e 

2b 

51 

27 

513d : 

a2 

00 

ca 

8e 

38 

51 

dO 

06 

cl 

5145 : 

a2 

ff 

ca 

8e 

40 

51 

4o 

6a 

00 

5l4d : 

51 

ad 

6a 

52 

a9 

00 

aO 

00 

77 

5155 : 

85 

02 

84 

03 

aO 

00 

98 

a2 

Of 

515d : 

20 

91 

02 

88 

dO 

fb 

e6 

03 

66 

5165 : 

ca 

dO 

f6 

a9 

Ob 

8d 

40 

51 

4b 

5l6d : 

4c 

ec 

51 

78 

4c 

73 

51 

78 

29 

5175 : 

a9 

00 

85 

01 

a9 

00 

aO 

00 

bd 

517d : 

85 

02 

84 

03 

ad 

49 

51 

ac 

49 

5185 : 

4a 

51 

85 

04 

84 

05 

aO 

00 

4d 

518d : 

a2 

20 

a9 

36 

85 

01 

ac 

04 

8c 

5195 : 

de 

a9 

00 

85 

01 

bl 

04 

48 

35 


519d 

: a9 

36 

85 

01 

68 

2d 

12 

dO 

bd 

51a5 

: 48 

a9 

00 

85 

01 

68 

11 

02 

Oe 

5 lad 

: 91 

02 

e6 

03 

e6 

05 

ca 

dO 

bd 

51b5 

: d9 

ad 

38 

51 

dO 

05 

ad 

40 

09 

51bd 

: 51 

fO 

07 

a9 

36 

85 

01 

4c 

aa 

51c5 

: ec 

51 

a9 

00 

aO 

00 

85 

02 

e8 

51cd 

: 84 

03 

ad 

49 

51 

ac 

4a 

51 

ae 

51d5 

: 85 

04 

84 

05 

aO 

00 

a2 

20 

f3 

51dd 

: bl 

04 

91 

02 

88 

dO 

f9 

e6 

fa 

51e5 

: 03 

e6 

05 

ca 

dO 

f2 

a9 

36 

ae 

51ed . 

: 85 

01 

4c 

ef 

51 

4c 

lc 

51 

8e 

51f5 

: a9 

36 

85 

01 

58 

4c 

de 

4f 

3d 

51fd : 

: 2d 

d3 

49 

45 

20 

48 

4l 

42 

dd 

5205 : 

: 45 

4e 

20 

4e 

4f 

43 

48 

20 

b4 

520d : 

: 4b 

45 

49 

4e 

45 

20 

c2 

49 

Oa 

5215 : 

: 54 

4d 

4l 

50 

20 

4l 

4e 

47 

3e 

521d : 

: 45 

47 

45 

42 

45 

4e 

2e 

2d 

79 

5225 : 

: 40 

93 

97 

Od 

11 

11 

09 

3c 

ed 

522d : 

: 20 

20 

2d 

20 

cl 

55 

46 

42 

11 

5235 : 

: 41 

55 

20 

2d 

Od 

11 

11 

09 

7e 

523d : 

: 3a 

20 

31 

29 

20 

c2 

49 

54 

df 

5245 : 

: 4d 

4l 

50 

20 

41 

4e 

47 

45 

79 

524d : 

: 42 

45 

4e 

Od 

11 

09 

3a 

20 

ea 

5255 ! 

: 32 

29 

20 

dO 

52 

4f 

42 

45 

71 

525d : 

: 4c 

41 

55 

46 

Od 

11 

09 

3a 

5a 

5265 : 

: 20 

33 

29 

20 

c5 

49 

4e 

42 

d2 

526d : 

41 

55 

40 

ea 

ff 

00 

ff 

00 

c6 

Listlng 2. 

»AUFBAU. 

MO«, 





ein Modul. Bitte mit dem MSE 
(Seite 159) eingeben. 


Name : Lauf.mo 4fcd 56ba 


4fcd : 

: b3 

56 

de 

4f 

fe 

55 

81 

de 

ab 

4fd5 : 

: 4f 

00 

00 

00 

00 

00 

00 

f3 

Oc 

4fdd : 

: 54 

fe 

55 

b2 

56 

00 

00 

ad 

ld 

4fe5 : 

: de 

4f 

ad 

df 

4f 

85 

3d 

ad 

44 

4fed : 

: eO 

4f 

85 

3e 

a9 

lb 

8d 

11 

6a 

4ff5 : 

: dO 

a9 

c8 

8d 

16 

dO 

a9 

17 

3a 

4ffd : 

: 8d 

18 

dO 

ad 

Oc 

Of 

ad 

fb 

68 

5005 : 

: 4f 

8d 

20 

dO 

ad 

fc 

4f 

8d 

58 

500d : 

: 21 

dO 

ad 

80 

15 

ad 

Oa 

50 

99 

5015 : 

: ac 

Ob 

50 

20 

62 

Od 

ad 

00 

a4 

501d : 

: dd 

09 

03 

8d 

00 

dd 

a2 

ff 

6b 

5025 : 

: 9a 

ad 

ff 

55 

ad 

21 

50 

ac 

bf 

502d : 

: 22 

50 

20 

62 

Od 

a9 

06 

20 

42 

5035 : 

: 99 

Od 

c9 

04 

dO 

03 

4c 

61 

61 

503d ; 

: 21 

c9 

01 

dO 

10 

ad 

3e 

51 

a7 

5045 : 

: ad 

3d 

50 

85 

7a 

ad 

3e 

50 

04 

504d : 

: 85 

7b 

4c 

69 

ld 

c9 

05 

dO 

a6 

5055 : 

: 50 

20 

df 

50 

a9 

2c 

8d 

68 

ba 

505d : 

: 55 

ad 

b2 

56 

ad 

59 

50 

8d 

02 

5065 : 

: 8d 

55 

ad 

5a 

50 

8d 

8e 

55 

aa 

506d : 

: a9 

01 

8d 

cd 

4f 

a9 

00 

8d 

11 

5075 : 

; ce 

4f 

8d 

cf 

4f 

e6 

83 

dO 

24 

507d : 

: 02 

e6 

84 

aO 

00 

a9 

20 

91 

18 

5085 i 

: 83 

a5 

83 

8d 

de 

4f 

a5 

84 

55 

508d : 

: 8d 

dd 

4f 

78 

a9 

00 

85 

01 

9e 

5095 : 

: a9 

20 

aO 

27 

91 

8a 

88 

10 

Ob 

509d : 

: fb 

a9 

36 

85 

01 

58 

4c 

00 

af 

50a5 : 

: lc 

c9 

02 

dO 

55 

20 

df 

50 

b7 

50ad : 

: a9 

2c 

8d 

68 

55 

ad 

b2 

56 

17 

50b5 : 

ad 

ad 

50 

8d 

8d 

55 

ad 

ae 

96 

50bd : 

: 50 

8d 

8e 

55 

38 

a5 

32 

85 

a7 

50c5 : 

: 04 

e9 

01 

85 

02 

a5 

33 

85 

d4 

50cd : 

05 

e9 

04 

85 

03 

ad 

00 

d8 

c8 

50d5 ! 

ad 

cd 

50 

85 

06 

ad 

ce 

50 

d7 

50dd : 

85 

07 

20 

6d 

Oc 

4c 

3f 

54 

64 

50e5 : 

a9 

00 

dO 

15 

20 

66 

14 

ad 

46 


Listing 3. »LAUF.MO«, 

ein Modul. Bitte mit dem MSE 

(Seite 159) eingeben. 
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C 64 


TOOLS: GRAFIK 


50ed 

7b 

56 

ad 

e7 

50 

ac 

e8 

50 

aa 

5345 

dd 

a9 

01 

85 

cc 

78 

a9 

00 

lf 

559d 

8d 

68 

55 

4c 

c7 

55 

c9 

c6 

19 

50f5 

20 

62 

Od 

20 

63 

11 

4c 

de 

3b 

534d 

85 

01 

a9 

20 

aO 

27 

91 

8a 

60 

55a5 

dO 

08 

a9 

2c 

8d 

68 

55 

4c 

73 

50fd 

4f 

60 

20 

df 

50 

20 

69 

14 

54 

5355 

88 

10 

fb 

a9 

36 

85 

01 

58 

5e 

55ad 

c7 

55 

c9 

c8 

dO 

25 

a9 

80 

88 

5105 

ad 

a3 

56 

ad 

00 

51 

ac 

01 

Oe 

53 5d 

6c 

3d 

00 

c9 

12 

dO 

06 

20 

al 

55b5 

8d 

5b 

55 

4c 

c7 

55 

ad 

b2 

12 

510d 

51 

20 

62 

Od 

20 

7d 

27 

48 

c4 

5365 

d2 

ff 

4c 

f9 

52 

c9 

92 

dO 

e8 

55bd 

56 

ad 

b6 

55 

ac 

b7 

55 

8d 

3b 

5115 

38 

a5 

30 

e9 

00 

85 

02 

a5 

e9 

536d 

06 

20 

d2 

ff 

4c 

f9 

52 

c9 

a9 

55o5 

8d 

55 

8c 

8e 

55 

4c 

8c 

55 

86 

511d 

31 

e9 

00 

85 

03 

18 

a5 

02 

7f 

5375 

14 

dO 

72 

ad 

b2 

56 

a5 

83 

bf 

55cd 

ee 

8d 

55 

dO 

cO 

ee 

8e 

55 

5a 

5125 

65 

8c 

85 

02 

a5 

03 

65 

8d 

95 

537d 

cd 

73 

53 

dO 

Oa 

a5 

84 

cd 

6e 

55d5 

4c 

8c 

55 

aO 

00 

84 

01 

8d 

14 

512d 

85 

03 

78 

a9 

00 

85 

01 

aO 

f9 

5385 

74 

53 

dO 

03 

4c 

f9 

52 

38 

86 

55dd 

4f 

04 

a9 

36 

85 

01 

ee 

8d 

97 

5135 

27 

68 

91 

02 

88 

10 

fb 

a9 

81 

538d 

a5 

83 

e9 

28 

85 

04 

a5 

84 

8b 

55e5 

55 

dO 

03 

ee 

8e 

55 

a9 

3a 

fO 

513d 

36 

85 

01 

58 

4c 

de 

4f 

ad 

d6 

5395 

e9 

00 

85 

05 

78 

a9 

00 

85 

60 

55ed 

8d 

12 

dO 

ad 

f3 

54 

ad 

eb 

dd 

5145 

80 

03 

8d 

lb 

55 

ad 

82 

03 

eO 

539d 

01 

aO 

26 

b9 

28 

04 

99 

29 

Oa 

55f5 

55 

ac 

ec 

55 

8d 

fl 

54 

8c 

59 

5l4d 

8d 

20 

55 

aO 

02 

ad 

30 

2 c 

fa 

53a5 

04 

88 

10 

f7 

38 

a5 

04 

ed 

8d 

55fd 

f2 

54 

4c 

bc 

fe 

a9 

42 

00 

Oa 

5155 

8d 

18 

dO 

ad 

35 

2c 

8d 

11 

e5 

53 ad 

73 

53 

a5 

05 

ed 

74 

53 

90 

c5 

5605 

93 

97 

Od 

11 

11 

09 

3c 

2d 

6e 

515d 

dO 

ad 

3a 

2c 

8d 

16 

dO 

ad 

40 

53b5 

15 

aO 

00 

bl 

04 

8d 

28 

04 

a6 

560d 

20 

cc 

41 

55 

46 

53 

43 

48 

2b 

5165 

00 

dd 

29 

fc 

8d 

00 

dd 

ad 

e9 

53bd 

78 

a9 

00 

85 

01 

aO 

27 

a9 

cO 

5615 

52 

49 

46 

54 

20 

2d 

Od 

11 

ea 

5l6d 

20 

dO 

48 

78 

ad 

18 

52 

ad 

57 

53c5 

aO 

91 

8a 

4c 

ca 

53 

a9 

20 

88 

56ld 

11 

09 

3a 

20 

31 

29 

20 

d4 

cc 

5175 

6c 

51 

8d 

14 

03 

ad 

6d 

51 

66 

53cd 

8d 

28 

04 

a5 

83 

dO 

02 

c6 

78 

5625 

45 

58 

54 

20 

45 

49 

4e 

47 

16 

517d 

8d 

15 

03 

a9 

32 

8d 

12 

dO 

04 

53d5 

84 

c6 

83 

aO 

27 

b9 

28 

04 

9a 

562d 

45 

42 

45 

4e 

Od 

11 

09 

3a 

aO 

5185 

85 

02 

a9 

3a 

85 

03 

a9 

00 

d4 

53 dd 

91 

8a 

88 

10 

f8 

a9 

36 

85 

98 

5635 

20 

32 

29 

20 

dO 

52 

4f 

42 

le 

518d 

85 

85 

ad 

11 

dO 

29 

7f 

8d 

d2 

53e5 

01 

58 

4c 

f9 

52 

a6 

83 

e4 

97 

563d 

45 

4c 

41 

55 

46 

Od 

11 

09 

c6 

5195 

11 

dO 

a9 

01 

8d 

la 

dO 

58 

36 

53ed 

38 

dO 

09 

a6 

84 

e4 

39 

dO 

9a 

5645 

3a 

20 

33 

29 

20 

c6 

41 

52 

63 

519d 

a2 

00 

aO 

60 

88 

dO 

fd 

ca 

10 

53 f 5 

03 

4c 

f9 

52 

48 

a2 

01 

aO 

c6 

564d 

42 

45 

20 

57 

41 

45 

48 

4c 

ld 

51a5 

dO 

f8 

ad 

00 

de 

c9 

7d 

fO 

51 

53fd 

01 

18 

20 

fO 

ff 

a9 

14 

20 

Oe 

5655 

45 

4e 

Od 

11 

09 

3a 

20 

34 

72 

51ad 

3e 

c9 

7e 

fO 

53 

c9 

6f 

dO 

70 

5405 

d2 

ff 

a2 

01 

aO 

26 

18 

20 

7b 

565d 

29 

20 

c7 

52 

4l 

50 

48 

49 

ld 

51b5 

03 

4c 

48 

52 

20 

3e 

fl 

c9 

8a 

540d 

fO 

ff 

a9 

01 

85 

d4 

68 

20 

68 

•5665 

4b 

20 

41 

55 

53 

54 

4l 

55 

43 

51bd 

91 

fO 

45 

c9 

11 

fO 

28 

c9 

le 

5415 

d2 

ff 

a9 

00 

85 

d4 

78 

a9 

85 

566d 

53 

43 

48 

45 

4e 

Od 

11 

09 

cO 

51c5 

Od 

dO 

03 

4c 

48 

52 

c9 

03 

c9 . 

54ld 

00 

85 

01 

ad 

4e 

04 

aO 

00 

5d 

5675 

3a 

20 

35 

29 

20 

c5 

49 

4e 

24 

51cd 

dO 

ce 

78 

ad 

31 

ea 

ad 

cb 

91 

5425 

91 

83 

aO 

27 

b9 

28 

04 

91 

95 

567d 

42 

41 

55 

40 

20 

2d 

20 

c5 

35 

51d5 

51 

8d 

14 

03 

ad 

cc 

51 

8d 

f4 

542d 

8a 

88 

10 

f8 

aO 

27 

a9 

aO 

4a 

5685 

53 

20 

49 

53 

54 

20 

4e 

4f 

c3 

51dd 

15 

03 

a9 

00 

8d 

la 

dO 

58 

7c 

5435 

91 

8a 

a9 

36 

85 

01 

58 

e6 

cc 

568d 

43 

48 

20 

4b 

45 

49 

4e 

20 

7e 

51e5 

68 

8d 

20 

dO 

6c 

3d 

00 

a5 

32 

543d 

83 

dO 

02 

e6 

84 

4c 

f9 

52 

bd 

5695 

d4 

45 

58 

54 

20 

49 

4d 

20 

6e 

51ed 

03 

c9 

fa 

fO 

ab 

18 

a5 

02 

c8 

5445 

78 

ad 

bb 

54 

ad 

41 

54 

85 

4e 

569d 

d3 

50 

45 

49 

43 

48 

45 

52 

43 

51f5 

69 

08 

85 

02 

18 

a5 

03 

69 

92 

544d 

3d 

ad 

42 

54 

85 

3e 

ad 

77 

6c 

56a5 

2e 

20 

2d 

40 

d3 

43 

48 

52 

54 

51fd 

08 

85 

03 

e6 

85 

4c 

97 

51 

21 

5455 

2c 

8d 

20 

dO 

ad 

7c 

2c 

8d 

f4 

56ad 

49 

46 

54 

46 

4l 

52 

42 

45 

31 

5205 

a5 

02 

c9 

32 

fO 

92 

38 

a5 

34 

545d 

21 

dO 

ad 

81 

2c 

8d 

22 

dO 

db 

56b5 

3a 

20 

40 

00 

00 

00 

00 

30 

70 


520d 

5215 

02 

e9 

e9 

08 

08 

85 

85 

03 

02 

c6 

38 

85 

a5 

4c 

03 

97 

35 

bd 

5465 

546d 


ad 

52 ld 

51 

ad 

19 

dO 

30 

07 

ad 

Od 

bl 

5475 

18 

dO 

ad 

35 

2c 

8d 

11 

5225 

de 

58 

4c 

31 

ea 

8d 

19 

dO 

88 

547d 

ad 

3a 

2c 

8d 

16 

dO 

ad 

522d 

ad 

12 

dO 

c5 

02 

dO 

Öd 

a9 

fe 

5485 

dd 

29 

fc 

8d 

00 

dd 

ad 

5235 

07 

8d 

20 

dO 

a5 

03 

8d 

12 

f2 

548d 

54 

ad 

86 

54 

8d 

14 

03 

523d 

dO 

4c 

bc 

fe 

a9 

06 

8d 

20 

83 

5495 

87 

54 

8d 

15 

03 

ad 

11 

5245 

dO 

a5 

02 

8d 

12 

dO 

4c 

bc 

6c 

549d 

29 

7f 

8d 

11 

dO 

a9 

3a 

524d 

fe 

c6 

02 

c6 

03 

a5 

02 

8d 

88 

54a5 

12 

dO 

a9 

01 

8d 

la 

dO 

5255 

9d 

54 

8d 

e6 

55 

8d 

3c 

55 

ba 

54ad 

00 

85 

01 

a9 

20 

aO 

27 

525d 

a5 

03 

8d 

25 

55 

8d 

fd 

55 

fO 

54b5 

8a 

88 

10 

fb 

a9 

36 

85 

5265 

78 

ad 

31 

ea 

ad 

61 

52 

8d 

a8 

54bd 

58 

20 

63 

11 

78 

ad 

31 

526d 

14 

03 

ad 

62 

52 

8d 

15 

03 

a6 

54c5 

ad 

bd 

54 

8d 

14 

03 

ad 

5275 

a9 

00 

8d 

la 

dO 

58 

68 

8d 

51 

54cd 

54 

8d 

15 

03 

ad 

de 

4f 

527d 

20 

dO 

a9 

93 

20 

d2 

ff 

a6 

c8 

54d5 

cc 

54 

85 

3d 

ad 

cd 

54 

5285 

85 

aO 

00 

18 

20 

fO 

ff 

38 

57 

54dd 

3e 

a9 

00 

8d 

la 

dO 

58 

528d 

a5 

d2 

e9 

04 

85 

d2 

aO 

01 

Oa 

54e5 

3d 

00 

ad 

19 

dO 

8d 

19 

5295 

18 

a5 

dl 

85 

8c 

71 

60 

85 

86 

54ed 

30 

07 

ad 

Od 

de 

58 

4c 

529d 

dl 

85 

8a 

c8 

a5 

d2 

85 

8d 

Of 

54 f 5 

fe 

4c 

f3 

54 

ea 

a5 

02 

52a5 

71 

60 

85 

d2 

85 

8b 

18 

a5 

62 

54 fd 

ea 

8a 

ea 

ad 

16 

dO 

8d 

52ad 

dl 

8d 

81 

55 

69 

01 

8d 

7e 

22 

5505 

55 

ad 

18 

dO 

8d 

51 

55 

52b5 

55 

a5 

d2 

8d 

82 

55 

69 

00 

bc 

550d 

11 

dO 

8d 

56 

55 

ea 

ea 

52bd 

8d 

7f 

55 

18 

a5 

dl 

69 

27 

3f 

5515 

a2 

03 

ca 

dO 

fd 

ea 

a9 

52c5 

8d 

d7 

55 

a5 

d2 

69 

00 

8d 

db 

551d 

8d 

16 

dO 

a9 

00 

8d 

11 

52cd 

d8 

55 

ad 

80 

03 

8d 

11 

dO 

4e 

5525 

a9 

00 

8d 

18 

dO 

a9 

42 

52d5 

ad 

81 

03 

8d 

16 

dO 

ad 

82 

59 

552d 

12 

dO 

ad 

3d 

55 

ad 

2a 

52dd 

03 

8d 

18 

dO 

ad 

b2 

56 

ad 

ec 

5535 

ac 

2b 

55 

8d 

fl 

54 

8c 

52e5 

de 

52 

85 

83 

ad 

dd 

52 

85 

da 

553d 

54 

4c 

bc 

fe 

a9 

3a 

ad 

52ed 

84 

a9 

93 

20 

d2 

ff 

a9 

00 

02 

5545 

dO 

cd 

12 

dO 

fO 

fb 

a2 

52 f 5 

85 

cc 

a2 

01 

aO 

27 

18 

20 

8d 

554d 

ca 

10 

fd 

ea 

a9 

00 

8d 

52fd 

fO 

ff 

20 

3e 

fl 

fO 

fb 

c9 

e7 

5555 

dO 

a9 

00 

8d 

18 

dO 

a9 

5305 

8d 

fO 

f7 

c9 

Od 

dO 

54 

a9 

3d 

555d 

8d 

11 

dO 

a2 

00 

fO 

07 

530d 

00 

a8 

91 

83 

a9 

lb 

8d 

eO 

al 

5565 

8e 

5b 

55 

4c 

e5 

55 

ce 

5315 

50 

8d 

11 

dO 

a9 

c8 

8d 

16 

cd 

556d 

55 

2c 

16 

55 

ad 

16 

55 

53 ld 

dO 

a9 

17 

8d 

18 

dO 

ad 

Oc 

10 

5575 

07 

8d 

16 

55 

c9 

07 

dO 

5325 

Of 

ad 

le 

53 

8d 

20 

dO 

ad 

75 

557d 

a9 

00 

85 

01 

aO 

00 

b9 

532d 

lf 

53 

8d 

21 

dO 

ad 

80 

15 

24 

5585 

04 

99 

28 

04 

c8 

cO 

27 

5335 

ad 

2d 

53 

ac 

2e 

53 

20 

62 

a6 

558d 

f5 

a9 

36 

85 

01 

ad 

b2 

533d 

Od 

ad 

00 

dd 

09 

03 

8d 

00 

bb 

5595 

fO 

24 

c9 

c5 

dO 

08 

a9 


8d 


00 


99 

ab 

lc 

a3 

51 

c5 

dO 

6a 

ea 

ac 

6b 

bO 

a5 

f8 

7a 

04 

30 

o9 

dO 

53 
65 
e3 
e3 
71 
b3 
dO 
58 
Od 
24 
f9 
5a 
34 
fO 
3c 
68 
eb 
bl 
8a 

54 


Listing 3. (Schluß) 


Name 

Letter.mo 



4fcd 5628 

4fcd 

23 

56 

de 

4f 

10 

55 

81 

de 

2c 

4fd5 

4f 

35 

54 

36 

54 

73 

54 

00 

cd 

4fdd 

00 

00 

00 

00 

00 

00 

00 

ad 

39 

4fe5 

de 

4f 

ad 

df 

4f 

85 

3d 

ad 

44 

4fed 

eO 

4f 

85 

3e 

a2 

ff 

9a 

ad 

8e 

4ff5 

10 

55 

ad 

ef 

4f 

ac 

fO 

4f 

d6 

4ffd 

20 

62 

Od 

a9 

06 

20 

99 

Od 

a9 

5005 

c9 

01 

fO 

03 

4c 

e3 

50 

20 

51 

500d 

Oc 

50 

4c 

82 

50 

ad 

2b 

50 

64 

5015 

ad 

Od 

50 

85 

7a 

ad 

Oe 

50 

fc 

501d 

85 

7b 

ad 

22 

56 

ad 

la 

50 

eb 

5025 

8d 

d3 

54 

ad 

lb 

50 

8d 

d4 

7b 

502d 

54 

4c 

94 

ld 

ad 

00 

dd 

29 

15 

5035 

fc 

8d 

00 

dd 

8d 

bc 

52 

a9 

Of 

503d 

lb 

8d 

11 

dO 

8d 

c4 

52 

ad 

21 

5045 

82 

03 

8d 

18 

dO 

8d 

c9 

52 

f4 

504d 

29 

Oe 

Oa 

Oa 

48 

18 

a2 

f8 

03 

5055 

8e 

66 

54 

69 

c7 

8d 

67 

54 

88 

505d 

68 

29 

fO 

c9 

cO 

dO 

03 

a9 

cl 

5065 

4c 

2c 

a9 

2c 

8d 

5a 

54 

aO 

f5 

506d 

02 

bl 

60 

8d 

ee 

53 

29 

fO 

22 

5075 

c9 

cO 

dO 

03 

a9 

4c 

2c 

a9 

34 

507d 

2c 

8d 

be 

53 

8d 

d5 

53 

8d 

7a 

5085 

ff 

53 

60 

ad 

77 

2c 

8d 

20 

4b 

508d 

dO 

ad 

7c 

2c 

8d 

21 

dO 

a9 

51 

5095 

Oe 

8d 

86 

02 

20 

76 

54 

a9 

a6 

509d 

ff 

8d 

eb 

50 

a9 

Od 

20 

d2 

91 

50a5 

ff 

78 

ad 

31 

ea 

ad 

a2 

50 

b9 

50ad 

8d 

14 

03 

ad 

a3 

50 

8d 

15 

d8 

50b5 

03 

58 

a9 

97 

8d 

00 

dd 

a9 

e5 

50bd 

lb 

8d 

11 

dO 

a9 

c8 

8d 

16 

40 

50c5 

dO 

a9 

17 

8d 

18 

dO 

ad 

Oc 

b8 
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TOOLS: GRAFIK 


C 64 


50cd 

: Of ad c6 50 8d 20 

dO 

ad 

e7 

5325 

78 

ad 

36 

54 

ad 

21 

53 

8d 

d8 

50d5 

: c7 50 8d 21 dO ad 

80 

15 

f2 

532d 

14 

03 

ad 

22 

53 

8d 

15 

03 

6e 

50dd 

: ad d5 50 ac d6 50 

20 

62 

54 

5335 

58 

20 

90 

54 

4c 

96 

50 

a2 

4c 

50e5 

: Od 4c de 4f c9 05 

fO 

03 

48 

533d 

01 

aO 

01 

a9 

00 

8d 

00 

de 

2a 

50ed 

: 4c 54 51 a9 00 30 

15 

20 

03 

5345 

ad 

01 

de 

c9 

ef 

dO 

08 

a9 

de 

50f5 

: 66 14 ad 84 55 ad 

f2 

50 

90 

534d 

01 

8d 

37 

53 

8d 

39 

53 

88 

4e 

50fd 

: ac f3 50 20 62 Od 

20 

63 

91 

5355 

8c 

39 

53 

fO 

03 

4c 

b9 

53 

91 

5105 

: 11 4c de 4f ad 36 

53 

ad 

13 

53 5d 

ca 

8e 

37 

53 

dO 

f7 

a9 

00 

la 

510d 

: 04 51 8d ce 4f ad 

05 

51 

10 

5365 

8d 

00 

de 

ad 

01 

de 

c9 

7f 

fc 

5115 

: 8d cf 4f ad fb 55 

ad 

13 

5b 

536d 

fO 

eb 

a9 

Oa 

8d 

37 

53 

8d 

f9 

511d 

: 51 8d da 4f ad 14 

51 

8d 

bl 

5375 

39 

53 

ad 

00 

70 

c9 

8c 

dO 

ec 

5125 

: db 4f ad 21 56 ad 

22 

51 

35 

537d 

03 

4c 

b9 

53 

c9 

85 

dO 

08 

9b 

512d 

: 8d 72 53 ad 23 51 

8d 

73 

58 

5385 

a2 

01 

8e 

6a 

53 

4c 

bl 

53 

9e 

5135 
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20 

c4 

45 

52 

8d 

53b5 : 

: 20 

d3 

50 

45 

49 

43 

48 

45 

d6 

53bd : 

: 52 

20 

49 

53 

54 

20 

42 

45 

b6 

53c5 : 

: 52 

45 

49 

54 

53 

20 

5a 

55 

el 

53cd : 

: 20 

56 

4f 

4c 

4c 

20 

2d 

40 

71 

53d5 : 

: 00 

c6 

83 

aO 

27 

b9 

28 

04 

16 


Lfsting 5. (Schluß) 


Name : Overlay.mo 4fcd 5212 


4fcd 

Ob 

52 

de 

4f 

3e 

51 

81 

de 

d5 

4fd5 

4f 

3e 

51 

00 

00 

00 

00 

00 

98 

4fdd 

00 

00 

00 

3f 

51 

8e 

51 

a2 

d9 

4fe5 

ff 

9a 

ad 

de 

4f 

ad 

e2 

4f 

05 

4fed 

85 

3d 

ad 

e3 

4f 

85 

3e 

ad 

6e 

4ff5 

8f 

51 

ad 

ef 

4f 

ac 

fO 

4f 

53 

4ffd 

20 

62 

Od 

a9 

04 

20 

99 

Od 

89 

5005 

c9 

01 

fO 

3b 

c9 

02 

fO 

49 

f5 

500d 

c9 

03 

dO 

d3 

a9 

00 

dO 

15 

Oe 

5015 

20 

66 

14 

ad 

el 

51 

ad 

13 

a9 

501d 

50 

ac 

14 

50 

20 

62 

Od 

20 

5c 

5025 

63 

ii 

4c 

de 

4f 

a9 

01 

8d 

61 

502d 

cd 

4f 

ad 

07 

51 

ad 

2a 

50 

ba 

5035 

8d ce 4fCad 2b 50 0 

cf 

be 

503d 

4f 

4c 

00 

lc 

4c 

de 

4f 

a9 

82 

5045 

59 

aO 

a6 

8d 

75 

51 

8c 

76 

4b 

504d 

51 

a9 

20 

8d 

74 

51 

4c 

b6 

9d 

5055 

50 

20 

69 

14 

ad 

dO 

51 

ad 

94 

505d 

54 

50 

ac 

55 

50 

20 

62 

Od 

59 

5065 

a9 

00 

85 

cc 

a9 

00 

85 

02 

be 

506d 

20 

3e 

fl 

o9 

14 

dO 

Oc 

a6 

a7 

5075 

02 

fO 

f5 

20 

d2 

ff 

c6 

02 

bd 

507d 

4c 

67 

50 

c9 

Od 

dO 

54 

a6 

cO 

5085 

02 

eO 

04 

dO 

e 3 

ad 

00 

02 

c2 

508d 

Oa 

Oa 

Oa 

Oa 

8d 

00 

02 

ad 

9c 

5095 

02 

02 

Oa 

Oa 

Oa 

Oa 

8d 

02 

87 

509d 

02 

ad 

01 

02 

29 

Of 

Od 

00 

36 

50a5 

02 

8d 

76 

51 

ad 

03 

02 

29 

83 

50ad 

Of 

Od 

02 

02 

8d 

75 

51 

a9 

21 

50b 5 

4c 

8d 

74 

51 

20 

be 

10 

20 

88 

50bd 

40 

Of 

a2 

10 

bd 

00 

02 

9d 

4f 

50c5 

7d 

51 

ca 

10 

f7 

ad 

11 

02 

d5 

50cd 

8d 

49 

51 

a9 

ff 

8d 

Oc 

50 

c6 

50d5 

4c 

de 

4f 

a6 

02 

eO 

04 

fO 

52 

50dd 

8f 

c9 

30 

90 

8b 

c9 

3a 

90 

80 

50e5 

15 

c9 

4l 

90 

83 

c9 

47 

90 

06 

50ed 

03 

4c 

67 

50 

48 

20 

d2 

ff 

cb 

50f5 

68 

38 

e9 

37 

bO 

08 

48 

20 

87 

50fd 

d2 

ff 

68 

38 

e9 

30 

a6 

02 

af 

5105 

9d 

00 

02 

e6 

02 

4c 

67 

50 

cO 

510d 

a9 

00 

8d 

00 

de 

ad 

01 

de 

13 

5115 

c9 

fd 

dO 

2b 

ad 

00 

dd 

09 

db 

511d 

03 

8d 

00 

dd 

a2 

4f 

bd 

3f 

bd 

5125 

51 

9d 

3c 

03 

ca 

10 

f7 

a9 

15 

512d 

00 

8d 

18 

d4 

85 

9d 

20 

be 

d8 

5135 

e3 

78 

20 

15 

fd 

20 

5b 

ff 

4d 

513d 

20 

53 

e4 

58 

4c 

3o 

03 

ea 

d4 

5145 

a9 

01 

a2 

08 

aO 

01 

20 

ba 

20 

5l4d 

ff 

a9 

01 

a2 

7a 

aO 

03 

20 

ae 

5155 

bd 

ff 

a9 

00 

20 

d5 

ff 

bO 

8e 

515d 

22 

a9 

37 

85 

01 

a9 

01 

aO 

75 


5165 

: 08 

85 

2b 

84 

2c 

a5 

ae 

a4 

7f 

5l6d 

: af 

85 

2d 

85 

2f 

85 

31 

84 

c8 

5175 

: 2e 

84 

30 

84 

32 

20 

ff 

ff 

a6 

517d 

: 4c 

ae 

a7 

4c 

e2 

fc 

2d 

20 

9f 

5185 

: 31 

36 

20 

c2 

55 

43 

48 

53 

69 

518d 

: 54 

4l 

42 

45 

4e 

2d 

00 

oa 

df 

5195 

: 93 

97 

Od 

11 

11 

09 

3c 

20 

e4 

519d 

: 20 

2d 

20 

cf 

56 

45 

52 

4c 

c7 

51a5 

: 4l 

59 

20 

2d 

Od 

11 

11 

09 

fO 

51ad 

: 3a 

20 

31 

29 

20 

27 

d2 

55 

9a 

51b5 

: 4e 

27 

Od 

11 

09 

3a 

20 

32 

44 

51bd 

: 29 

20 

27 

d3 

59 

53 

27 

Od 

21 

51c5 

: 11 

09 

3a 

20 

33 

29 

20 

c5 

76 

51cd 

: 49 

4e 

46 

55 

45 

47 

45 

4e 

ba 

51d5 ■ 

: 40 

d3 

54 

41 

52 

54 

41 

44 

91 

51dd : 

: 52 

45 

53 

53 

45 

20 

3a 

20 

90 

51e5 : 

: 24 

40 

2d 

20 

c5 

53 

20 

57 

9f 

51ed : 

: 55 

52 

44 

45 

20 

4e 

4f 

43 

5d 

51f5 : 

: 48 

20 

4b 

45 

49 

4e 

45 

20 

25 

51fd : 

: c4 

41 

54 

45 

49 

20 

4l 

4e 

57 

5205 : 

: 47 

45 

47 

45 

42 

45 

4e 

2e 

4d 

520d ! 

: 20 

2d 

40 

00 

ea 

63 

11 

4c 

7b 


Listing 6. »OVERLAY.MO«, 
ein Modul. Bitte mit dem MSE 
(Seite 159) eingeben. 


Name : Pseudo.mo 4fcd 5440 


4fcd 

39 

54 

de 

4f 

9d 

53 

81 

de 

Oa 

4fd5 

4f 

00 

00 

00 

00 

00 

00 

00 

25 

4fdd 

00 

00 

00 

00 

00 

00 

00 

a2 

23 

.4fe5 

ff 

9a 

ad 

de 

4f 

ad 

e2 

4f 

05 

4fed 

85 

3d 

ad 

e3 

4f 

85 

3e 

ad 

6e 

4ff5 

9d 

53 

ad 

ef 

4f 

ac 

fO 

4f 

62 

4ffd 

20 

62 

Od 

a9 

03 

20 

99 

Od 

79 

5005 

c9 

01 

dO 

03 

4c 

61 

50 

a9 

48 

500d 

00 

dO 

15 

20 

66 

14 

ad 

10 

9d 

5015 

54 

ad 

Oe 

50 

ac 

Of 

50 

20 

92 

501d 

62 

Od 

20 

63 

11 

4c 

de 

4f 

08 

5025 

a9 

01 

8d 

cd 

4f 

ad 

b8 

52 

56 

502d 

ad 

25 

50 

8d 

d 2 

4f 

ad 

26 

dd 

5035 

50 

8d 

d3 

4f 

ad 

38 

53 

ad 

70 

503 d 

34 

50 

8d 

d4 

4f 

ad 

35 

50 

6f 

5045 

8d 

d5 

4f 

a5 

00 

ad 

43 

50 

60 

504d 

8d 

ce 

4f 

ad 

44 

50 

8d 

cf 

67 

5055 

4f 

a9 

01 

8d 

cl 

52 

ad 

ce 

6e 

505d 

52 

4a 

69 

00 

8d 

ce 

52 

4c 

60 

5065 

00 

lc 

20 

69 

14 

ad 

25 

2b 

42 

506d 

ad 

65 

50 

85 

02 

ad 

66 

50 

59 

5075 

85 

03 

20 

24 

22 

a9 

04 

20 

c8 

507d 

47 

22 

aO 

01 

bl 

60 

8d 

e5 

3e 

5085 

50 

c8 

bl 

60 

8d 

e7 

50 

29 

5d 

508d 

fO 

c9 

cO 

dO 

08 

a9 

4c 

8d 

c6 

5095 

d2 

52 

4c 

99 

50 

a9 

2c 

8d 

f5 

509d 

d2 

52 

a9 

94 

8d 

02 

dO 

8d 

de 

50a5 

06 

dO 

a9 

ac 

8d 

04 

dO 

8d 

6b 

50ad 

08 

dO 

a9 

64 

8d 

03 

dO 

8d 

64 

50b5 

05 

dO 

a9 

74 

8d 

07 

dO 

8d 

8b 

50bd 

09 

dO 

a9 

le 

8d 

15 

dO 

a9 

75 

50c5 

Oe 

8d 

f9 

07 

8d 

fa 

07 

8d 

el 

50cd 

fb 

07 

8d 

fc 

07 

a9 

Ob 

8d 

54 

50d5 

28 

dO 

8d 

29 

dO 

8d 

2a 

dO 

b2 

50dd 

8d 

2b 

dO 

a2 

40 

a9 

00 

9d 

15 

50e5 

80 

03 

ca 

10 

fa 

a9 

00 

aO 

da 

50od 

28 

85 

fa 

8d 

3d 

53 

84 

fb 

cl 

50f5 

8c 

3e 

53 

a9 

00 

85 

04 

a9 

3a 

50fd 

93 

20 

d2 

ff 

20 

37 

53 

ad 

b9 

5105 

f9 

53 

ad 

ff 

50 

ac 

00 

51 

20 

510d 

20 

62 

Od 

a6 

04 

a9 

00 

20 

44 

5115 

49 

10 

20 

5a 

53 

c9 

Od 

dO 

13 

511d 

03 

4c 

ed 

51 

c9 

91 

fO 

03 

df 



SONDERHEFT 33 


























TOOLS: GRAFIK 


C64 


5125 

4c 9a 51 

a5 

04 

c9 

ff 

fO 

38 

512d 

bc 18 a5 

fa 

69 

08 

85 

fa 

al 

5135 

8d eb 52 

8d 

f3 

52 

8d 

fd 

02 

513d 

52 8d 15 

53 

8d 

05 

53 

8d 

6f 

5145 

Oc 53 8d 

28 

53 

8d 

3d 

53 

aO 

5l4d 

8d 34 53 

a5 

fb 

69 

00 

85 

94 

5155 

fb 8d ec 

52 

8d 

f4 

52 

8d 

81 

515d 

fe 52 8d 

16 

53 

8d 

06 

53 

Ob 

5165 

8d Od 53 

8d 

29 

53 

8d 

3e 

df 

5l6d 

53 8d 35 

53 

e6 

04 

18 

a5 

79 

5175 

fa 69 01 

8d 

12 

53 

8d 

2b 

5e 

517d 

53 a5 fb 

69 

00 

8d 

13 

53 

2e 

5185 

8d 2c 53 

18 

a5 

fa 

69 

07 

e6 

518d 

8d 22 53 

8d 

le 

53 

a5 

fb 

bd 

5195 

69 00 8d 

23 

53 

8d 

lf 

53 

8b 

519d 

4c fb 50 

o9 

11 

fO 

03 

4c 

71 

51a5 

fb 50 a5 

04 

fO 

f9 

c6 

04 

b4 

51ad 

38 a5 fa 

e9 

08 

85 

fa 

8d 

67 

51b5 

eb 52 8d 

f3 

52 

8d 

fd 

52 

d9 

51bd 

8d 15 53 

8d 

05 

53 

8d 

Oc 

95 

51c5 

53 8d 28 

53 

8d 

3d 

53 

8d 

7e 

51cd 

34 53 a5 

fb 

e9 

00 

85 

fb 

40 

51d5 

8d ec 52 

8d 

f4 

52 

8d 

fe 

35 

51dd 

52 8d 16 

53 

8d 

06 

53 

8d 

57 

51e5 

Od 53 8d 

29 

53 

8d 

3e 

53 

66 

51ed 

8d 35 53 

4c 

6d 

51 

a9 

93 

a2 

51f5 

20 d2 ff 

ad 

dd 

53 

ad 

f3 

4b 

51fd 

51 ac f4 

51 

20 

62 

Od 

ae 

b2 

5205 

cl 52 a9 

00 

20 

49 

10 

20 

27 

520d 

b8 52 20 

5a 

53 

fO 

f8 

c9 

76 

5215 

2b dO 09 

ce 

cl 

52 

ce 

ce 

4c 

521d 

52 4c f2 

51 

c9 

2d 

dO 

09 

d7 

5225 

ee cl 52 

ee 

ce 

52 

4c 

f2 

fd 

522d 

51 c9 91 

fO 

3c 

c9 

11 

fO 

ld 

5235 

2c c9 9d 

fO 

lc 

c9 

ld 

fO 

32 

523d 

Oc c9 Od 

dO 

ca 

a9 

ff 

8d 

aO 

5245 

07 50 4c 

de 

4f 

ad 

e8 

52 

Oe 

524d 

ad 45 52 

ac 

46 

52 

4c 

74 

d8 

5255 

52 ad f9 

52 

ad 

51 

52 

ac 

4e 

525d 

52 52 4c 

74 

52 

ad 

21 

53 

38 

5265 

ad 5d 52 

ac 

5e 

52 

20 

96 

11 

526d 

52 ad Ob 

53 

ad 

69 

52 

ac 

8c 

5275 

6a 52 4c 

96 

52 

a2 

00 

fO 

Oa 

527d 

13 8d db 

52 

8c 

de 

52 

a9 

e4 

5285 

00 8d 75 

52 

a9 

20 

8d 

da 

7b 

528d 

52 4c 06 

52 

a9 

2c 

8d 

da 

b9 

5295 

52 ee 75 

52 

4c 

06 

52 

a2 

89 

529d 

00 fO 13 

8d 

de 

52 

8c 

df 

fe 

52a5 

52 a9 00 

8d 

97 

52 

a9 

20 

71 

52ad 

8d dd 52 

4c 

06 

52 

a9 

2c 

39 

52b 5 

8d dd 52 

ee 

97 

52 

4c 

06 

ec 

52b d 

52 a2 09 

ca 

8e 

b9 

52 

dO 

9e 

52c5 

77 a2 09 

8e 

b9 

52 

a2 

09 

6c 

52cd 

ca 8e c6 

52 

dO 

6a 

a2 

09 

d7 

52d5 

8e c6 52 

4c 

da 

52 

78 

a9 

5a 

52dd 

00 85 01 

20 

e8 

52 

20 

Ob 

9c 

52e5 

53 a9 36 

85 

01 

58 

4c 

37 

be 

52ed 

53 a2 07 

bd 

00 

28 

4a 

90 

96 

52f5 

02 09 80 

9d 

00 

28 

ca 

10 

de 

52 fd 

f2 60 a2 

07 

18 

bd 

00 

28 

69 

5305 

Oa 90 02 

09 

01 

9d 

00 

28 

46 

530d 

ca 10 fl 

60 

ad 

00 

28 

48 

74 

5315 

a2 00 bd 

01 

20 

9d 

00 

28 

86 

53 ld 

e8 eO 07 

dO 

f5 

68 

8d 

07 

38 

5325 

20 60 ad 

07 

20 

48 

a2 

06 

9c 

532d 

bd 00 28 

9d 

01 

20 

ca 

eO 

a6 

5335 

ff dO f5 

68 

8d 

00 

28 

60 

61 

533d 

ea aO 00 

a 2 

00 

b9 

00 

28 

ea 

5345 

9d 80 03 

9d 

98 

03 

e8 

9d 

17 

534d 

80 03 9d 

98 

03 

e8 

9d 

80 

b8 

5355 

03 9d 98 

03 

e8 

c8 

cO 

08 

95 

535d 

dO e3 60 

a2 

00 

ca 

8e 

5b 

d2 

5365 

53 dO 2b 

a2 

10 

8e 

5b 

53 

c9 

536d 

ad 00 de 

c9 

7e 

dO 

03 

a9 

58 

5375 

91 60 c9 

7d 

dO 

03 

a9 

11 

46 


537d 

: 60 

c9 

7b 

dO 

03 

a9 

9d 

60 

6f 

5385 

: c9 

77 

dO 

03 

a9 

ld 

60 

c9 

37 

538d 

: 6f 

dO 

03 

a9 

Od 

60 

20 

3e 

2b 

5395 

: fl 

c9 

03 

dO 

08 

a9 

00 

8d 

2f 

539d 

: 15 

dO 

6c 

02 

aO 

60 

93 

97 

00 

53a5 

: 11 

Od 

Od 

09 

3a 

20 

2d 

20 

3b 

53ad : 

: dO 

53 

45 

55 

44 

4f 

2d 

d3 

3e 

53b 5 : 

: 43 

52 

4f 

4c 

4c 

20 

2d 

Od 

13 

53bd : 

: 11 

11 

09 

3a 

20 

31 

29 

20 

51 

53c5 i 

: da 

45 

49 

43 

48 

45 

4e 

20 

25 

53cd : 

: 57 

41 

45 

48 

4c 

45 

4e 

Od 

61 

53d5 : 

: 11 

09 

3a 

20 

32 

29 

20 

c5 

76 

53dd : 

: 49 

4e 

42 

4l 

55 

40 

13 

09 

bc 

53e5 i 

: 3a 

d6 

45 

52 

5a 

4f 

45 

47 

ea 

53ed : 

: 45 

52 

55 

4e 

47 

3a 

20 

20 

82 

53 f5 : 

: 20 

20 

20 

20 

9d 

9d 

9d 

9d 

aa 

53fd : 

: 9d 

40 

13 

09 

3d 

da 

45 

49 

f3 

5405 : 

: *3 

48 

45 

4e 

3a 

20 

20 

20 

ed 

540d : 

: 20 

20 

20 

9d 

9d 

9d 

9d 

9d 

72 

5415 : 

40 

d3 

49 

45 

20 

48 

41 

42 

08 

54ld : 

: 45 

4e 

20 

4e 

4f 

43 

48 

20 

cc 

5425 : 

4b 

45 

49 

4e 

20 

da 

45 

49 

af 

542d : 

43 

48 

45 

4e 

20 

41 

55 

53 

b8 

5435 : 

47 

45 

57 

41 

45 

48 

4c 

54 

8d 

543d : 

2e 

40 

00 

e6 

84 

4c 

f9 

52 

9f 


Listing 7. »PSEUDO.MO«, 
ein Modul. Bitte mit dem MSE 
(Seite 159) eingeben. 


Name : Speech.mo 4fcd 533d 


4fcd 

4fd5 

37 

4f 


de 

“•'J 

69 

cb 

4fdd 

00 

00 

00 

lc 

53 

36 

53 

a2 

da 

4fe5 

ff 

9a 

ad 

de 

4f 

ad 

e2 

4f 

05 

4fed 

85 

3d 

ad 

e3 

4f 

85 

3e 

ad 

6e 

4ff5 

ac 

52 

ad 

ef 

4f 

ac 

fO 

4f 

fO 

4ffd 

20 

62 

Od 

a9 

06 

20 

99 

Od 

a9 

5005 

c9 

02 

dO 

08 

a9 

01 

8d 

8b 

f4 

500d 

51 

4c 

8a 

51 

c9 

03 

dO 

03 

4f 

5015 

4c 

5b 

51 

c9 

01 

dO 

48 

20 

94 

5ßld 

40 

Of 

20 

74 

14 

20 

35 

10 

b3 

5025 

20 

35 

10 

ad 

36 

53 

ad 

23 

95 

502d 

50 

85 

02 

ad 

24 

50 

85 

03 

57 

5035 

20 

35 

10 

aO 

00 

91 

02 

a5 

e8 

503d 

90 

29 

40 

dO 

12 

e6 

02 

dO 

8e 

5045 

02 

e6 

03 

a5 

02 

c5 

38 

dO 

01 

504d 

e7 

a5 

03 

c5 

39 

dO 

el 

a5 

6d 

5055 

02 

a4 

03 

8d 

d8 

51 

8c 

d9 

la 

505d 

51 

20 

41 

10 

4c 

de 

4f 

c9 

9d 

5065 

04 

dO 

03 

4c 

93 

50 

a9 

01 

80 

506d 

8d 

8b 

51 

8d 

ce 

4f 

ad 

d8 

96 

5075 

51 

ac 

d9 

51 

8d 

de 

4f 

8c 

d3 

507d 

dd 

4f 

ee 

de 

4f 

dO 

03 

ee 

be 

5085 

dd 

4f 

ad 

8a 

51 

ad 

82 

50 

f4 

508d 

8d 

ce 

4f 

ad 

83 

50 

8d 

cf 

9b 

5095 

4f 

4c 

00 

lc 

ad 

61 

52 

ad 

18 

509d 

94 

50 

ac 

95 

50 

20 

62 

Od 

el 

50a5 

a9 

00 

85 

02 

ad 

lc 

53 

8d 

14 

50ad 

31 

52 

20 

27 

52 

a6 

02 

bd 

d2 

50b5 

20 

53 

8d 

20 

dO 

a2 

00 

ca 

9e 

50bd 

8e 

b5 

50 

dO 

32 

a2 

01 

ca 

26 

50c5 

8e 

bd 

50 

dO 

2a 

a9 

10 

8d 

ab 

50cd 

bd 

50 

ad 

00 

de 

c9 

7b 

fO 

Oa 

50d5 

31 

c9 

77 

fO 

23 

c9 

6f 

fO 

07 

50dd 

42 

c9 

7e 

dO 

07 

ae 

20 

dO 

c6 

50e5 

e8 

4c 

4f 

51 

c9 

7d 

dO 

07 

cb 

50ed 

ae 

20 

dO 

e8 

4c 

4f 

51 

20 

cl 

50f5 

3e 

fl 

fO 

cl 

c9 

ld 

dO 

06 

75 

50fd 

ee 

31 

52 

4c 

04 

51 

c9 

9d 

cf 


5105 : 

: dO 

Oe 

ce 

31 

52 

ad 

31 

52 

b2 

510d : 

: 29 

Of 

8d 

31 

52 

4c 

a9 

50 

16 

5115 : 

: c9 

03 

dO 

03 

6c 

3d 

00 

c9 

39 

511d : 

: Od 

dO 

28 

a9 

Od 

20 

d2 

ff 

ef 

5125 : 

: ad 

31 

52 

a4 

02 

99 

lc 

53 

98 

512d : 

: e6 

02 

a5 

02 

c9 

04 

fO 

Oa 

53 

5135 : 

: aa 

bd 

lc 

53 

8d 

31 

52 

4c 

74 

513d : 

: a9 

50 

ad 

dl 

08 

8d 

20 

dO 

c3 

5145 : 

: 6c 

3d 

00 

a2 

Of 

dd 

3c 

52 

la 

5l4d : 

: fO 

06 

ca 

10 

f8 

4c 

a9 

50 

2e 

5155 : 

: 8e 

20 

dO 

8a 

a4 

02 

99 

20 

7a 

515d : 

: 53 

4c 

a9 

50 

20 

69 

14 

ad 

44 

5165 : 

: 4d 

52 

ad 

5f 

51 

ac 

60 

51 

dl 

5l6d : 

: 20 

62 

Od 

20 

55 

10 

a9 

20 

c2 

5175 : 

: 8d 

11 

02 

aO 

11 

b9 

00 

02 

02 

517d : 

: c9 

20 

fO 

04 

38 

e9 

40 

2c 

3f 

5185 : 

: a9 

00 

99 

24 

53 

88 

10 

ed 

af 

518d : 

: 4c 

de 

4f 

a9 

01 

fO 

06 

ce 

9f 

5195 : 

: 8b 

51 

4c 

9e 

51 

ad 

01 

de 

fO 

519d : 

: c9 

ef 

fO 

03 

4c 

23 

52 

78 

12 

51a5 : 

: a9 

ff 

85 

07 

ad 

11 

dO 

29 

89 

51ad : 

: 7f 

48 

29 

6f 

8d 

11 

dO 

ad 

89 

51b5 : 

: 20 

dO 

48 

e6 

07 

a4 

07 

b9 

51 

51bd 

: 24 

53 

dO 

Oc 

68 

8d 

20 

dO 

56 

51c5 : 

: 68 

8d 

11 

dO 

58 

4c 

23 

52 

6b 

51cd : 

: 8d 

Oa 

52 

ad 

36 

53 

ad 

cb 

f6 

51d5 : 

: 51 

ac 

cc 

51 

85 

02 

84 

03 

5a 

51dd : 

: ad 

ff 

ff 

ad 

d8 

51 

ac 

d9 

be 

51e5 : 

: 51 

85 

04 

84 

05 

aO 

00 

bl 

43 

51ed : 

: 02 

85 

06 

a2 

03 

a9 

00 

06 

11 

51f5 : 

: 06 

2a 

06 

06 

2a 

a8 

b9 

lc 

5a 

51fd ; 

: 53 

8d 

18 

d4 

b9 

20 

53 

8d 

bc 

5205 : 

: 20 

dO 

ca 

10 

e8 

a2 

01 

ca 

7f 

520d : 

: dO 

fd 

a9 

01 

8d 

05 

52 

e6 

7e 

5215 : 

: 02 

dO 

02 

e6 

03 

a5 

02 

c5 

ce 

521d : 

: 04 

dO 

ca 

a5 

03 

c5 

05 

dO 

05 

5225 : 

: c4 

4c 

b2 

51 

ea 

4c 

de 

4f 

11 

522d : 

: aO 

27 

a9 

20 

91 

dl 

88 

10 

b9 

5235 : 

: fb 

a9 

00 

Oa 

18 

69 

04 

a8 

74 

523d : 

: a9 

2a 

91 

dl 

60 

90 

05 

lc 

71 

5245 : 

: 9f 

9c 

le 

lf 

9e 

81 

95 

96 

17 

524d : 

: 97 

98 

99 

9a 

9b 

00 

c7 

45 

4d 

5255 : 

: 53 

43 

48 

57 

49 

4e 

44 

49 

f2 

525d : 

: 47 

4b 

45 

49 

54 

45 

4e 

3a 

el 

5265 : 

: 20 

40 

93 

20 

20 

20 

20 

30 

72 

526d : 

: 20 

31 

20 

32 

20 

33 

20 

34 

f9 

5275 : 

: 20 

35 

20 

36 

20 

37 

20 

38 

ab 

527d : 

: 20 

39 

20 

41 

20 

42 

20 

43 

85 

5285 i 

; 20 

44 

20 

45 

20 

46 

Od 

20 

21 

528d : 

: 20 

20 

a3 

a3 

a3 

a3 

a3 

a3 

48 

5295 : 

: a3 

a3 

a3 

a3 

a3 

a3 

a3 

a3 

94 

529d : 

: a3 

a3 

a 3 

a3 

a3 

a3 

a3 

a3 

9c 

52a5 : 

: a3 

a3 

a3 

a3 

a3 

a3 

a3 

a3 

a4 

52ad : 

: a3 

a3 

a3 

Od 

40 

93 

97 

Od 

c5 

52b 5 : 

: 11 

11 

09 

3c 

20 

20 

20 

2d 

f7 

52bd : 

: 20 

d3 

50 

45 

45 

43 

48 

20 

53 

52c5 ! 

: 2d 

Od 

11 

11 

09 

3a 

20 

31 

25 

52cd : 

: 29 

20 

d3 

50 

45 

45 

43 

48 

21 

52d5 i 

: 20 

4c 

41 

44 

45 

4e 

Od 

11 

11 

52dd : 

: 09 

3a 

20 

32 

29 

20 

dO 

52 

cd 

52e5 : 

: 4f 

42 

45 

4c 

41 

55 

46 

Od 

22 

52ed : 

: 11 

09 

3a 

20 

33 

29 

20 

c7 

a2 

52f5 : 

45 

53 

43 

48 

57 

49 

4e 

44 

3f 

52 fd : 

: 49 

47 

4b 

45 

49 

54 

45 

4e 

4e 

5305 : 

: Od 

11 

09 

3a 

20 

34 

29 

20 

ad 

530d 

: c6 

4l 

52 

42 

45 

4e 

Od 

11 

6e 

5315 i 

: 09 

3a 

20 

35 

29 

20 

c5 

49 

27 

53 ld : 

: 4e 

42 

4l 

55 

40 

00 

05 

09 

b2 

5325 : 

: Of 

00 

06 

Oe 

Of 

01 

00 

00 

71 

532d : 

: 00 

00 

00 

00 

00 

00 

00 

00 

2e 

5335 ! 

: 00 

00 

00 

00 

00 

00 

00 

ea 

Ob 
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TOOLS: GRAFIK 


Name : Welle.mo 4fcd 5584 


4fed 

: 7d 55 de 4f 

37 

54 81 de 

70 

4fd5 

: 4f 53 53 00 

00 

00 00 00 

a3 

4fdd 

: 00 00 00 37 

54 

5f 54 a2 

9b 

4fe5 

: ff 9a ad de 

4f 

ad e2 4f 

05 

4fed 

: 85 3d ad e3 

4f 

85 3e 20 

53 

4ff5 

: do 53 ad 6f 

54 

ad f2 4f 

fl 

4ffd 

: ac f3 4f 20 

62 

Od a9 06 

bc 

5005 

: 20 99 Od c9 

01 

dO 03 4c 

aa 

500d 

: 3e 50 c9 02 

dO 

03 4c 6a 

51 

5015 

: 52 c9 03 dO 

03 

4c f8 51 

40 

501d 

: o9 05 dO 20 

20 

le 54 a9 

39 

5025 

: 01 8d cd 4f 

ad 

d3 52 ad 

68 

502d 

: 24 50 ac 25 

50 

8d ce 4f 

94 

5035 

: 8c cf 4f Oe 

de 

52 Oe e9 

ab 

503 d 

: 52 4o 00 lc 

4c 

61 21 ad 

e9 

5045 

: 3e 50 ad 3f 

50 

85 3d ad 

80 

504d 

: 40 50 85 3e 

ad 

ef 54 ad 

e5 

5055 

: 4c 50 ac 4d 

50 

20 62 Od 

48 

505d 

: a9 04 20 99 

Od 

c9 01 dO 

08 

5065 

: Od a9 d4 8d 

2e 

51 a9 4c 

da 

506d 

: 8d lc 53 4c 

9e 

50 c9 02 

fe 

5075 

: fO 03 4c de 

4f 

ad 84 50 

eb 

507d 

: ad 75 50 85 

7a 

ad 76 50 

39 

5085 

: 85 7b 4c d3 

ld 

aO 02 bl 

98 

508d 

: 60 38 48 e9 

04 

8d 2e 51 

61 

5095 

: 68 29 fO c9 

cO 

dO 03 a9 

f9 

509d 

: 4c 2c a9 2c 

8d 

lc 53 ad 

52 

50a5 

: 00 04 ad 9f 

50 

85 02 ad 

9b 

50ad 

: aO 50 85 03 

a9 

93 20 d2 

94 

50b 5 

: ff a4 d3 a9 

aO 

91 dl 20 

4e 

50bd 

: 02 54 20 68 

53 

fO f8 c9 

33 

50c5 ; 

: Od fO 57 c9 

03 

dO 03 4c 

b5 

50cd : 

: de 4f c9 11 

fO 

2c c9 91 

a2 

50d5 : 

: fO 39 c9 ld 

fO 

13 c9 9d 

82 

50dd : 

: dO dd a5 d3 

fO 

d3 20 54 

56 

50e5 : 

: 53 a9 9d 20 

d2 

ff 4c bO 

38 

50ed : 

: 50 a5 d3 c9 

27 

fO c2 20 

83 

50f5 : 

: 54 53 a9 ld 

20 

d2 ff 4c 

32 

50fd : 

: bO 50 a5 d6 

c9 

18 fO bl 

9e 

5105 : 

: 20 54 53 a9 

11 

20 d2 ff 

b7 

510d : 

: 4c bO 50 a5 

d6 

fO a2 20 

3a 

5115 : 

54 53 a9 91 

20 

d2 ff 4c 

el 

511d : 

bO 50 a5 d3 

8d 

93 51 a5 

df 

5125 : 

d6 8d c6 51 

18 

a5 dl 65 

5e 

512d : 

d3 8d 00 53 

a5 

d2 69 d4 

72 

5135 : 

8d 01 53 a5 

dl 

a4 d2 85 

65 

513d : 

04 84 05 a5 

04 

a4 05 85 

fe 

5145 : 

02 84 03 ae 

c6 

51 ac 93 

fl 

5l4d : 

51 a9 a0 c4 

d3 

fO 06 91 

33 

5155 : 

02 c8 4c 4a 

51 

a4 d3 91 

c4 

515d : 

02 18 a5 02 

69 

28 85 02 

07 

5165 : 

a5 03 69 00 

85 

03 e4 d6 

98 

5l6d : 

fO 04 e8 4c 

45 

51 20 02 

86 

5175 : 

54 20 68 53 

fO 

f8 c9 Od 

76 

517d : 

fO 5b c9 03 

dO 

03 4c 9e 

81 

5185 : 

50 c9 11 fO 

2e 

c9 91 fO 

76 

518d : 

3b c9 ld fO 

15 

c9 9d dO 

ca 

5195 : 

dd a5 d3 c9 

00 

fO a4 a9 

eO 

519d : 

9d 20 d2 ff 

20 

54 53 4c 

89 

51a5 : 

3a 51 a5 d3 

c9 

27 fO c6 

93 

5 lad : 

a9 ld 20 d2 

ff 

20 54 53 

40 

51b5 : 

4c 3a 51 a5 

d6 

c9 18 fO 

25 

51bd : 

b5 a9 11 20 

d2 

ff 20 54 

e6 

51c5 : 

53 4c 3a 51 

a5 

d6 c9 00 

2f 

51cd : 

fO a4 a9 91 

20 

d2 ff 20 

85 

51d5 : 

54 53 4c 3a 

51 

38 a5 d3 

42 

51dd : 

ed 93 51 8d 

lb 

53 38 e6 

95 

51e5 : 

d6 a5 d6 ed 

c6 

51 8d 17 

5c 

51ed : 

53 a9 93 20 

d2 

ff 20 de 

65 

51f5 : 

53 a9 ff 8d 

lf 

54 4c de 

52 

51fd : 

4f 20 le 54 

20 

b7 53 20 

bc 

5205 : 

d3 52 20 68 

53 

c9 47 dO 

59 

520d : 

20 20 de 53 

ad 

34 55 ad 

Oc 


5215 

: Oc 

52 

ac 

Od 

52 

20 

62 

Od 

el 

521d 

: ae 

de 

52 

a9 

00 

20 

49 

10 

49 

5225 

: 20 

63 

11 

20 

b7 

53 

4c 

fe 

84 

522d 

: 51 

c9 

ld 

dO 

05 

a9 

ca 

8d 

a8 

5235 

: ef 

52 

c9 

9d 

dO 

05 

a9 

e8 

21 

523d 

: 8d 

ef 

52 

c9 

91 

dO 

Od 

ae 

cl 

5245 

: de 

52 

eO 

01 

fO 

06 

ce 

de 

d7 

524d 

: 52 

ce 

e9 

52 

c9 

11 

dO 

Ob 

49 

5255 

: ae 

de 

52 

fO 

06 

ee 

de 

52 

14 

525d 

: ee 

e9 

52 

c9 

Od 

dO 

06 

20 

bd 

5265 

: de 

53 

4c 

de 

4f 

c9 

20 

fO 

7f 

526d 

: f4 

dO 

94 

20 

69 

14 

ad 

4a 

75 

5275 

: 55 

ad 

6e 

52 

ac 

6f 

52 

20 

57 

527d 

: 62 

Od 

a9 

00 

85 

cc 

85 

02 

a9 

5285 

: 20 

3e 

fl 

fO 

fb 

c9 

Od 

dO 

43 

528d 

: Ob 

20 

be 

10 

a5 

02 

8d 

n 

eb 

5295 

: 52 

4c 

de 

4f 

c9 

14 

dO 

Oc 

47 

529d 

: a6 

02 

fO 

e4 

20 

d2 

ff 

c6 

43 

52a5 

: 02 

4c 

7f 

52 

a4 

02 

cO 

28 

a5 

52ad : 

: fO 

d6 

a2 

00 

dd 

5f 

54 

fO 

bd 

52b5 : 

: 08 

e8 

eO 

10 

dO 

f6 

4c 

7f 

60 

52bd : 

: 52 

8e 

86 

02 

8a 

99 

37 

54 

33 

52c5 : 

: a9 

12 

20 

d2 

ff 

a9 

20 

20 

e8 

52cd : 

: d2 

ff 

a9 

92 

20 

d2 

ff 

e6 

c2 

52d5 : 

: 02 

4c 

7f 

52 

a2 

01 

ca 

8e 

a2 

52dd : 

: d4 

52 

dO 

78 

a9 

04 

8d 

d4 

b8 

52e5 : 

: 52 

a2 

01 

ca 

8e 

el 

52 

dO 

05 

52ed : 

: 6b 

a9 

04 

8d 

el 

52 

a2 

00 

lb 

52 f 5 : 

: e8 

10 

04 

ae 

f7 

52 

ca 

eO 

bb 

52fd : 

: Oc 

90 

02 

a2 

00 

8e 

ee 

52 

fb 

5305 : 

ad 

00 

d8 

ad 

00 

53 

ac 

01 

ed 

530d : 

53 

8d 

2d 

53 

8d 

25 

53 

8c 

45 

5315 : 

2e 

53 

8c 

26 

53 

86 

bc 

a9 

84 

53 ld : 

10 

85 

bb 

aO 

le 

4o 

24 

53 

6e 

5325 : 

78 

a9 

00 

85 

01 

b9 

00 

d8 

b2 

532d : 

29 

fO 

ld 

37 

54 

99 

00 

d8 

cO 

5335 : 

a9 

36 

85 

01 

58 

ca 

10 

04 

9f 

533d : 

ae f7 52 ca 88 10 

18 

89 

5345 : 

ad 

2d 

53 

69 

28 

8d 

2d 

53 

d5 

534d : 

ad 

2e 

53 

69 

00 

8d 

2e 

53 

df 

5355 : 

c6 

bb 

dO 

c7 

60 

a2 

00 

a9 

94 

535d : 

20 

9d 

00 

04 

9d 

00 

05 

9d 

f6 

5365 : 

00 

06 

9d 

00 

07 

e8 

dO 

fl 

af 

536d : 

60 

a2 

01 

ca 

8e 

69 

53 

dO 

db 

5375 : 

44 

a9 

00 

8d 

69 

53 

a2 

01 

fd 

537d : 

ca 

8e 

76 

53 

dO 

37 

a9 

06 

10 

5385 : 

8d 

76 

53 

ad 

00 

de 

c9 

7e 

e3 

538d : 

dO 

03 

a9 

91 

60 

c9 

7d 

dO 

67 

5395 : 

03 

a9 

11 

60 

c9 

77 

dO 

03 

5f 

539d : 

a9 

ld 

60 

c9 

7b 

dO 

03 

a9 

c4 

53a5 : 

9d 

60 

c9 

6f 

dO 

Of 

ad 

00 

Of 

53ad : 

de 

a2 

00 

ca 

dO 

fd 

c9 

6f 

37 

5365 : 

fO 

f4 

a9 

Od 

60 

4c 

3e 

fl 

71 

53bd : 

ad 

2b 

2c 

8d 

00 

dd 

ad 

30 

c3 

53c5 : 

2c 

8d 

18 

dO 

ad 

35 

2c 

8d 

28 
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53cd 

11 

dO 

ad 

39 

2c 8d 16 dO 

02 

53d5 

ad 

77 

2c 

8d 

20 dO ad 7c 

33 

53dd 

2c 

8d 

21 

dO 

60 08 48 ad 

f5 

53e5 

00 

dd 

09 

03 

8d 00 dd a9 

la 

53ed 

17 

8d 

18 

dO 

a9 lb 8d 11 

b7 

53f 5 

dO 

a9 

c8 

8d 

16 dO a9 Of 

2a 

53 fd 

8d 

21 

dO 

a9 

Oc 8d 20 dO 

d3 

5405 : 

68 

28 

60 

a 2 

00 ca 8e 03 

84 

540d : 

54 

dO 

f7 

a9 

80 8d 03 54 

25 

5415 : 

a9 

00 

49 

80 

8d 10 54 10 

ec 

54 ld : 

03 

4c 

de 

53 

4c b7 53 a9 

Ob 

5425 : 

00 

dO 

df 

20 

66 14 ad 53 

ee 

542d : 

55 

ad 

26 

54 

ac 27 54 20 

03 

5435 : 

62 

Od 

20 

63 
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20 
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00 
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06 
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d7 
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Oe 

Oe 

06 

06 
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9d 
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00 

00 
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00 
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56 
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00 
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00 
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5e 
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90 

05 
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e7 
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81 
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96 

97 

98 99 9a 9b 

49 
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93 

97 

Od 

11 
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c4 
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20 

2d 

20 

d7 

45 4c 4c 45 

a9 
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4e 

20 

2d 

Od 

11 11 09 3a 

03 
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20 

31 

29 

20 
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be 

5495 : 

49 

43 

48 

20 
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la 
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4c 

45 

47 

45 
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aa 
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3a 

20 

32 

29 
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83 
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42 

45 

4e 

20 
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ae 

54b5 : 

4c 

45 

47 

45 
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c2 
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3a 

20 

33 

29 

20 dO 52 4f 

6a 

54c5 : 

42 

45 

4c 

41 

55 46 Od 11 

c3 
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09 

3a 

20 

34 
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d9 

54d5 : 

41 

50 

48 

49 
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df 
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53 

54 

41 

55 
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50 
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4e 

Od 

11 

09 
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eb 
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20 

c5 

49 

4e 
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10 
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93 
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44 
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2d 

20 

c7 
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b6 
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2d 
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51 
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ab 
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2d 

d2 

cl 
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33 
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3c 
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45 

43 
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9d 
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3a 
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c6 
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ba 
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4e 

3a 

20 

40 
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ad 
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4l 
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45 
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3d 
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48 

20 

4b 
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aO 
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4e 

20 

c2 

45 
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20 
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48 

20 

46 

45 
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87 

557d : 

4c 

45 

47 

54 
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lf 


10 POKE 52,*10:PQKE 56,40:CLR <223> 
20 POKE 56334,PEEK(56334)AND 254 <175> 
30 POKE 1,PEEK(1> AND 251 <205> 
40 FOR 1=0 TO 256*0 <255> 
50 sPOKE 12200+1,PEEK(53240+1) <137> 
60 NEXT <070> 
70 POKE 1,PEEK(1)OR 4 <067> 
00 POKE 56334,PEEK(56334)OR 1 <253> 
90 OPEN 2,0,2,"ZEICHENSATZ,P,W" <147> 
100 PRINT#2,CHR*(0)CHR*(200 )5 <013> 
110 FOR 1=0 TO 256*0 <069> 
120 sPRINT»2,CHR*(PEEK(12200+1)); <221> 
130 NEXT <140> 
140 CLOSE 2 <159> 


Listing 10. »ZS-GENERATOR«, zum einfachen Erstellen 
einer Zeichensatzdatei. Bitte mit Checksummer 
(Seite 159) eingeben. 
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Alpha-Drummer - ein Schlagzeug-Programm der 
Superlative. Es bietet: 24 ladbare digitalisierte 
Sounds, Sequencer mit 240 Schritten, Edit- und 
Druckfunktionen, Mixer zur Steuerung der Laut¬ 
stärke der einzelnen Schlaginstrumente. Den Hö¬ 
hepunkt stellt der integrierte Digitizer dar, mit 
dem Sie Ihre eigenen Sounds aufnehmen und 
verwenden können. 


A lpha-Drummer ist eine digitale Rhythmusmaschine 
für den C64 mit Floppy und Joystick. Eine Drucker¬ 
ausgabe der Trommelstücke ist vorgesehen (Star 
NL-10 mit CBM-Interface). Weitere Hardware ist für die Be¬ 
nutzung des Programms nicht erforderlich, aber sehr vor¬ 
teilhaft: Besitzen Sie nämlich den 64’er Sound-Digitizer 
aus dem Sonderheft 31 (Seite 119), so können Sie sich Ihre 
eigenen Sounds digitalisieren. Damit ist es kein Problem, 
mit dem digitalisierten Bellen Ihres Hundes (so Sie einen 
besitzen), Schlagzeug zu spielen. 

Daneben besticht »Alpha-Drummer« auch durch hervor¬ 
ragende Programmierung und einige kleine Effekte wie 
weiches Umblenden der Menüs, Rasterzeilen-Interrupt im 
Bildschirmrahmen etc. 

»Alpha-Drummer« arbeitet mit 24 verschiedenen Sound- 
Samples hoher Qualität und kann es daher mit vielen pro¬ 
fessionellen Schlagzeug-Programmen aufnehmen. Ein 
Bühneneinsatz ist bei Anschluß des C64 an eine Verstär¬ 
keranlage durchaus möglich, aber auch zu Hause läßt sich 
diese Sound-Maschine sinnvoll einsetzen, zum Beispiel als 
Übungsgerät für K!ang-/Rhythmuskombinationen. Das 
Programm besitzt einen Sequencer, mit dem sich auch län¬ 
gere Stücke (über 15 Minuten!) Schritt für Schritt mit einem 
komfortablen Editor eingeben lassen. 

Für jeden Sound ist außerdem die Lautstärke individuell 
einstellbar, so daß Sie Ihr Schlagzeug wie mit einem Profi- 
Mixer gezielt abmischen können. Ihre Rhythmusbegleitun¬ 
gen lassen sich selbstverständlich speichern und nach¬ 
träglich verändern, so daß Sie sich im Laufe der Zeit eine 
umfangreiche Sammlung Ihrer Lieblingsstücke anlegen 
können. 


Abmischen wie die Profis 


Nachdem Sie den »Alpha-Drummer« (Listing 1) eingege¬ 
ben haben, gelangen Sie nach dem Programmstart in ein 
Hauptmenü (Bild 1), das Sie wie auch die weiteren Pro¬ 
grammteile durch einen Joystick in Port 2 steuern. Zu Be¬ 
ginn befindet sich der Cursorbalken auf dem ersten Menü¬ 
punkt (»Pattline editieren«). Durch Bewegen nach oben und 
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Pattline editieren 

Um eine Rhythmusbegleitung einzugeben, teilt man sie 
in mehrere Abschnitte, sogenannte »Pattlines«, auf. Das 
Programm unterscheidet dabei zwischen 26 verschiede¬ 
nen Pattlines, die nach dem Alphabet benannt werden (A 
bis Z); sie sind jeweils 32 Schritte (»Steps«) lang. Bei jedem 
dieser Schritte geben Sie an, ob und wenn ja, welche Trom¬ 
mel gespielt werden soll. Es stehen insgesamt 24 verschie¬ 
dene Trommeln und Becken oder andere digitalisierte 
Sounds zur Verfügung, die ebenfalls nach dem Alphabet 
bezeichnet werden (A bis Z). Wenn Sie bei einem Schritt 
keine Trommel spielen möchten, so geben Sie als Pausen¬ 
zeichen einen Bindestrich (< —>) ein (Bild 2). Eine typi¬ 
sche Pattline könnte zum Beispiel so aussehen: 

c -A-D-D-A-D-A-D-DD - 

Die Ausführung erfolgt immer von links nach rechts. Für 
den Computer bedeutet diese Pattline also: 

1. Trommel A spielen 

2. Pause 

3. Pause 

4. Pause 

5. Trommel D spielen etc. 

Eingabe und Änderung solcher Pattlines erfolgt im Me¬ 
nüpunkt »Pattline editieren«. Da sich der Cursor bei Pro¬ 
grammstart bereits auf diesem Punkt befindet, genügt zur 
Aktivierung ein Druck auf den Feuerknopf. Danach werden 
Sie gefragt, welche Pattline (von A bis Z) Sie editieren 
möchten. Geben Sie den entsprechenden Buchstaben ein 
und drücken Sie < RETURN >. Mit dem Joystick positio¬ 
nieren Sie nun den Cursor auf der 32stufigen Linie, und mit 
den Tasten geben Sie den gewünschten Buchstaben ein. 
Durch Drücken von < Fl > wird die aktuelle Pattline vorge¬ 
spielt, ein Druck auf den Feuerknopf oder auf <RUN 
STOP> bringt Sie zurück ins Hauptmenü. 

Weitere Funktionen: 

<CBM S>: Scratch-Funktion, gesamte Pattline löschen 
<CBM G>: Grundrhythmus einstellen (Baßschläge »A« 
im Abstand von acht Steps) 

<CBM F>: Fill-Funktion, Pattline mit »F«-Buchstaben 
(»Synth-Hi-Hat«) ausfüllen 

< CBM C >: Copy-Funktion, eingestellte Pattline wird in ei¬ 
ne beliebige zweite geschrieben 
<F5>: eine Pattline vorblättern 
<F7>: eine Pattline zurückblättern 


unten gelangen Sie zu den anderen Punkten, ein Druck auf 
den Feuerknopf führt die jeweilige Funktion aus oder öffnet 
ein Untermenü-Fenster. 


Trommelplan editieren 

Eine Pattline ist zwar schon ziemlich lang, für eine Rhyth¬ 
musbegleitung aber doch noch zu kurz. Der Sequencer 
des »Alpha-Drummer« bietet nun die Möglichkeit, viele 
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Pattlines hintereinander abzuspielen. Dafür steht ein eige¬ 
ner »Trommelplan« zur Verfügung, den Sie im unteren Drit¬ 
tel des Bildschirms (Bild 2) sehen. Sie bestimmen hier, wel¬ 
che Pattlines der Computer in welcher Reihenfolge spielen 
soll. Der Trommelplan umfaßt 240 Steps (Schritte), die in 
sechs Zeilen mit je 40 Zeichen dargestellt werden. Dabei 
wird jeweils zeilenweise von links nach rechts gespielt. Das 
Editieren dieses Plans im zweiten Menüpunkt erfolgt ähn¬ 
lich wie das Editieren der Pattlines. 

Geben Sie bitte einmal in der ersten Zeile von links nach 
rechts ein: 

AA... etc. 

Was bedeutet das? Diese Schreibweise teilt dem Pro¬ 
gramm mit, daß es zweimal Pattline A spielen und dann auf¬ 
hören soll. Das Ende wird durch einen Punkt ».« symboli¬ 
siert. Wollen Sie den Trommelplan aber in einer Endlos¬ 
schleife abspielen lassen, so drücken Sie am Ende die Ta¬ 
ste < - >, also zum Beispiel: 

AA< — > 

Durch Drücken des Feuerknopfs gelangen Sie wieder ins 
Hauptmenü zurück. Nachdem Sie jetzt alles eingestellt ha¬ 
ben, können Sie mit dem dritten Menüpunkt den Lohn Ihrer 
Mühe genießen: 

Programm spielen 

Das Programm spielt hier den aktuellen Trommelplan 
vor. Durch Druck auf den Feuerknopf oder auf <RUN/ 
STOP> läßt sich diese Funktion jederzeit abbrechen und 
anschließend erneut anwählen. Zu Beginn eines Taktes 
leuchtet der Bildschirm kurz auf, ansonsten bleibt der Bild¬ 
schirm - zur Verbesserung der Tonqualität - beim Abspie¬ 
len der Sounds abgeschaltet. 

Soviel zu dem Prinzip der Sequencer-Steuerung beim 
»Alpha-Drummer«. Das Programm hat jedoch noch weit 
mehr zu bieten. , s-tsr 

Mixer 

im Mixer (Bild 3) erhält jedes Schlaginstrument eine indi¬ 
viduelle Lautstärke. Dies ist beispielsweise dann sinnvoll, 
wenn Sie einige Trommeln dezent im Hintergrund spielen 
lassen möchten oder andere, etwa die Baßtrommel, hervor¬ 
heben wollen. Der Pfeil auf der rechten Seite des Mixer- 
Bildschirms zeigt auf den Lautstärkeregler, der gerade an¬ 
gewählt ist. Durch Drücken des Joysticks nach links oder 
rechts wird der Regler abgeschwächt oder verstärkt. Möch¬ 
te man alle Regler zurück in die Mittelstellung bringen, so 
geschieht dies am einfachsten durch Drücken von <CBM 
R>. 


Wie im Studio 


Da sich verschiedene Sounds beziehungsweise Sound¬ 
kombinationen von Diskette laden lassen, ist es sinnvoll, 
den einzelnen Instrumenten - vor allem wenn man etwa 
Sounds digitalisiert hat - aussagekräftige Namen zuzuwei¬ 
sen. 

Mit Druck auf <F1 > können Sie nun dem Sound, auf 
den der Pfeil deutet, jeweils einen Namen zuweisen oder 
diesen ändern. 

Die Lautstärke-Einstellungen und die Namen der 
Sounds werden selbstverständlich zusammen mit den an¬ 
deren Rhythmusdaten auf Diskette gespeichert. 

Pattlines Save 
Pattl./Soundp. Load 
Dir 

Dies sind wichtige Diskettenoperationen für den »Alpha- 
Drummer«. Mit »Pattlines Save« wird der aktuelle Trommel¬ 


plan nach Eingabe eines beliebigen Namens auf Diskette 
gesichert. Dabei werden selbstverständlich auch alle wei¬ 
teren Parameter, wie zum Beispiel die Mixereinstellungen, 
mit gespeichert. 

Mit »Pattl./Soundp. Load« holen Sie sich ein File mit 
Sequencer-Daten oder ein sogenanntes Soundpack, in 


Alpha Drummer 
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Bild 1. Hauptmenü und Ttommelplan des »Alpha-Drummer« 
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Bild 2. Beispiel einer einfachen Pattline 

dem 24 digitalisierte Sounds gespeichert sind, in den Ar¬ 
beitsspeicher. Auf unserer Programm-Service-Diskette zu 
diesem Sonderheft finden Sie verschiedene Demo-Files 
und Soundpacks zur Illustration und Einübung. Mit »Dir« 
wird das Directory einer eingelegten Diskette geladen und 
angezeigt. Ein beliebiger Tastendruck führt Sie von hier zu¬ 
rück ins Hauptmenü. 

Sampler/Untermenü 

Nach Anwahl dieses Punktes öffnet sich ein Fenster mit 
weiteren Funktionen: 

Sound-Sampler 

Dieser Menüpunkt ist es wohl, der den Alpha-Drummer 
weit über andere vergleichbaren Programme heraushebt. 
Hier können Sie beliebige Geräusche, Sounds wie etwa Tü¬ 
renschlagen oder Händeklatschen etc. aufnehmen und in 
Ihre Rhythmus-Komposition einbinden. 

Neben dem Programm selbst ist hier eine kleine 
Hardware-Schaltung nötig. 

Falls Sie nicht im Besitz des 64’er Sound-Digitizers (sie¬ 
he Sonderheft 31) sind, können Sie diesen Teil über das 
Sample Menu vorerst getrost überlesen. Das Programm ist 
aber dennoch voll einsatzfähig, nur daß Sie eben auf die 24 
schon integrierten Sounds beschränkt sind. Auf die ge- 
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naue Bedienung des Digitizers soll hier nicht eingegangen 
werden, da Besitzer dieses Gerätes sicher die entspre¬ 
chende Ausgabe des 64’er-Magazins besitzen (Ausgabe 
10/86 oder Sonderheft 32) 

Vom Mikrofon ins RAM 


Die grundsätzliche Funktionsweise des Samplers ist fol¬ 
gende: Das Programm besitzt einen kleinen Pufferspei¬ 
cher, den man mit einer Aufnahme bespielen kann. Aus die¬ 
sem Puffer kann man sich dann einzelne Abschnitte her¬ 
ausschneiden und in das Soundpack, das sind die 24 Trom¬ 
melsounds, integrieren. 


HZ HAt' 
SVkfH H) 



ih§E DRUM 
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BASE DRUM V 

HI sflhRE 

CLOSt'THE DOOR 

SWNTH YÖMS 
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* 


-D- 


-n— 


> & R EUER REGLER RESET 


2. Hören und auf Feuerknopf warten 

Dieser Modus ist nützlich, wenn Sie Aufnahmen von 
Band oder Platte machen wollen. Sie hören online mit, und 
wenn die bestimmte Stelle, die Sie mitschneiden wollen, er¬ 
reicht ist, starten Sie die Aufnahme mit Druck auf den 
Feuerknopf. 

Wichtig bei jeder Aufnahme ist eine gute Aussteuerung, 
das heißt, beim Aufnehmen der Sounds müssen Sie darauf 
achten, daß die vier Farben Schwarz, Weiss, Blau und Hell¬ 
blau möglichst alle und mit gleicher Häufigkeit auftreten 
(siehe Beschreibung Sound Digitizer). 

Eine zu laute oder zu leise Einstellung des Signals führt 
zu übermäßigen Qualitätsverlusten bei der Aufnahme. Ex¬ 
perimentieren Sie deshalb ruhig etwas mit dem Lautstärke- 
und den Klangreglern, bis der Sound einigermaßen sauber 
ist. 

Nach der vollständigen Aufnahme des Puffers meldet 
sich der Computer wieder zurück. 

Mithören 

Dieser Modus ermöglicht Ihnen durch das parallele Mit¬ 
hören des digitalisierten Eingangs-Signals, Lautstärke und 
Klang Ihrer Tonquelle an den Digitizer anzupassen. Durch 
Drücken der SPACE-Taste gelangen Sie in das Menü zu¬ 
rück. 

Vorspielen 

Diese Funktion spielt Ihnen den Puffer, also die gesamte 
Aufnahme vor. Dies ist als Kontrollmöglichkeit nach der Auf¬ 
nahme gedacht. 


Bild 3. Der Mixer - fast wie im Profi-Studio. Jede Trommel 
erhält ihre eigene Lautstärke. 
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mmmFUNKTIONEN :*** 

r± TS z “C 

CNNITT 'ORSPIELEN 

SOUND IN SOUNDPACK AUFNEHMEN 
ZURUECK ZUM SAMPLE MENU 


Bild 4. Der Editor des Sound-Sampler 
Das Sample-Menü hat folgende Funktionen : 

Aufnahme 

Der ganze Puffer wird mit einer Aufnahme bespielt. Das 
Programm bietet zwei Möglichkeiten, die Aufnahme zu 
starten: 

1. Synchro Start 

Der Computer wartet so lange, bis er etwas »hört«. Das 
ist dann sinnvoll, wenn man etwa von einer akustischen 
Trommel mit dem Mikrofon eine Aufnahme machen möch¬ 
ten. Solange die Trommel noch nicht angeschlagen wurde, 
wartet der Computer. Erst wenn Sie auf die Trommel schla¬ 
gen und ein Signal am Ausgang des Digitizers anliegt, wird 
mit der Aufnahme begonnen. So umgeht man das Pro¬ 
blem, per Hand möglichst gleichzeitig die Aufnahme zu 
starten und außerdem noch auf die Trommel zu schlagen. 


Editieren 

Nach Anwahl dieses Menüpunktes erscheint eine neue 
Bildschirmmaske (Bild 4). 

In dieoem Modus können Sie Teile des Puffers heraus¬ 
schneiden und als Trommelsounds in Ihr Soundpack kopie¬ 
ren. In der oberen Hälfte des Bildschirms sehen Sie einen 
Ausschnitt des Puffers, der dieselbe Länge wie ein Schlag¬ 
zeugsound beim »Alpha Drummer« hat. 

Folgende Tasten stehen zur Steuerung des Editiermodus 
zur Verfügung: 

<F1 > und <F3>: schnelles Vor-beziehungsweise Rück¬ 
spulen der Aufnahme. 

<F 5> und <F 7>: langsames Vor- beziehungsweise 
Rückspulen der Aufnahme. 

Hiermit können Sie also die Position des Ausschnitts im 
Puffer innerhalb der gesamten Aufnahme auswählen. 

Den blinkenden Cursor im Editierfeld können Sie mit 
dem Joystick innerhalb des Feldes bewegen. Kommt der 
Cursor oben oder unten an den Rand, so wird automatisch 
weitergescrollt. 

<P>: PLAY 

Der eingestellte Abschnitt wird vorgespielt. So können 
Sie mit dem Joystick und der P-Taste durch den Puffer pir¬ 
schen und den gesuchten Sound ausfindig machen. 

Verrauschte Teile oder andere störende Effekte können 
mit Joystick und FIRE einzeln gelöscht werden. 

Haben Sie einen Sound gefunden und wollen Sie ihn in 
Ihr Soundpack aufnehmen, so drücken Sie bitte 
<A>: Sound in Soundpack aufnehmen 

Mit dieser Funktion wird der Abschnitt in einen der 24 
Sounds kopiert. Der alte Sound im Soundpack wird dabei 
allerdings überschrieben und ist dann nicht mehr verfüg¬ 
bar. 

Die Sounds in einem Soundpack sind mit den Buchsta¬ 
ben A bis X gekennzeichnet. Sie können durch Eingabe ei¬ 
nes dieser Buchstaben bestimmen, in welchen Sound der 
Abschnitt kopiert wird und ob der von Ihnen gefundene 
Sound als Doppelsound (siehe unten) behandelt werden 
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soll. Wenn ja, dann wird auch der nächste Sound im Sound¬ 
pack mit dem nach dem im Pufferabschnitt folgenden 
Sound beschrieben. 

<D>: Display 

Hiermit können Sie sich das Sample als Wellenform auf 
dem Bildschirm darstellen lassen. Ein Druck auf den Feu¬ 
erknopf bricht die Funktion ab. 

<X>: Zurück in Sample-Menü 
Um wieder in das Sample-Menü zu gelangen, brauchen 
Sie nur <X> zu drücken. 

Soundp. Save 

Mit der Funktion »Soundpack Save« kann das gesamte 
Soundpack inklusive der Soundnamen auf Diskette ge¬ 
speichert werden (51 Blocks). Das ist natürlich nur sinnvoll, 
wenn Sie eigene Sounds in das Soundpack integriert ha¬ 
ben und diese später wiederverwenden wollen. 

Zurück 

Mit dieser Funktion gelangen Sie zurück in das Haupt¬ 
menü. Im Untermenü ist der nächste Punkt: 

Tempo einstellen 

Damit wird das Abspieltempo der Trommelstücke beein¬ 
flußt. Je größer der jeweilige Wert (Steuerung mit dem Joy¬ 
stick), desto langsamer das Tempo. Vorsicht ist bei Doppel- 
Sounds (siehe unten) geboten: Eine zu starke Verlangsa¬ 
mung verursacht hier einen Echo-Effekt. 

Pitch einstellen 

Hier läßt sich die Tonhöhe der Trommeln einstellen. Die¬ 
sen Pitch-Wert könnte man in etwa mit der Abspielge¬ 
schwindigkeit einer Schallplatte vergleichen. Die einzelnen 
Trommelklänge sind ja »gesampled«, das heißt genau wie 
ein Tonband mit einer bestimmten Geschwindigkeit aufge¬ 
nommen. Spielt man die Trommeln jetzt mit einer höheren 
Geschwindigkeit ab als bei der Digitalisierung der Klänge, 


so klingen sie höher. Spielt man sie jedoch langsamer, so 
klingen sie tiefer. Diese Funktion eignet sich dazu, den 
Klang zu verfremden. Es sind Werte zwischen »0« und »9« 
möglich, wobei »1« den Normalwert darstellt. Höhere Werte 
bedeuten tiefere Töne, bei »1« klingen alle Trommeln höher. 

Disk 8/9 

Dies ist eine weitere Diskettenfunktion. Falls Sie im Be¬ 
sitz von zwei Laufwerken sind, können Sie hier die Geräte¬ 
adresse (8 oder 9) des verwendeten Laufwerks wählen. 

Ausdrucken 

Dieser Menüpunkt erstellt einen Partiturausdruck der 
Begleitung auf einem Star NL-10 mit Commodore-Inter- 
face. Pattlines und Trommelplan werden dabei genauso wie 
auf dem Bildschirm ausgegeben. 

»Hauptmenü« 

Mit dem letzten Punkt dieses Untermenüs gelangen Sie 
wieder in das Hauptmenü zurück. 

fricks fürs Trommeln 


Zum Abschluß noch ein paar Hinweise für ein besseres Ar¬ 
beiten mit dem »Alpha-Drummer«. 

Doppel-Sounds 

Jeder Sound ist eine kurze digitalisierte Aufnahme einer 
Trommel. Ist ein Klang jedoch länger als diese »Sample- 
zeit«, so wird das Ausklingen der Trommel abgeschnitten. 
Dies läßt sich umgehen, indem man die Trommel in zwei 
aufeinanderfolgende Sounds aufteilt. Diese müssen dann 
natürlich auch hintereinander abgespielt werden. Folgen¬ 
de Tromr.-eln im eingebauten Soundpack des »Alpha- 
Drummer« (steht sofort nach dem Laden zur Verfügung) 
sind solche Doppel-Sounds: 


Name : 
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TOOLS: MUSIK 


B/C Hi-Snare 1 
DIE Hi-Hat 
J/K Toms 
M/N Snares 
P/Q Bass-Drum 4 
R/S Hi-Snare 2 
T/U Türenschlagen 
V/W Synth-Toms 

Wollen Sie einen dieser Sounds einsetzen, so vergessen 
Sie bitte nicht, auch den zweiten Teil (Buchstaben) mit ein¬ 
zutragen. In der Praxis sieht das folgendermaßen aus (bitte 
in einer Pattline eingeben und ausprobieren!): 

Ohne Doppel-Sounds würde es so klingen: 

A-J-A-J-A-J-A-J- 

Mit Doppel-Sounds klingt es dagegen so: 

A-JK--A-JK--A-JK--A-J K - - 

Beim zweiten Beispiel klingt die Snare-Drum deutlich 
länger und nicht so abgehackt wie beim ersten. Der zweite 
Teil eines Doppel-Sounds klingt alleine ohne den ersten 
nicht sehr sinnvoll. Vermeiden Sie also Pattlines wie diese: 


A-JK--A-J K — A-J K — A-JK-- 

Schließlich könnte man den Rhythmus auch noch durch 
zusätzliche Baßschläge beleben: 

A-JK--A-A-JKA-A - A AJK--‘A-A-JKA- 

Eine andere Möglichkeit besteht darin, weitere Trommeln 
einzusetzen: 

A-U-JKUUA-UUJKUUAU-UJKU-A-UUJKUU 

Auch Hi-Hats klingen sehr gut: 

A-PQJKPQA-PQJKPQAPPPJKPQA-PQJKPQ 

Vorhandene Pausen in den Pattlines lassen sich gut mit 
Handclaps (»X«) oder dem Hi-Hat (»D/E«) ausfüllen. »Alpha- 
Drummer« bietet Ihnen dazu die Funktion <CBM F> (Fill- 
Funktion, siehe oben). Allerdings sollte man diese Trommel 
im Mixer sehr leise stellen. Dadurch erhält man den Ein¬ 
druck, daß sie im Hintergrund spielt. 

Wie Sie sehen, bietet der »Alpha-Drummer« viele Mög¬ 
lichkeiten für die Gestaltung von Trommelstücken. Grenzen 
sind allenfalls durch Ihre eigene Kreativität gesetzt. 

(Matthias Weber/Dr. Rudolf Egg/sk) 


A-KKJKKKA-K-A-K... usw. 

Erlaubt, speziell bei den Snares, ist jedoch das schnelle 
Anschlägen, also die Verwendung nur des ersten Teils, wie 
im folgenden Beispiel: 

A-JK--A-JKJKA-JJJJA-J K - - 

(viermal »J« hintereinander) 

Rhythmus-Programmierung 

Um mit dem »Alpha-Drummer« einen guten Rhythmus zu 
programmieren, geht man am besten wie folgt vor: Wählen 
Sie eine leere Pattline aus und stellen Sie zunächst mit den 
Baßschlägen »A« den Grundrhythmus ein: 


A 


A 


A 


Sie brauchen dies nicht von Hand einzugeben, es ge¬ 
nügt der Befehl <CBM G> (siehe oben). Nun sollten Sie 
die Snare-Drums plazieren (Vorsicht: Doppel-Sounds!). 
Beispielsweise so: 
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Tips&Tricks 
zum Soundmonitor 

Mit dem »Sound-Cruncher« können Sie Ihre Soundmonitor-Files auf einen 
Bruchteil der ursprünglichen Länge reduzieren. 

Weiterhin bringen wir ein paar Tips zum Umgang mit Musikdaten. 


M it dem Soundmonitor aus dem Sonderheft 31 kön¬ 
nen Sie sehr einfach selbst Musik schreiben. Aller¬ 
dings hat der Soundmonitor einen kleinen Nachteil: 
Die erstellten Musik-Files haben im Normalfall eine Länge 
von 45 Blöcken, gleichgültig, wie lang die Musik wirklich 
dauert. Wenn man nun keinen Floppyspeeder hat, nimmt 
das Laden doch einige Zeit in Anspruch. Außerdem dürfen 
die Musik-Files nur absolut, also mit dem Zusatz »>,8,1« gela¬ 
den und mit SYS 49152 gestartet werden. 

Der Sound-Cruncher (Listing 1) beseitigt die obenge¬ 
nannten Probleme. Er packt Ihre Musikstücke mit einem 
speziell auf deren Format zugeschnittenen Algorithmus. 
Das Ergebnis ist beachtlich: Von den 45 Blöcken des Mu¬ 
sikstücks »Axel F.« (auf der Programmservice-Diskette der 
Ausgabe 10/86 des 64'er-Magazins) bleiben nach dem 
Packen lediglich 18 Blöcke übrig! 

Kürzere Sound-Files 


Kleine Zusatzinformation für diejenigen Leser, denen der 
Begriff »Packer« nicht geläufig ist: Packer sind Programme, 
die andere Programme in der Länge reduzieren. Meist 
funktioniert das so, daß sich wiederholende Bytes oder 
Bytefolgen zusammengefaßt werden. Das Ergebnis, also 
das gepackte Programm ist dann zunächst natürlich nicht 
ablauffähig. Es muß durch einen zweiten Algorithmus erst 
wieder auf die ursprüngliche Länge gebracht, entpackt 
werden. Die Packprogramme setzen diese Entpackroutine 


automatisch an den Anfang des gepackten Programms. 
Beim Starten des Programms tritt zuerst die Entpackrouti¬ 
ne in Aktion, so daß Sie sich darüber keine Gedanken mehr 
machen müssen. 

Einfache Bedienung 


Der Sound-Cruncher funktioniert nach demselben Prinzip: 
Wenn Sie ein gepacktes Musikstück starten möchten, la¬ 
den Sie es wie ein normales Basic-Programm mit »LOAD 
" Name ",8« und starten es mit RUN. Daraufhin passiert ein 
paar Sekunden scheinbar gar nichts, in denen das Musik¬ 
stück aber wieder in die ursprüngliche Form gebracht wird. 
Anschließend startet die Musik automatisch. 

Die Bedienung des Sound-Crunchers ist sehr einfach. 
Zuerst müssen Sie das untenstehende Listing mit unserer 
Eingabehilfe MSE abtippen. Bei Bedarf laden Sie ihn mit 
»LOAD "SOUND-CRUNCHER",8« und starten ihn mit 
RUN. Legen Sie nun die Diskette in Ihr Laufwerk, die das 
zu packende Musikstück enthält. Dessen Name müssen 
Sie als erstes eingeben. 

Die zweite Eingabe ist der Name, den das fertig gepackte 
Musikprogramm auf der Diskette erhalten soll. Sie können 
zum Beispiel vor den Namen ein »P/« setzen. So lassen sich 
gepackte von normalen Musik-Files unterscheiden. 

Der eigentliche Packvorgang dauert nur wenige Sekun¬ 
den. Die meiste Zeit verschlingt das Laden des alten und 
das Speichern des neuen Musikprogramms. 
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Achtung: Gepackte Musikstücke lassen sich mit dem 
Soundmonitor natürlich nicht laden, starten oder editieren! 

Tips & Tricks 


Zum Schluß noch ein paar Tricks zum Umgang mit selbst¬ 
gemachten Musikstücken: 

1. Wenn ein Musik-File aus mehreren einzelnen Teilen be¬ 
steht, können Sie diese sehr einfach getrennt abspielen 
lassen: Die Adressen 49169 ($C011) und 49168 ($C010) 
enthalten den ersten und den letzten Step des Musik¬ 
stücks. 

2. POKE 49167,1 bewirkt das gleiche wie die Funktion »N« 
des Soundmonitors. Beispiel: 


POKE 49169,10:POKE 49168,20:POKE 49167,1 

startet die Musik von Step 10 bis Step 20. 

3. Mit 

POKE 49172,234:POKE 49177,49:SYS 49152: 

POKE 54272+24,0 

können sie die Musik zu jeder Zeit stoppen (der IRQ- 
Vektor und die Lautstärke werden wieder auf die Nor¬ 
malwerte gesetzt). Zum erneuten Starten müssen Sie 

POKE 49172,192:POKE 49177,31:SYS 49152 

eingeben. 

Mit den vorgestellten Software-Hilfen ist der Soundmoni¬ 
tor noch interessanter geworden als er ohnehin schon war. 

(Ralf Stanke/sk) 
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Der Detektiv für 


Ein hervorragendes Hilfsprogramm prüft Ihre Ba- 
sic-Programme. Fehlerhafte Zeilen werden ange¬ 
zeigt und auf Wunsch ausgedruckt. Die zeitrau¬ 
bende und schweißtreibende Fehlersuche in ei¬ 
nem Programm wird damit kinderleicht. 

D as Basic-Kontroll-System (BKS) wurde ursprünglich 
entwickelt, um Leserlistings für das 64’er-Magazin 
auf Lauffähigkeit zu testen, Das kurze Maschinenpro¬ 
gramm (Listing 1) prüft ein im Speicher stehendes Basic- 
Programm Zeile für Zeile darauf, ob typische Fehler enthal¬ 
ten sind, beispielsweise: eine Klammer zuviel oder zuwe¬ 
nig, Syntaxfehler, Formatfehler im Programmtext (Bild 1). 
Ganz besonders hat es das Fahndungsprogramm auf 
Sprungbefehle abgesehen. Hier werden eigentlich alle 
möglichen Fehler gefunden. 

Doch das BKS ist sicher nicht nur für professionelle Pro¬ 
grammtester interessant, jeder Programmierer kann durch¬ 
aus etwas damit anfangen. Beispielsweise ein Einsteiger, 
der gerne überprüfen möchte, ob das Basic-Programm, 
das er gerade geschrieben hat, auch sicher läuft. Aber 
auch Fortgeschrittene profitieren von diesem Programm. 
Nehmen wir einmal an, Sie haben ein längeres (vielleicht 
dazu noch fremdes) Basic-Programm vorliegen, das Sie 
nach eigenen Vorstellungen verbessern möchten. Sie neh¬ 
men hier und da eine Zeile heraus, fügen dort eine neue ein 
und vertauschen einige Programmteile. Doch was ist, wenn 
Sie dabei irgendwo einen Befehl »GOTO XX« übersehen 
haben, der jetzt auf eine nicht mehr existierende Zeile 
weist? Das Programm wird beim Testlauf aussteigen, übli¬ 
cherweise dann, wenn man es am wenigsten braucht. 

Wenn Sie bereits Programmierprofi sind, kennen Sie si¬ 
cher folgende Situation: Sie haben ein langes und komple¬ 
xes Basic-Programm geschrieben, das von Maschinenpro¬ 
grammen unterstützt wird. Da wird dann eifrig im Speicher 
herumgePOKEt, der Programmierer wirft mit SYS-Befeh- 
len um sich, ein Finger hat seinen Stammplatz am RESET- 
Taster. Es ist bereits 2 Uhr nachts. Hoppla! Da haben Sie in 
der Eile einen falschen POKE-Befehl eingegeben, 
der das Basic-Programm angegriffen hat. 

Oder durch eine ungeschickte Manipula¬ 
tion wurde der Basic-Endezeiger (45/46) 
so verändert, daß ein Start des Programms 
den totalen Absturz zur Folge hat. In diesem 
Fall lädt man einen Monitor und versucht, zu 
retten, was noch zu retten ist. Doch stimmen alle 
Zeiger, Zeilennummern und Sprünge jetzt noch? 

In allen diesen Fällen hilft das BKS. Laden Sie die 
Testroutine mit »LOAD "BKS 5.0 (49152)",8,1«. Danach 
geben Sie bitte »NEW« ein, um alle Zeiger richtig zu stel¬ 
len. Keine Angst, das Maschinenprogramm wird dabei 
nicht gelöscht. Es kann jederzeit mit »SYS 49152« gestartet 
werden. Das Programm funktioniert natürlich nur, wenn 
sich ein Basic-Programm im Speicher befindet. Andern¬ 
falls wird eine entsprechende Meldung ausgegeben. 

Laden Sie nun also das zu testende Basic-Programm. 
Der Inhalt des Basic-Anfangszeigers (43/44) spielt keine 
Rolle. Starten Sie das BKS mit »SYS 49152«. Es erscheinen 
jetzt einige Fragen, die Sie mit <J> (Ja) oder <N> beant¬ 
worten. Zunächst werden Sie gefragt, ob Leerzeichen be¬ 
mängelt werden sollen. Manche Programmierer setzen in 
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Basic-Programme viele Leerzeichen (Spaces), um sie 
übersichtlicher zu gestalten, andere verschmähen dies. 
Sollten Sie zu letzteren gehören, können Sie die Frage mit 
< J > beantworten; dann wird auch getestet, ob außerhalb 
von Anführungszeichen und DATAs überflüssige Spaces 
auftreten. Wenn in einem Programm allerdings zu viele 
Leerzeichen sind, besteht die Liste, die das BKS erzeugt, 
praktisch nur noch aus diesem Fehler und wird unüber¬ 
sichtlich. Schalten Sie die Überprüfung dann besser aus. 

Die nächste Frage hat eine ähnliche Funktion. Das BKS 
kann auf Wunsch Sprünge (RUN, GOTO, GOSUB, THEN) 
finden, dieauf eine REM-ZeileodereineTrennzeile weisen, 
das ist eine Zeile dieser Art: 

10 : 

Das kann problematisch werden, wenn das Programm 
mit einem »unintelligenten« REM-Killer bearbeitet wird, Ge¬ 
rade in einer Zeitschrift veröffentlichte Listings sollten sol¬ 
che Sprünge nicht enthalten, da der eine oder andere Le¬ 
ser die REM-Zeilen beim Abtippen wegläßt und nicht alle 
Sprünge findet, die zu korrigieren sind. 

Auch diese Fehlermeldung kann man »ausblenden«, 
wenn der Fehler allzuoft auftritt. 

Mit der folgenden Frage kann man gleich zwei Fehler 
auf einmal ausblenden: den Fehler Nummer 7, der 
angezeigt wird, wenn ein Sprungbefehl auf ei¬ 
nen Strukturierbefehl zeigt, den man auch 
anstelle-^ Sprungbefehls hätte set¬ 
zen können. Beispiel: 

10 A = 4 : GOTO 20 
20 RETURN 
kann man auch ein¬ 
facher so schreiben: 

10 A = 4 : RETURN 
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Basic-Programme 

Der zweite Fehler, der von diesem »Schalter» betroffen Fehlernummern 12,13 und 14 Befehlswörter, die ein geüb- 
ist, ist der Fehler Nummer 17. Er wird gemeldet, wenn der ter Programmierer nicht verwendet: LET, NEW und STOP. 
Programmierer direkt hinter das Befehlswort »THEN« einen »LET« kann man sich sowieso sparen, »NEW« und »STOP« 
GOTO-Befehl gesetzt hat (anstelle »THEN GOTO 12« gehören nicht in ein gutes Basic-Programm. Falls der Be¬ 
schreibt man kürzer »THEN 12«), Da beides Schönheitsfeh- diener des BKS anderer Meinung ist, kann er die Ausgabe 
ler sind, kann man deren Ausgabe zusammen ausblenden, der drei Fehlermeldungen unterdrücken, indem er die Fra- 
indem die Frage mit <J> beantwortet wird. ge mit <N> beantwortet. 

Die letzte der vier »Ausblendfragen« betrifft gleich drei Als nächstes werden Sie gefragt, ob die fehlerhaften Zei- 

Fehler: Wie Sie aus der Liste ersehen können, betreffen die len gelistet werden sollen oder ob die Ausgabe der Zeilen¬ 
nummer genügt. Beantworten Sie auch diese Frage 
wieder mit <J> oder <N>. Die letzte Frage 
dient dazu, festzulegen, auf welches Gerät 
die Fehlerliste ausgegeben werden 
soll. Drücken Sie eine der Tasten 
<D>, <S> oder <F>: 

S: Die Fehlerliste 
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Bildschirm ausgegeben. Dieser Modus ist vor allem bei 
sehr kurzen Programmen angebracht und zum Test, ob die 
ausblendbaren Fehler (siehe oben) zu oft Vorkommen. 

D: Die Liste wird auf dem Drucker ausgegeben. Die Ge¬ 
räteadresse ist 4, die Sekundäradresse 0. Die Routine wur¬ 
de für Commodore-kompatible Drucker geschrieben, müß¬ 
te jedoch auch mit anderen Zusammenarbeiten. Diesen 
Ausgabemodus braucht man, wenn die Fehlerliste schrift¬ 
lich vorliegen soll. Da dieselbe Routine wie zur Bildschirm¬ 
ausgabe verwendet wird, ist die Ausgabe nicht breiter als 
40 Zeichen. 

F: Ausgabe erfolgt auf Diskette. Dabei wird auf der (ein¬ 
gelegten) Floppy ein Basic-Programm mit dem Namen er¬ 
zeugt, den Sie nun eingeben. Er beginnt gewöhnlich mit 
der Kennung »DOC.« für DOCument, diese kann durch Ein¬ 
gabe von <CRSR-links> jedoch überschrieben werden 
(Vorsicht: Den Cursor nicht weiter als auf das »D« bewe¬ 
gen!). Dieses File kann dann wie ein normales Basic-Pro¬ 
gramm geladen werden, ansehen können Sie sich die Aus¬ 
wertung durch Eingabe von LIST oder RUN (frei nach 
Wahl). Nach der Eingabe dieser Parameter geht das BKS 
das Basic-Programm nun Zeile für Zeile durch und über¬ 
prüft, ob es Fehler enthält. Bei jeder neuen Zeile wechselt 
der Bildschirmrahmen seine Farbe. So erkennen Sie, wenn 
die Überprüfung läuft, daß die Routine nicht abgestürzt ist 
(das BKS ist so programmiert, daß es nicht abstürzen 
kann). Am Ende des Tests werden alle Dateien geschlos¬ 
sen und das BKS beendet. 

So zeigt das BKS Fehler an 


Jedesmal, wenn ein Fehler auftritt, wird eine Zeile mit fol¬ 
gendem Format ausgegeben (auf Schirm, Drucker oder 
Diskette): 

AAA: BB[C] blablablabla 

AAA ist die Basic-Zeilennummer, in der der Fehler auf¬ 
tritt. Sie wird rechtsbündig ausgegeben. BB ist die laufende 
Nummer des Fehlers (siehe dazu die untenstehende Tabel¬ 
le 1). 

Es gibt zwei verschiedene Fehlergrade, die »C« angibt: 
leichte Fehler, die eigentlich nur Schönheitsfehler sind und 
keine Fehlfunktion des Programms bewirken (C=1). Bei¬ 
spiele für diese Fehler sind überflüssige Spaces, List¬ 
schutz, LET-Befehl. 

Anders ist es bei den schweren Fehlern (C=2): Hier wird 
sich das Programm mit einer Basic-Fehlermeldung verab¬ 
schieden. Beispiele: Sprungbefehle, die auf nicht vorhan¬ 
dene Zeilen zeigen, formal zerstörtes Programm (POKEs) 
oder Syntaxfehler. 

Der hier mit »blablablabla« bezeichnete Teil stellt einen 
Text dar, der ungefähr die Art des Fehlers angibt. Die mögli¬ 
chen Texte sind: »FORMATFEHLER«, »SPRUNGFEH¬ 
LER«, »ÜBERFLÜSSIGER BEFEHL« und »UNERLAUB¬ 
TER BEFEHL«. 

Da dieser Text nicht genau die Art des Fehlers angibt, ist 
der Parameter BB besonders wichtig: Er kann 28 verschie¬ 
dene Werte annehmen. Tabelle 1 gibt eine Übersicht über 
die Fehlernummern. 

So funktioniert das BKS 


Viele Leser werden sich jetzt die Frage stellen, wie das BKS 
funktioniert. Zu einer detaillierten Beschreibung reicht hier 
leider der Platz nicht. Der Autor (Adresse im Basic-Pro¬ 
gramm, das unten beschrieben wird) stellt auf Wunsch 


(Einsenden einer Diskette mit Rückporto) jedoch gerne den 
Quelltext zur Verfügung. Daher nur ein grober Überblick: 

Das Kontrollsystem geht das Basic-Programm Zeile für 
Zeile und Zeichen für Zeichen durch. Für die wichtigsten 
Befehle ist eine Routine vorhanden, die diese dann auf 
Fehlerhaftigkeit prüft. Im Falle eines Fehlers wird in eine 


1 Fehler-Nr 

Bedeutung 

1(1) 

Direkt nach der Zeilennummer folgt ein Nullbyte (dies 
wird zum Listschutz verwendet). 

2(1) 

Im Programmtext kommt ein überflüssiges 

Leerzeichen vor. Nach DATA, in Anführungszeichen 
oder wenn diese Funktion abgeschaltet ist, werden 
Spaces nicht bemängelt. 

3(2) 

Ein Befehl THEN, GOTO, LIST, RUN oder GOSUB 
zeigt auf eine nicht existierende Zeile (UNDEF’D 
STATEMENT). 

4(2) 

Die hinter einem dieser Befehle stehende 

Zellennummer ist größer als 63999. 

5(2) 

Die hinter einem dieser Befehle stehende 

Zeilennummer enthält verbotene Zeichen (etwa »GOTO 
4+6« oder »GOTO LABEL«), Gerade Pascal-gewohnte 
Programmierer werden diese Funktion des BKS zu 
schätzen wissen... 

6(2) 

Eine Basic-Zeile Ist länger als 255 Zeichen. 

7(1) 

Ein GOTO- oder THEN-Befehl zeigt beispielsweise auf 
RETURN, GOTO oder RUN (Strukturierbefehl), den 
man einfach anstelle des Sprungbefehls hätte setzen 
können. 

8(1) 

Ein Sprungbefehl zeigt auf eine REM- oder Trennzeile 
(das ist eine Zeile, die nur einen Doppelpunkt enthält). 

Das kann zu Problemen beim Abtippen führen, wenn 
die REM-Zeile weggelassen wird. Falls in einem 

Listing dieser Fehler zu oft vorkommt, kann auch die 
Ausgabe dieses Fehlers abgeschaltet werden. 

9(2) 

Eine Basic-Zeile ist länger als 255 Zeichen (Fehler der 
Hauptroutine). Wenn dieser Fehler auftritt, dürfen 
eventuelle sonstige Fehler nicht mehr unbedingt 
ernstgenommen werden, da dann das System 

onun«^ 

1 vollkommen durcheinandergerät. 

10(2) 

Ein GOTO- oder RUN-Befehl zeigt auf sich selbst 
(nicht hinter THEN). Beispiel: 

10 GOTO 10 

11(2) 

Der Befehl CONT darf nicht im Programmtext 

Vorkommen. 

12(1) 

Der Befehl STOP sollte nicht im Programmtext 
Vorkommen. 

13(1) 

Der Befehl NEW sollte nicht im Programmtext 

Vorkommen. 

14(1) 

Der Befehl LET sollte nicht im Programmtext 

Vorkommen. 

15(1) 

Hinter einem REM-Befehl steht ein geshlftetes »L« 
(Listschutz), 

16(2) 

Ein illegales Token (Zeichen, Byte) kommt Im 
Programmtext vor. 

17(1) 

Der Befehl GOTO sollte nicht direkt hinter THEN 
stehen, einer von beiden genügt. 

18(2) 

Hinter einem Befehl fehlt der Parameter (z.B. OPEN). 

19(2) 

Hinter GO fehlt TO. 

20 (1) 

Hinter GOTO, RUN usw. folgen weitere Befehle, die 
niemals ausgeführt werden (z.B. »GOTO 20:PRINT 
"GEISTERBAHN"«) 

21 (2) 

Klammer(n) zu viel bzw. zu wenig. 

22 (1) 

Das Zeichen »1« zur Potenzierung sollte vermieden 
werden (große Rechenungenauigkeit). 

23 (2) 

Der Befehl PRINT # wurde mit 1 # abgekürzt 
(SYNTAX ERROR). 

24 (2) 

Falsche Reihenfolge der Baslc-Zeilen. Das kann zu 
Problemen bei Sprungbefehlen führen. 

25 (2) 

Ein falscher Linkpointer kommt im Programmtext vor. 

(Vor jeder Basic-Zeile steht Im Speicher ein Zeiger, der 
angibt, wo im Speicher die nächste Zeile beginnt. 

Anhand dieser Zeiger »hangeln« sich unter anderem 
die Sprungbefehle zur gesuchten Zeile.) 

26 (2) 

ON ohne legalen Sprungbefehl. 

27(2) 

THEN ohne IF. 

28 (1) 

Der Pointer 45/46 zeigt nicht genau auf das Byte hinter 
dem Basic-Programm. Wahrscheinlich ist noch ein 
Maschinenprogramm angehängt, oder es wurde ein 
fehlerhafter RENEW-Befehl verwendet. 


Tabelle 1. Die Fehlernummern des BKS und ihre Bedeutung 
(in Klammern der Härtecode, Parameter C) 
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Diagnoseroutine gesprungen, die zunächst prüft, ob der 
Fehler ausgeblendet ist oder angezeigt werden soll. Im 
letztgenannten Fall erfolgt die Ausgabe. 

Aufgrund dieser Verfahrensweise ist es leider nicht mög¬ 
lich, komplexere Fehler, wie »NEXT WITHOUT FOR« oder 
»RETURN WITHOUT GOSUB« festzustellen, dazu wäre 
Künstliche Intelligenz notwendig. Aus langer Testerfahrung 
kann aber gesagt werden, daß sich das BKSzum Erkennen 
aller üblichen Fehler sehr gut eignet. 

Nun noch zu einem »Zubehör« zum BKS, dem Basic-Pro- 
gramm »BKS.WHAT« (Usttng 2). Wie Sie vielleicht schon be- 

Referenzliste 


merkt haben, gibt die Referenzliste, die das BKS erstellt, 
nicht besonders viel Auskunft über die Bedeutung von Feh¬ 
lern. Es wird immer nur ein Pauschaltext ausgegeben. Da¬ 
her gibt es dieses Zusatzprogramm, das die Liste kommen¬ 
tiert. Es wird wie folgt angewendet: Laden Sie wie oben be¬ 


schrieben das BKS, dann das zu testende Programm. Füh¬ 
ren Sie den Test durch, und lassen Sie sich die Referenz auf 
den Drucker (!) ausgeben. Danach laden Sie, ohne vorher 
den Computer auszuschalten, das Zusatzprogramm mit 
»LOAD "BKS.WHAT 5.0",8« und starten es mit RUN. 

Sofern vorher eine Auswertung mit dem BKS durchge¬ 
führt wurde, erscheint jetzt die Frage nach dem Datum und 
dem Namen des getesteten Basic-Programms. Alle ande¬ 
ren Angaben hat das BKS dem Kommentierprogramm be¬ 
reits übergeben (im »Common-Bereich«, siehe Speicher¬ 
belegung, Tabelle 2). Nach kurzer Zeit wird jetzt ein aus¬ 
führlicher Kommentar auf den Drucker ausgegeben, und 
zwar diesmal über die Sekundäradresse 7 (Groß-/Klein- 
schriftmodus). Darin enthalten ist eine kommentierte Liste 
ähnlich der oben abgedruckten, die Auskunft über die ge¬ 
naue Bedeutung der aufgetretenen Fehler gibt. Das Druck¬ 
programm wurde für MPS-Drucker geschrieben und ent¬ 
hält einige Steuercodes dieser Drucker. 

Ich wünsche Ihnen viel Erfolg mit dem BKS! 

(Nikolaus Heusler/rs) 


Stelle 

Inhalt 


Stelle 

Inhalt 

0002-0003 

Temporär (u.a. Zeiger auf Programm) 


C25F 

Letztes Zeichen 

0334-0344 

Filename 


C260-C27D 

Tokentabellen 

C000-CCDD 

Programm »BKS« 


C27E-C2C1 

Texte der Fehler 

C000-C002 

Sprung nach $C687 (Anfang) 


C2C2-C2F9 

Zeiger auf diese Texte 

C003-C239 

Verschiedene Texte (gepackt) 


C2FA-C315 

Härtecodes der Fehler (ASCII) 

C23A-C23B 

Nummer der gesuchten Basic-Zeile für $C37C 


C316-C37B 

Vorspann für erzeugtes Basic-Programm 

C23C 

C23D 

Flag 

Flag: Anführungszeichenmodus 


C37C-CCDD 

100% Maschinenprogramm 

Interessante Routinen: 

C23E 

Flag: REM 


C37C 

Sucht die Zeile (X/Y) 

C23F-C240 

Nummer der aktuellen Zelle 


C4DE 

Entschlüsselt Text ab (A/Y) und gibt ihn aus 

C241 

Position in dieser Zeile 


C562 

Holt nächstes Zeichen aus Basic-Text 

C242 

Nummer des Fehlers 


C56F 

Holt Parameter 

C243-C246 

Integerzahlen für Multiplikation mit 10 



Holt Tasten J/N 

C247 

Aktuelles Token 


Anfang des Hauptprogramms 

C248 

Aktuelle Zeigerposition 


C6D9 

Schleife: Neue Basic-Zeile 

C249 

Anzahl der Klammerebenen 


C710 

Hauptschleife: Nächstes Zeichen 

C24A 

Anzahl der Ziffern hinter Sprungbefehl 


C77A 

Nächstes Zeichen 

C24B 

Flag: THEN 


CA0D 

REM-Routine 

C24C 

Flag: ON 


CA19 

Unterroutinen zu $CACE 

C24D 

Geräteadresse für Ausgabe (3, 4, 8) 


CACE 

Gibt Fehlermeldung Nr. X aus 

C24E 

Low-Byte der Anzahl der leichten Fehler 


CBE0 

fertig 

C24F 

Low-Byte der Anzahl der schweren Fehler 


CC5D 

Holt Zahl hinter Sprungbefehl 

C250 

Hlgh-Byte der Anzahl der leichten Fehler 


CEOO-CEFF 

Puffer für Listroutine 

C251 

C252 

High-Byte der Anzahl der schweren Fehler 

Flag: DATA 


CFOO-CFFF 

»Common-Bereich« (hier werden die Ergeb¬ 
nisse des BKS an »BKS.WHAT« übergeben) 

C253 

Letzter Zustand von $C252 


CF00-CF04 

Erkennungstext »NSS88« 

C254 

Sekundäradresse für Ausgabe 


CF05 

Versionsnummer primär (=9) 

C255 

Hochkommaflag für Listroutine 


CF06 

Versionsnummer Sekundär (=0) 

C256 

Flag: Basic-Zeilen listen 


CF07 

Flag: Fehler Nr. 2 ausgekoppelt (0=»ja«) 

C257 

Pointer für Listroutine 


CF08 

Flag: Fehler Nr. 8 ausgekoppelt (0=»ja«j 

C258 

C259-C25A 

»First«-Zeiger 

Letzte Fehlerzellennummer 


CF09 

Identifikationsbyte (123 = BKS läuft, 222 = 

BKS fertig) 

C25B 

Temporär 


CFOA 

Flag: Fehler Nr. 7/17 ausgekoppelt (0=»ja«) 

C25C 

Wie $C248 


CFOB 

Flag: Fehler Nr. 12-14 ausgekoppelt (0=»ja«) 

C25D 

C25E 

Flag; ON/Hochkomma 

Wie $C248 


CF0C-CF27 

Tabelle aller 28 Fehler (1 »»tritt auf«) 


Tabelle 2. Speicherbelegung des BKS (Version 5.0, hexadezimal) 


Name 

bks 5 

0 

49152) 

cOOO ccde 

c 060 

45 

4e 

20 

53 

49 

45 

20 

45 

09 

cOdO 

46 

45 48 

4c 

45 52 

20 

4e 

58 











c068 

52 

53 

54 

20 

45 

49 

4e 

20 

95 

c0d8 

52 

2e 20 

03 

20 49 

4e 

20 

70 

cOOO 

4c 

87 

c6 

la 

93 

8e 

08 

05 

dd 

c070 

20 

42 

41 

53 

49 

43 

2d 

50 

70 

cOeO 

5a 

45 49 

4c 

45 20 

03 

55 

c5 

c008 

04 

12 

19 

2d 

20 

42 

4l 

53 

cl 

c078 

52 

4f 

47 

52 

41 

4d 

4d 

49 

d4 

c0e8 

45 

42 45 

52 

46 4c 

55 

45 

91 

cOlO 

49 

43 

20 

2d 

20 

4b 

4f 

4e 

df 

c080 

4e 

20 

20 

44 

45 

4e 

20 

53 

5d 

cOfO 

53 

53 49 

47 

45 20 

53 

50 

6b 

c018 

54 

52 

4f 

4c 

4c 

20 

2d 

20 

ad 

c088 

50 

45 

49 

43 

48 

45 

52 

2e 

8a 

c0f8 

4l 

43 45 

53 

20 4c 

49 

53 

c7 

c020 

53 

59 

53 

54 

45 

4d 

20 

56 

6b 

c090 

20 

20 

44 

41 

4e 

4e 

20 

4b 

68 

clOO 

54 

45 4e 

03 

la la 

46 

45 

01 

c028 

35 

2e 

30 

19 

Oa 

20 

19 

le 

e6 

c098 

4f 

45 

4e 

4e 

45 

4e 

20 

53 

d5 

cl08 

48 

4c 45 

52 

20 23 

20 

38 

le 

c030 

a3 

19 

Oa 

20 

56 

4f 

4e 

20 

40 

cOaO 

49 

45 

20 

20 

44 

49 

45 

54 

e4 

cllO 

20 

28 47 

4f 

54 4f 

20 

2d 

9b 

c038 

4e 

2e 

48 

45 

55 

53 

4c 

45 

04 

c0a8 

45 

53 

54 

52 

4f 

55 

54 

49 

7a 



Das »E 






c040 

52 

20 

2f 

20 

28 

43 

29 

20 

f4 

cObO 

4e 

45 

20 

4d 

49 

54 

20 

53 

bl 

Listing 1. 

JKb« ist eine 



c048 

4e 

53 

53 

20 

31 

37 

31 

30 

Ob 

c0b8 

59 

53 

20 

34 

39 

31 

35 

32 

aO 

Prufroutine für Basic-Programme. 

c050 

38 

37 

19 

2d 

20 

la 

03 

42 

73 

cOcO 

20 

53 

54 

4l 

52 

54 

45 

4e 

41 

Bitte 

mit dem MSE 

(Seite 

159) 


c058 

49 

54 

54 

45 

20 

4c 

41 

44 

7b 

c0c8 

2e 

la 

03 

4c 

4f 

cl 

22 

la 

Od 

eingeben 
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TOOLS: PROGRAMMIEREN 


C 64 


0 II 8 : 3e 20 52 45 4d 29 20 4c db 

cl20 : 49 53 54 45 4e 03 20 3f cd 

cl28 : 20 3o 4a 2f 4e 3e 19 05 24 

cl30 : 9d 03 la la 41 55 53 47 b3 

cl38 : 4l 42 45 20 4l 55 46 20 08 

cl40 : 12 53 92 43 48 49 52 4d bc 

cl48 : 2c 20 12 44 92 52 55 43 29 

cl50 : 4b 45 52 2c 20 12 46 92 29 

ol58 : 4c 4f 50 50 59 20 3f 20 3e 

cl60 : 03 la 46 49 4c 45 4e 4l d6 

cl68 : 4d 45 20 3f 20 03 44 4f 12 

cl70 : 43 2e 2c 50 2c 57 19 04 c9 

cl78 : 20 3d 3d 3d 3d 20 45 4e b4 

cl80 : 44 45 20 3d 3d 3d 3d 03 cf 

cl88 : 19 04 20 4c 45 49 43 48 71 

cl90 : 54 45 20 46 45 48 4c 45 aa 

cl98 : 52 3a 20 03 19 04 20 53 49 

claO : 43 48 57 45 52 45 20 46 e2 

cla8 : 45 48 4c 45 52 3a 20 03 4b 

clbO : la la 46 4l 4c 53 43 48 8e 

clb8 : 45 20 5a 45 49 4c 45 4e f5 

clcO : 20 4l 55 43 48 20 4c 49 88 

clc8 : 53 54 45 4e 03 la la 42 4e 

cldO : 4l 53 49 43 2d 4b 4f 4e 7d 

cld8 : 54 52 4f 4c 4c 2d 53 59 el 

cleO : 53 54 45 4d 20 56 35 2e 3e 

cle8 : 30 20 28 43 29 20 4e 53 Oe 

clfO : 53 38 37 2f 38 38 la la f5 

clf8 : 03 4e 53 53 38 38 la la 43 

c200 : 46 45 48 4c 45 52 20 23 32 

c208 : 31 37 20 55.4e 44 20 23 55 
c210 : 37 20 4c 49 53 54 45 4e ld 

c 218 : 03 la la 46 45 48 4c 45 ca 

c220 : 52 20 23 31 32 2c 20 23 bd 

c228 : 31 33 20 55 4e 44 20 23 73 

c230 : 31 34 20 4c 49 53 54 45 18 

c238 : 4e 03 00 00 00 00 00 00 08 

c240 : 00 00 00 00 00 00 00 00 41 

c248 : 00 00 00 00 00 00 00 00 49 

c250 : 00 00 00 00 00 00 00 00 51 

c258 : 00 00 00 00 00 00 00 00 59 

c260 : 80 89 8a 8e 90 9a 9b a2 ab 

c268 : 89 8a 8d 9b a7 81 85 86 b7 

c270 : 87 88 8b 91 92 94 96 97 a8 

c278 : 98 9d 9e 9f aO al 46 4f 49 

c280 : 52 4d 4l 54 46 45 48 4c 9c 

c288 : 45 52 03 53 50 52 55 4e ab 

c290 : 47 46 45 48 4c 45 52 03 93 

c298 : 55 4e 45 52 4c 4l 55 42 59 

c2a0 : 54 45 52 20 42 45 46 45 21 

c2a8 : 48 4c 03 55 45 42 45 52 a2 

o 2 b 0 : 46 4c 55 45 53 53 49 47 9e 

c2b8 : 45 52 20 42 45 46 45 48 a3 

c2c0 : 4c 03 7e c2 7e c2 8b c2 37 

c2c8 : 8b c2 8b c2 7e c2 8b c2 al 

c2d0 : 8b c2 7e c2 8b c2 98 c2 6b 

c2d8 : 98 o2 98 c2 ab c2 7e c2 aO 

c2eO : 7e c2 ab c2 7e c2 98 o2 e8 

c2e8 : ab c2 7e c2 98 c2 7e c2 Ob 

c2f0 : 7e c2 7e c2 7e c2 7e c2 45 

c2f8 : 7e o2 31 31 32 32 32 32 2c 

c300 : 31 31 32 32 32 31 31 31 71 

c308 : 31 32 31 32 32 31 32 31 bd 

c310 : 32 32 32 32 32 31 Oc 08 lb 

c318 : 00 00 00 3a 3a 3a 3a 9b f5 

c320 : 00 30 08 00 00 22 Od 91 a3 

c328 : 91 54 45 53 54 45 52 47 e6 

c330 ; 45 42 4e 49 53 3a Od 2d e9 

c338 : 2d 2d 2d 2d 2d 2d 2d 2d 38 

c 340 : 2d 2d 2d Od Od 28 43 29 62 

c 348 : 52 45 4l 54 45 44 20 42 93 

c350 : 59 Od 12 4e 53 53 20 42 53 

c358 : 41 53 49 43 2d 4b 4f 4e 05 

c360 : 54 52 4f 4c 4c 2d 53 59 69 

c368 : 53 54 45 4d 20 56 35 2e c6 


c370 : 30 20 4e 48 32 31 31 30 lf 

c378 : 38 37 20 00 a5 02 48 a5 2b 

c380 : 03 48 8e 3a c2 8c 3b c2 95 

c388 : a5 2b a4 2c 85 02 84 03 f2 

c390 : aO 01 a2 01 bl 02 fO 3f e7 

c398 : 18 a9 02 65 02 85 02 90 28 

c3aO : 02 e6 03 aO 00 bl 02 cd lb 

c3a8 : 3a c2 dO 08 c8 bl 02 cd 36 

o3bO : 3b c2 fO 42 aO 01 c8 fO e8 

c3b8 : 19 bl 02 dO f9 cO 02 dO 94 

c3oO : 04 aO 06 dO fl c8 98 18 a8 
c3c8 : 65 02 85 02 90 c2 e6 03 91 
c3d0 : dO be a2 02 2c a2 03 8e e9 

c3d8 : 3c c2 68 85 03 68 85 02 ce 

o3e0 : ad 3a c2 od 3f o2 dO Od 7c 

o3e8 : ad 3b c2 cd 40 c2 dO 05 04 

o3f0 : a9 05 8 d 3c c2 60 08 bl bc 
c3f8 : 02 a 2 04 c9 8 f fO d 8 c9 fd 
c400 : 3a fO Od a 2 07 dd 60 c2 bO 
c408 : fO ob oa 10 f 8 e 8 fO c7 bd 
c4lO : c 8 fO c4 bl 02 fO cO c9 f 6 
c4l8 : 20 fO f5 dO de c9 8 b dO 34 
c420 : 03 ee 4b e2 c9 ae dO Ob 31 
c428 : 98 48 a2 16 20 ce ca 68 c4 
c430 : a 8 a9 ae c9 83 dO 03 ee 3a 
c438 : 52 c 2 c9 a7 dO 10 ae 4b 31 
c440 : c 2 dO Ob 98 48 a2 lb 20 86 
c448 : ce ca 68 a 8 a9 a7 60 a2 49 
c450 : 02 4c c9 ff 20 d2 ff 2c de 
c458 : a9 00 4c d2 ff ad 3f c2 5f 
c460 : 8d 59 c2 ad 40 c2 8d 5a 05 
c468 : c2 c8 bl 02 8d 3f c2 c8 aa 
c470 : bl 02 8d 40 c2 ad 58 c2 Oe 
c478 : dO 05 ee 58 c2 dO la ad 08 
c480 : 5a c2 cd 40 c2 90 12 dO 51 
c488 : 08 ad 59 c2 cd 3f c2 90 18 
c490 : 08 a2 18 2 Cc ^ 19 4e .. 37 
c498 : ca aO 03 c8 fO 04 bl 02 86 
c4aO : dO f9 cO 04 fO f5 c8 98 30 
c4a8 : 18 65 02 8d 5b c2 a5 03 Od 
c4bO : 69 00 aO 01 dl 02 dO de 8c 
c4b8 : 88 ad 5b c2 dl 02 dO d4 60 
c4c0 : 60 ad 4l c 2 48 20 62 c5 3a 
c4c8 : c9 3a fO f9 c9 8f fO 09 18 
c4d0 : c9 83 fO 05 a2 14 20 ce 20 
c4d8 : ca 68 8d 4l c2 60 aa a5 87 
c4e0 : 02 48 a5 03 48 86 02 84 9a 
c4e8 : 03 aO 00 bl 02 fO 33 c9 7a 
c4f0 : 03 fO 2f c9 la dO 02 a9 f4 
c4f8 : Od c9 19 dO la c8 bl 02 fd 
c500 : aa c8 bl 02 20 d2 ff ca e9 
c508 : dO fa 18 a9 03 65 02 85 ff 

c510 : 02 90 d6 e6 03 dO d2 20 2f 

c518 : d2 ff e6 02 dO ob e6 03 fl 

C520 : dO c7 68 85 03 68 85 02 2c 

c528 : 60 48 ad 43 c2 Oa 8d 45 bd 

c530 : c2 ad 44 c2 2a bO 28 8d 16 

c538 : 46 c2 a2 03 Oe 43 c2 2e 4b 

c 540 : 44 c2 bO lb ca dO f5 ad db 

c548 : 43 c2 18 6d 45 o2 8d 43 c7 

c550 : c2 ad 44 c2 6d 46 c2 bO c8 

c558 : 06 8d 44 c2 68 18 60 68 28 

c560 : 38 60 ee 4l c2 ac 41 c2 c8 

c568 :_bl 02 c9 20 fO f4 60 a9 lc 
c570 :'e7 aO cO 20 de c4 a9 00 96 
c578 : 8d 54 c2 20 84 c5 8e 07 a3 

c580 : cf 4o 50 c6 a9 26 aO cl 34 

c588 : 20 de c4 20 e4 ff a2 00 25 

c590 : c9 4e fO 06 c9 4a dO f3 97 

0598 : a2 01 20 d2 ff aO 03 20 6e 

c5aO : 3f ab 88 10 fa 60 a9 32 97 

c5a8 : aO cl 20 de c4 20 e4 ff ee 

c5bO : c9 53 fO Oe c9 46 fO 07 cl 

c5b8 : c9 44 dO fl a2 04 2c a2 56 

c5cO : 08 2c a2 03 8e 4d c2 20 86 


c5c8 

: d2 ff 2C 

i d7 aa 

. eO 08 dO 

10 

c5dO 

: 3c a9 61 

. aO cl 

. 20 de c4 

6f 

c5d8 

: a2 04 86 

i c6 8e 

54 c2 bd 

09 

c5e0 

: 6e cl 9d 

77 02 

ca 10 f7 

2c 

c5e8 

: a2 00 20 

cf ff 

1 c9 Od fO 

fl 

c5fO 

: 08 9d 34 

03 e8 

eO 10 90 

2b 

c5f8 

: fl aO 00 

b9 72 

el 9d 34 

85 

c600 

: 03 e8 c8 

cO 04 

90 f4 8a 

6f 

c608 

: a2 34 aO 

03 2c 

a9 00 20 

9d 

c6l0 

: bd ff ae 

4d c2 

a9 02 ac 

fd 

c6l8 

: 54 c2 20 

ba ff 

20 cO ff 

31 

c620 

: 20 4f c4 

ae 4d 

c2 eO 08 

6d 

c628 

: dO 19 a9 

01 20 

d2 ff a9 

fb 

c630 

: 08 20 d2 

ff a2 

00 bd 16 

4a 

c638 

: c3 20 d2 

ff e8 

eO 66 90 

10 

c640 

: f5 bO 07 

a9 cd 

aO cl 20 

ad 

c648 

: de c4 20 

cc ff 

4c d7 aa 

41 

c650 

: a9 04 aO 

cl 20 

de c4 20 

a8 

c658 

: 84 c5 8e 

08 cf 

a9 fe aO 

eb 

c 660 

: cl 20 de 

c4 20 

84 c5 8e 

de 

c668 

: Oa cf a9 

19 aO 

c2 20 de 

46 

c670 

: c4 20 84 

c5 8e 

Ob cf a9 

f2 

c678 

: bO aO cl 

20 de 

c4 20 84 

8a 

c680 

: c5 8e 56 

c2 4c 

a6 c5 20 

cc 

c688 

: 81 ff a9 

03 aO 

cO 20 de 

22 

c690 

: o4 20 aO 

cc a9 

06 8d 20 

67 

c698 

: dO 8d 21 

dO aO 

01 bl 2b 

cO 

c6a0 

: dO 14 a2 

04 86 

c6 bd cb 

dl 

c6a8 

: cO 9d 77 

02 ca 

10 f7 a9 

b5 

c6bO 

: 57 aO cO 

4c de 

c4 a9 02 

dO 

c6b8 

: 20 c3 ff 

20 6f 

c5 a5 2b 

dO 

c6c0 

: 85 02 a5 

2c 85 

03 a9 00 

4c 

c6c8 

: a2 03 9d 

4e c2 

ca 10 fa 

d6 

c6d0 

: 8d 49 c2 

8e 03 

ce 8d 58 

12 

c6d8 . 

: c2 ee 20 

dO ad 

49 c2 fO 

46 

c6eO : 

: Oa ad 52 

c2 dO 

05 a2 15 

98 

c6e8 : 

: 20 ce ca 

aO 01 

bl 02 dO 

7d 

c6f0 : 

: 03 4c eO 

cb 20 

5d c4 a9 

le 

c6f8 : 

: 00 8d 4b 

c2 8d 

3d c2 8d 

d3 

c700 : 

: 3e c2 8d 

49 c2 

8d 4c c2 

7b 

c708 : 

: 8d 52 c2 

a9 04 

8d 41 c2 

db 

c710 : 

: ac 4l c2 

bl 02 

dO la cO 

d4 

c718 : 

: 04 dO 09 

a2 01 

20 ce ca 

fd 

c720 : 

a9 09 dO 

e9 c8 

98 18 65 

3c 

c728 : 

02 85 02 

90 ac 

e6 03 dO 

2f 

c730 : 

a8 c9 22 

dO 10 

ad 3d c2 

48 

c738 : 

49 ff 8d 

3d c2 

4c 7a c7 

94 

c740 : 

a 2 09 4c 

e7 c7 

ae 3d c2 

e3 

c748 : 

dO 30 ae 

3e c2 

dO 33 o9 

b7 

c750 : 

a2 dO 04 

a2 Od 

dO 20 c9 

lb 

c758 : 

9a dO 04 

a2 Ob 

dO 18 c9 

db 

c760 : 

20 dO Oe 

a2 02 

ad 07 cf 

Oa 

c768 : 

fO 10 ad 

52 c2 

dO Ob fO 

d7 

c770 : 

06 c9 90 

dO 10 

a2 Oc 20 

20 

c778 : 

ce ca ee 

41 c2 

fO cl 4c 

e2 

c780 : 

10 c7 4c 

Od ca 

c9 8f dO 

03 

c788 : 

le ee 3e 

c2 dO 

ec ad 47 

bf 

c790 : 

c2 c9 8a 

fO Oc 

c9 89 fO 

Of 

c798 : 

08 c9 9b 

fO 04 

c9 a7 dO 

59 

o7a0 : 

51 20 cl 

c4 4c 

f2 o7 20 

c6 

c7a8 : 

ld c4 a2 

04 dd 

68 c2 fO 

5e 

c7b0 : 

05 ca 10 

f8 30 

39 8d 47 

cf 

c7b8 : 

c2 20 5d 

oc ca 

fO cf ca 

84 

c7c0 : 

fO 30 ca 

fO Oa 

ad 5c c2 

9e 

c7c8 : 

8d 41 c2 

a2 04 

dO 18 c9 

b5 

c7d0 : 

fc dO 05 

ad 4c 

c2 dO la 

7e 

c7d8 : 

ad 5c c2 

8d 4l 

c2 a2 05 

d4 

c7e0 : 

ad 47 c2 

c9 a7 

fO 03 20 

69 

c7e8 : 

ce ca ac 

41 c2 

bl 02 4c 

c9 

c7f0 : 

67 c8 ae 

43 c2 

ac 44 c2 

f7 

c7f8 : 

cO fa bO 

c9 20 

7c c3 ad 

eb 

c800 : 

3c c2 fO 

16 c9 

01 dO 15 

ae 

c808 : 

a2 03 ad 

47 c2 

c9 9b fO 

4b 

c810 : 

09 c9 8a 

dO 38 

ad 4a c2 

5a 

c818 : 

dO 33 4c 

10 c7 

c9 02 dO 

Ob 
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TOOLS: PROGRAMMIEREN 


c820 

04 

a2 

06 

dO 

28 

c9 

05 

dO 

97 

c828 

16 

a2 

Oa 

ad 

5c 

c2 

8d 

4l 

5c 

c830 

c2 

ad 

4b 

c2 

dO 

b4 

ad 

47 

ec 

c838 

c2 

c9 

9b 

fO 

ad 

dO 

a8 

c9 

7b 

c840 

03 

dO 

12 

ae 

4c 

c2 

dO 

d2 

c9 

c848 

a2 

07 

2c 

a2 

08 

ad 

5c 

c2 

b2 

c850 

8d 

4l 

c2 

dO 

92 

ad 

47 

c2 

82 

c858 

o9 

9b 

fO 

be 

c9 

8a 

dO 

eb 

Of 

c860 

ad 

4a 

c2 

dO 

e6 

fO 

b3 

c9 

55 

c868 

88 

dO 

05 

a2 

Oe 

4c 

77 

c7 

9f 

c870 

o9 

ff 

fO 

14 

c9 

cc 

90 

04 

45 

o878 

a2 

10 

dO 

42 

c9 

80 

bO 

08 

12 

c880 

c9 

60 

bO 

f4 

c9 

20 

90 

fO 

06 

c888 

c9 

a7 

dO 

16 

ae 

41 

c2 

20 

5c 

c890 

62 

o5 

8e 

41 

c2 

c9 

89 

dO 

e3 

c898 

04 

a2 

11 

dO 

21 

ac 

4l 

c2 

4e 

c8a0 

bl 

02 

c9 

cb 

dO 

20 

ad 

41 

85 

c8a8 

c2 

8d 

48 

c2 

20 

62 

c5 

c9 

5b 

c8b0 

a4 

fO 

Oe 

a2 

13 

2c 

a2 

12 

e5 

c8b8 

ad 

48 

c2 

8d 

4l 

c2 

4c 

77 

36 

o8c0 

c7 

a9 

89 

4c 

b6 

c7 

c9 

cc 

b2 

c8c8 

bO 

2c 

c9 

80 

90 

28 

c9 

a3 

c9 

o8d0 

bO 

Oc 

a2 

10 

dd 

6d 

c2 

fO 

67 

c8d8 

05 

oa 

10 

f8 

30 

18 

ad 

4l 

62 

o8e0 

c2 

8d 

48 

c2 

20 

62 

c5 

c9 

93 

c8e8 

3a 

fO 

cb 

aa 

fO 

c8 

ac 

48 

7b 

o8f0 

c2 

8c 

41 

c2 

bl 

02 

c9 

28 

44 

c8f8 

dO 

03 

ee 

49 

c2 

c9 

29 

dO 

ef 

c900 

03 

ce 

49 

c2 

c9 

3a 

dO 

21 

09 

c908 

ae 

52 

c2 

8e 

53 

c2 

a2 

00 

38 

c910 

8e 

4c 

c2 

8e 

52 

c2 

ae 

49 

cf 

c918 

c2 

fO 

Oe 

a2 

00 

8e 

49 

c2 

49 

c920 

ae 

53 

c2 

dO 

04 

a2 

15 

dO 

8e 

c928 

95 

c9 

a6 

dO 

03 

ee 

49 

c2 

b8 

c930 

c9 

a3 

dO 

03 

ee 

49 

c2 

c9 

37 

o938 

91 

dO 

03 

ee 

4c 

c2 

c9 

99 

05 

c940 

dO 

la 

ad 

41 

c2 

8d 

48 

c2 

fO 

c948 

20 

62 

c5 

ac 

48 

c2 

8c 

41 

fO 

o950 

c2 

c9 

23 

dO 

04 

a2 

17 

dO 

2d 

c958 

ce 

4c 

7a 

c7 

c9 

91 

dO 

f9 

44 

c960 

a9 

00 

8d 

5d 

c2 

ad 

41 

c2 

3c 

c968 

8d 

5e 

c2 

20 

62 

c5 

aa 

dO 

7a 

c970 

Od 

a2 

la 

20 

ce 

ca 

ad 

5e 

10 

c978 

c2 

8d 

41 

c2 

dO 

db 

c9 

22 

01 

c980 

dO 

Ob 

ad 

5d 

c 2 

49 

ff 

8d 

7e 

c988 

5d 

c2 

4c 

6b 

c9 

ae 

5d 

c2 

d4 

c990 

dO 

d9 

c9 

3a 

fO 

db 

c9 

89 

2f 

c998 

fO 

04 

c9 

8d 

dO 

cd 

8d 

47 

ef 

c9a0 

c2 

20 

5d 

cc 

ca 

fO 

16 

ca 

85 

c9a8 

fO 

13 

ca 

fO 

04 

a2 

04 

dO 

fa 

o9bO 

06 

c9 

fc 

fO 

08 

a2 

05 

20 

e2 

c9b8 

oe 

ca 

4c 

f7 

c9 

8d 

5f 

o2 

09 


c9c0 

ae 

43 

c2 

ac 

44 

c2 

cO 

fa 

a9 

c9c8 

bO 

e3 

20 

7c 

c3 

ad 

3c 

c2 

22 

c9d0 

fO 

25 

c9 

01 

dO 

04 

a2 

03 

a3 

c9d8 

dO 

dd 

c9 

02 

ao 

04 

a2 

06 

Od 

c9e0 

dO 

d5 

c9 

05 

dO 

09 

a2 

Oa 

a2 

c9e8 

ad 

4b 

c2 

dO 

Oa 

!•() 

c8 

c9 

e4 

c9f0 

03 

fO 

04 

a2 

08 

dO 

oO 

ad 

26 

c9f8 

5f 

c2 

fO 

Oe 

c9 

fc 

fO 

al 

42 

caOO 

ad 

47 

c2 

c9 

8d 

fO 

03 

20 

e7 

ca08 

cl 

c4 

4c 

76 

c9 

c9 

cc 

dO 

cd 

calO 

05 

a2 

Of 

4c 

77 

c7 

4c 

7a 

90 

cal8 

c7' 

ae 

3f 

c2 

ad 

40 

c2 

20 

87 

ca20 

96 

ca 

a9 

3a 

20 

d2 

ff 

20 

a6 

ca28 

3f 

ab 

ae 

42 

c2 

a9 

00 

20 

ea 

ca30 

cl 

ca 

ad 

01 

01 

dO 

10 

ad 

14 

ca38 

00 

01 

8d 

01 

01 

a9 

00 

8d 

b5 

ca40 

02 

01 

a9 

20 

8d 

00 

01 

20 

4e 

ca48 

Oc 

bf 

20 

de 

c4 

a9 

5b 

20 

5f 

ca50 

d2 

ff 

ae 

42 

c2 

bd 

f9 

c2 

9d 

ca58 

20 

d2 

ff 

20 

89 

ca 

a9 

5d 

35 

ca60 

20 

d2 

ff 

20 

3f 

ab 

ae 

42 

7e 

ca68 

c2 

ca 

8a 

Oa 

aa 

bd 

c3 

c2 

aO 

ca70 

a8 

bd 

c2 

c2 

20 

de 

c4 

ae 

69 

ca78 

4d 

c2 

eO 

08 

fO 

03 

20 

d7 

b7 

ca80 

aa 

a9 

00 

20 

d2 

ff 

4c 

cc 

fb 

ca88 

ff 

38 

e9 

31 

aa 

fe 

4e 

c2 

a5 

ca90 

dO 

03 

fe 

50 

c2 

60 

20 

cl 

df 

ca98 

ca 

a2 

00 

bd 

00 

01 

fO 

03 

3d 

caaO 

e8 

dO 

f8 

eO 

05 

bO 

14 

aO 

b2 

caa8 

05 

bd 

00 

01 

99 

00 

01 

88 

5b 

cabO 

ca 

10 

f6 

a9 

20 

99 

00 

01 

46 

cab8 

88 

10 

fa 

20 

Oc 

bf 

4c 

de 

b9 

cacO 

c4 

85 

62 

86 

63 

a2 

90 

38 

ae 

cac8 

20 

49 

bc 

4c 

df 

bd 

eO 

08 

c5 

cadO 

dO 

06 

ad 

08 

cf 

dO 

01 

60 

58 

cad8 

eO 

07 

dO 

05 

ad 

Oa 

cf 

fO 

5d 

caeO 

Ü 

eO 

41 


.05, 


n«. 

cf 

2a 

cae8 


ed 

eO 

Oc 90 09 

to 

Of 

7b 

cafO 

bO 

05 

ad 

Ob 

cf 

fO 

eO 

a9 

4b 

caf8 

01 

9d 

Ob 

cf 

8e 

42 

c2 

20 

cb 

cbOO 

22 

cb 

20 

4f 

c4 

ae 

4d 

c2 

76 

cb08 

eO 

08 

dO 

03 

20 

12 

cb 

4c 

db 

cblO 

19 

ca 

a9 

01 

20 

54 

c4 

20 

11 

cbl8 

d2 

ff 

20 

58 

c4 

a9 

14 

4c 

7f 

cb20 

54 

c4 

ad 

56 

c2 

dO 

01 

60 

84 

cb28 

ad 

02 

ce 

cd 

3f 

c2 

dO 

09 

a3 

cb30 

ad 

03 

ce 

cd 

40 

c2 

dO 

01 

2b 

cb38 

60 

20 

4d 

cb 

aO 

ff 

c8 

fO 

84 

cb40 

07 

bl 

02 

99 

00 

ce 

dO 

f6 

7b 

cb48 

cO 

04 

90 

f2 

60 

ae 

03 

ce 

b2 

cb50 

e8 

dO 

01 

60 

20 

4f 

c4 

ad 

d8 

ob 58 

4d 

c2 

c9 

08 

dO 

26 

20 

12 

5d 


cb60 

cb 

20 

78 

cb 

aO 

03 

c8 

fO 

fa 

cb68 

09 

b9 

00 

ce 

20 

d2 

ff 

aa 

16 

cb70 

dO 

f4 

cO 

04 

90 

fO 

bO 

3a 

33 

cb78 

ae 

02 

ce 

ad 

03 

ce 

20 

96 

e5 

cb80 

ca 

4c 

3f 

ab 

20 

78 

cb 

aO 

ec 

cb88 

03 

8c 

55 

c2 

8c 

57 

c2 

a9 

61 

cb90 

00 

ac 

57 

c2 

29 

7f 

20 

d2 

c9 

cb98 

ff 

c9 

22 

dO 

08 

ad 

55 

c2 

e7 

cbaO 

49 

ff 

8d 

55 

c2 

c8 

b9 

00 

50 

cba8 

ce 

dO 

Oa 

cO 

04 

fO 

06 

20 

99 

cbbO 

d7 

aa 

4c 

cc 

ff 

aa 

10 

de 

de 

cbb8 

c9 

ff 

fO 

da 

2c 

55 

c2 

30 

fl 

cbcO 

d5 

38 

e9 

7f 

aa 

8c 

57 

c2 

Oe 

cbc8 

aO 

ff 

ca 

fO 

08 

c8 

b9 

9e 

23 

cbdO 

aO 

10 

fa 

30 

f5 

c8 

b9 

9e 

07 

cbd8 

aO 

30 

b6 

20 

d2 

ff 

90 

f5 

9d 

cbeO 

20 

c5 

cc 

ad 

21 

dO 

8d 

20 

db 

cbe8 

dO 

20 

f6 

cb 

a9 

de 

8d 

09 

d9 

cbfO 

cf 

a9 

02 

4c 

c3 

ff 

20 

4d 

f5 

cbf8 

cb 

20 

4f 

c4 

20 

41 

cc 

20 

bf 

ccOO 

3e 

cc 

a9 

76 

aO 

cl 

20 

de 

34 

cc08 

c4 

20 

3e 

cc 

20 

3e 

cc 

a9 

80 

cclO 

88 

aO 

cl 

20 

de 

c4 

ae 

4e 

c8 

ccl8 

c2 

ad 

50 

c2 

20 

cd 

bd 

20 

c5 

cc20 

3e 

cc 

a9 

9c 

aO 

cl 

20 

de 

19 

cc28 

c4 

ae 

4f 

c2 

ad 

51 

c2 

20 

20 

cc 30 

cd 

bd 

20 

3e 

cc 

20 

58 

c4 

64 

cc38 

20 

54 

c4 

4c 

cc 

ff 

20 

58 

3b 

cc40 

c4 

ae 

4d 

c2 

eO 

08 

fO 

03 

lf 

cc48 

4c 

d7 

aa 

a9 

01 

20 

54 

c4 

4c 

cc50 

a9 

02 

20 

d2 

ff 

20 

58 

c4 

49 

cc58 

a9 

14 

4c 

54 

c4 

a9 

00 

8d 

5e 

cc60 

43 

c2 

8d 

44 

c2 

8d 

4a 

c2 

37 

cc68 

ad 

41 

c2 

8d 

5c 

c2 

20 

62 

39 

cc70 

c5 

c9 

3a 

fO 

22 

aa 

fO 

22 

46 

cc78 

38 

e9 

30 

c9 

Oa 

bO 

le 

ee 

67 

cc80 

4a 

c2 

20 

29 

c5 

bO 

Od 

6d 

49 

cc88 

43 

c2 

8d 

43 

c2 

90 

d9 

ee 

ee 

cc90 

44 

c2 

dO 

d4 

a2 

04 

60 

a2 

15 

cc98 

01 

60 

a2 

02 

60 

a2 

03 

60 

9a 

ccaO 

a2 

04 

bd 

f9 

cl 

9d 

00 

cf 

9b 

cca8 

ca 

10 

f7 

a9 

05 

8d 

05 

cf 

le 

ccbO 

a9 

00 

8d 

06 

cf 

a9 

7b 

8d 

dl 

ccb8 

09 

cf 

a9 

00 

a2 

lb 

9d 

Oc 

a5 

cccO 

cf 

ca 

10 

fa 

60 

a5 

02 

18 

c3 

ccc8 

69 

02 

90 

02 

e6 

03 

c5 

2d 

8f 

ccdO 

dO 

07 

a5 

03 

c5 

2e 

dO 

01 

01 

ccd8 

60 

a2 

lc 

4c 

ce 

ca 

00 

00 

5d 


Listing 1. »BKS« (Schluß) 


0 AF=28:GBSUB 1000:REM VERSION 7 - BANZ ST 

ARK VERBESSERT <040> 

1 DIM A*(AF):GOSUB 200:DPEN 4,4: X*»" <CTRL- 

H>"i-CHR*(13>+" tCTRL-0> <002> 

2 PRINT(t4, 11 {CTRL—N>- 

-{CTRL—0>— <152 > 

3 PRINTW4,"{CTRL—NIBASIC KONTROLL SYSTEM<3 

SPACE TERKLAERUNBENCSPACE,CTRL-0 >V7 <119 > 

4 PRINT#4,"<CTRL-N>- 

-{CTRL-OJ— <154> 

5 PRINT#4,"OBIBE TABELLE BIBT AUSKUNFT UEB 

ER ALLE LEICHTEN UND SCHWEREN FEHLER, <012> 

6 PRINT#4,"DIE IM BETESTETEN BASIC-PROBRAM 

M AUFBETRETEN BIND. <233> 

7 PRINT#4:PRINT#4,"BASIC—PROBRAMMI12SPACE> 

: "N* <I77> 

B PRINT#4,"TESTDATUM{17SPACEJ: “Dt <119> 

9 PRINT#4,"VERSION DES TESTPROBRAMMES: "V* <070> 

10 PRINT#4:IF PEEK(52999)THEN 13 <151> 

11 PRINT#4,"DER FEHLER NR. 2 (UEBERFLUESSI 

GE LEERZEICHEN IM PROBRAMMTEXT) <004> 


12 PRINT«4,"WURDE NICHT BELISTET, DA ER ZU 

HAEUFIB AUFTRAT'. PRINT#4 <055> 

13 RQ$=" RUNTIME—KONSEQUENZEN“+X$ <166> 

14 GOSUB 100:PRINT#4,"ERKLAERUNB DER FEHLE 

R. < 212> 

15 PR I NT#4, " TtTTTTTTTtTTTTTTTTTTT" : PR I NT#4 

."BEISPIEL: <035> 

16 PRINT#4,"I2SPACEI2720: 17CH UEBERFLUES 

SIBER BEFEHL <022> 

17 PRINT#4,"I4SPACE > T{3SPACE> t C2SPACE> t <2S 

PACE>t"X*s <237> 

1B PRINT#4,"(4SPACE> —C3SPACE> —{2SPACE>-{2S 
PACEJi ART DES FEHLERS (PAUSCHALTEXT)"X 
$. <1B3> 


Listing 2. »BKS.WHAT« 

bringt Klarheit in die Fehlermeldungen des BKS. 
Bitte mit dem Checksummer (Seite 159) eingeben. 
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TOOLS: PROGRAMMIEREN 


19 PRINT#4,"£4SPACE» = £3SPACE»c:£2SPACE»;;"X* 

20 PRINT#4,"£4SPACE»c;<3SPACE} = <2SPACE».i FE 
HLERGRAD: 1 = LEICHTER FEHLER OHNE"RQ*; 

21 PRINTH4,"C4SPACE» = £3SPACE» = £16SPACE»2 = 

SCHWERER FEHLER, WIRD FEHLERMELDUNG)"X* 

> 

22 PRINT#4,"{4SPACE}—£3SPACE> —I20SPACE>VER 
URSACHEN"X*; 

23 PRINTW4,"(4SPACE>-(3SPACE >-"X*; 

24 PRINTW4,"C4SPACE>^C3SPACE}ä FEHLERCODEN 
UMMER (SIEHE UNTEN)"X*; 

25 PRINT#4,"I4SPACE >^"X *; 

26 PRINT#4,"£4SPACE»& BASIC PROBRAMMZEILEN 
NUMMER 

27 PRINT#4 

2S PRINT«4,"VERZEICHNIS DER VORKOMMENDEN F 
EHLERCODES MIT BEDEUTUNG: 

30 PR INTM4, " TrrHTT'iTT'iTr’T'i'T'i'i’r’rTi'T’ri’i'r't'fT 
TiTl'i't'i'r'i'T'iVi’i'T’i'T'iTiTiTT 
40 FOR 1=1 TO AF:IF PEEK(53003+1>=.THEN 60 
50 PRINT#4,A*(I> 

60 NEXT 

00 PRINT04:PRINTH4,"(C) NH-201187-ARR REV7 

99 CLOSE 4:END 

100 IF PEEK(53000)THEN 110 

101 PRINT44,"DER FEHLER NR. 8 (SPRUNG AUF 
REM- ODER TRENNZEILE) 

102 PRINT#4,"WURDE NICHT GELISTET, DA ER Z 
U HAEUFIG AUFTRAT. ":PRINTt)4 

110 IF PEEK(53002)THEN 120 

111 PRINTS4,"DIE FEHLER NR. 7 (GOTO -> STR 
UKTUR) UND NR. 17 (THEN GOTO) 

112 PRINT#4,"WURDEN NICHT GELISTET, DA SIE 

ZU HAEUFIG AUFTRATEN.":PRINT#4 

120 IF PEEK(53003)THEN 130 

121 PRINT#4,"DIE FEHLER NR. 12, 13 UND 14 
WURDEN NICHT GELISTET. 

122 PRINT#4 
130 RETURN 

200 FOR 1=1 TO AF: B$= 11 " 

202 READ A*:IF A*="@"THEN 210 

204 B*=B*+A$+CHR*<13):GOTO 202 

210 M (I)=LEFT*(B$,LEN(B$)—1>:NEXT:RETURN 

1000 FOR 1=52992 TO 52996:A*=A*+CHR*(PEEK( 


<215> 

<242> 


<051 > 

< 202 > 

< 192> 

< 005 > 
<054> 

< 212 > 

< 030 > 

< 120 > 

<093> 

< 002 > 

<215> 

<070> 

<029> 

<057> 

< 106> 

<099> 

< 145> 
<152> 

<231 > 

<237> 

< 196> 

<005> 

< 125> 
<10B> 
<013> 
< 122 > 
<249> 
<190> 


I)):NEXT:IF A*<>"NSS8B"THEN 1100 <160> 


2016 DATA 6 = EINE BASIC ZEILE IST LAENGER 

ALS 255 ZEICHEN,@ <102> 

2018 DATA"7 = EIN BOTO ODER THEN BEFEHL ZE 
IGT AUF EINEN BEFEHL WIE RETURN, GOTO 
, <144> 

2020 DATA"£4SPACE>END USW., DEN MAN AUCH E 
INFACH ANSTELLE DES SPRUNGBEFEHLES HA 


ETTE <029> 

2022 DATA"<4SPACE»SETZEN KOENNEN",® <080> 

2024 DATA B = EIN SPRUNGBEFEHL ZEIGT AUF E 
INE REM- ODER TRENNZEILE. DIES KANN Z 
U <246> 

2026 DATA"£4SPACE>PR0BLEMEN BEIM ABTIPPEN 
FUEHREN, WENN DIE ANGESPRUNGENE ZEILE 
WEB- <236> 

2028 DATA“C4SPACEIGELASSEN WIRD.",® <224> 

2030 DATA 9 = EINE BASIC ZEILE IST LAENGER 

ALS 255 ZEICHEN,® <140> 

2032 DATA 10= EIN SPRUNGBEFEHL ZEIGT AUF S 

ICH SELBST (Z.B. 10 GOTO 10),® <209> 

2034 DATA 11= DER BEFEHL CONT' DARF NICHT 

IM PROGRAMMTEXT VORKOMMEN,® <0B4> 

2036 DATA 12= DER BEFEHL 'STOP' SOLLTE NIC 

HT IM PROGRAMMTEXT VORKOMMEN,® <223> 

2038 DATA 13= DER BEFEHL NEW’ SOLLTE NICH 

T IM PROGRAMMTEXT VORKOMMEN,® <111> 

2040 DATA 14= DER BEFEHL LET’ SOLLTE NICH 

T IM PROGRAMMTEXT VORKOMMEN,® <115> 

2042 DATA 15= HINTER EINEM REM-BEFEHL STEH 

T EIN GESHIFTETES L (LISTSCHUTZ),® <22B> 

2044 DATA 16= EIN ILLEGALES TOKEN KOMMT IM 

PROGRAMMTEXT VOR,® <05B> 

2046 DATA"17= DER BEFEHL 'GOTO' SOLLTE NIC 

HT DIREKT HINTER 'THEN' STEHEN, EINER <068> 
2048 DATA"£4SPACE>VON BEIDEN GENUEGT",® <220> 
2050 DATA 18= HINTER EINEM BEFEHL FEHLT DE 

R PARAMETER,® <043> 

2052 DATA 19= HINTER GO FEHLT TO,® <036> 

2054 DATA"20= HINTER BOTO, RUN ETC. FOLGEN 

WEITERE BEFEHLE, DIE NIEMALS AUSGE— <079> 

2056 DATA"£4SPACE>FUEHRT WERDEN",® <219> 

2058 DAT.". 21= EINE ODER MEHRERE KLAMMERN Z 

ll VIEL ODER ZU WENIG,® <206> 

2060 DATA 22= DAS ZEICHEN 't* ZUR POTENZIE 

RUNG SOLLTE VERMIEDEN WERDEN,® <000> 

2062 DATA 23= DER BEFEHL 'PRINT#' WURDE MI 

T ?# ABGEKUERZT,® <079> 


1001 IF PEEK(53001)=123 THEN 1102 <230> 

1002 IF PEEK (53001 >0222 THEN 1100 <106> 

1003 FOR I=.TO AF-1:A=A+PEEK(1+53004):NEXT 

: IF A=.THEN 1104 <054> 

1004 INPUT"CCLR»DATUM£3SPACE»XX. XX. 19XX<12 

LEFTJ";D* <204> 

1005 INPUT"NAME PROGRAMM£3SPACE>X<3LEFT>"s 

N* <239> 

1006 V*=CHR*(4B+PEEK(52997)>+"."+CHR*(48+P 

EEK(52998)) <165> 

1007 IF V*O"5.0"THEN 1106 <166> 

1008 RETURN <04B> 

1100 PRINT"CCLR»BITTE ERSTELLEN SIE ERST E 

INE LISTE MIT DEM BKS (VERS. >= 5.0)" 

:END <008> 

1102 PRINT"£CLR>BITTE UNTERBRECHEN SIE DAS 

BKS PROGRAMM NICHT (":END <0B2> 

1104 PRINT”<CLR»DAS TESTPROGRAMM ENTHIELT 

KEINE FEHLER !":END <175> 

1106 PRINT"<CLR»FALSCHE VERSIONSNUMMER ! <100> 

2000 DATA 1 = DIREKT NACH DER ZEILENNUMMER 
FOLGT EIN NULLBYTE (DIES WIRD ZU LIB 
T- <09B> 

2002 DATA"£4SPACE>SCHUTZZWECKEN VERWENDET) 

",@ <146 > 

2004 DATA 2 = IM PROBRAMMTEXT KOMMT EIN UE 

BERFLUESSIGES LEERZEICHEN VOR,® <216> 

2006 DATA"3 = EIN THEN, GOTO, LIST ETC. BE 
FEHL ZEIGT AUF EINE NICHT EXISTIEREND 
E *■ <13B> 

200B DATA"£4SPACE>ZEILE",® <005> 

2010 DATA 4 = DIE ZEILENNUMMER ALS PARAMET 

, ER IST BROESSER ALB 63999,® <120> 

2012 DATA 5 = DIE ZEILENNUMMER ALS PARAMET 
ER ENTHAELT FALSCHE ZEICHEN (BEISPIEL 


2064 DATA 24= FALSCHE REIHENFOLGE DER BASI 

C—ZEILEN,@ <010> 

2066 DATA 25= EIN FALSCHER LINKPOINTER KOM 

MT VOR,® <196> 

2068 DATA 26= ON OHNE LEGALEN SPRUNGBEFEHL 

,@ <050> 

2070 DATA 27= THEN OHNE IF,® <037> 

2072 DATA 28= DER POINTER 45/46 ZEIGT NICH 

T GENAU AUF DAS ENDE DES BASIC-PRO- <161> 
2074 DATA"<4SPACE»GRAMMES",@ <252> 


2100 

: 




<044> 

2102 

REM 

ftftftftftftftftftftftftftftftftftftftftftft 

<127> 

2103 

REM 

ft 


ft 

<120> 

2104 

REM 

# 

FRAGEN ? 

ft 

< 166 > 

2106 

REM 

ft 

NIKOLAUS HEUSLER 

ft 

< 1B2> 

210B 

REM 

* 

ZWENGAUERWEG 18 

* 

< 118> 

2110 

REM 

M 

8000 MUENCHEN 71 

ft 

<254> 

2112 

REM 

ft 

TEL. 089/792940 

ft 

<241 > 

2114 

REM 

ft 


« 

< 131 > 

2116 

REM 

ft 

REVISED 151287 /NH 

ft 

<051 > 

2117 

REM 

ft 

REVISED 070188 /NH 

ft 

<237> 

211B 

REM 

ft 


ft 

< 135 > 

2120 

REM 

1» 

(C)OPYRIGHT 

# 

<254 > 

2122 

REM 

ft 

NIG SOFTWARE SER¬ 

ft 

<156' 

2123 

REM 

ft 

VICE (NSS), 

ft 

<054 > 

2124 

REM 

ft 

NH-201187-ARR 

ft 

< 138> 

2125 

RFM 

ft 


ft 

<142> 

2126 

REM 

* 

RELEASED FOR 64 ER 

ft 

<084) 

2127 

REM 

ft 

LELI-TEST (RS) 

ft 

< 153> 

2128 

REM 

ft 


ft 

< 145» 

2130 

REM 

# K ftftftftftftftftftftftftftftftft ftftftft 

<155> 


S- <124> 

2014 DATA"C4SPACEJWEISE GDTO 4+6)",® <0B3> 


Listing 2. »BKS.WHAT« (Schluß) 
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C64 


TOOLS: PROGRAMMIEREN 


E 


I twas, das auf größeren 
Rechnern wie dem Ami- 
Iga, Atari ST, auf PCs 
oder gar Großrechneranla¬ 
gen eine Selbstverständ¬ 
lichkeit ist, war auf dem C 64 
bisher nur begrenzt mög¬ 
lich: Eine »Hot Keys« Funk¬ 
tion, die sich alle seit dem 
Einschalten der Funktion 
eingegebenen Befehle 
merkt und sie auf Tasten¬ 
druck wieder ausgibt. So 
kann man bestimmte Befeh¬ 
le, die man im Verlaufe des 
Programmierens häufig benötigt, ohne umständliches Tip¬ 
pen abrufen. Hat man sich versehentlich einmal vertippt 
und bereits < RETURN > gedrückt, kann man den letzten 
eingegebenen Befehl durch Druck auf eine einzige Taste 
wieder abrufen und so leicht korrigieren. 

Mit dem 9 Blöcke kurzen Utility »Hot Keys« (Listing 1) wird 
so etwas auch auf dem C 64/C128 möglich. Dieses Maschi¬ 
nenprogramm speichert in einem 8 KByte großen Bereich 
sämtliche Befehle, die der Benutzer eingibt. Läuft der Be¬ 
reich über, wird der erste Befehl gelöscht und der Puffer 
aufgerückt. Das ist allerdings erst nach etwa 550 Befehlen 
durchschnittlicher Länge der Fall. So haben Sie immer die 
letzten 500 bis 600 Befehle auf Tastendruck abrufbar. Das 
Programm wird über Fenstertechnik (Windows) und Menüs 
gesteuert, so daß auch Einsteiger schnell damit umgehen 
können. In einem Optionsmenü können verschiedene Pa¬ 
rameter eingestellt und kontrolliert werden. 

in gewissen Grenzen kann man damit sogar mehrere Ba- 
sic-Programme gleichzeitig im Speicher halten und wieder 
abrufen. 

Laden Sie das Programm wie ein Basic-Programm mit 
»LOAD " N AME" ,8« und starten Sie es mit »RUN«. Der Ma¬ 
schinencode wird nun an die dafür vorgesehene Stelle im 
$C000-Bereich kopiert und gestartet, anschließend er¬ 
scheint eine Einschaltmeldung - das Programm ist nun ak¬ 
tiv. Jedesmal, wenn Sie nun im Direktmodus einen Befehl 
eingeben, wird dieser in einem Puffer unter dem Basic- 
RAM gespeichert. Sollte der Befehl nicht mehr hineinpas¬ 
sen, so wird der Puffer um die Länge des ersten enthalte¬ 
nen Befehles, der dabei natürlich verlorengeht, nach vorne 
gerückt. Über vier Funktionstasten, auf die das Programm 
nur im Direktmodus reagiert und nur dann, wenn der Puffer 
schon Befehle enthält, wird das Utility gesteuert: 

<F7>: Letzten Befehl abrufen 

Falls Sie nach dem Start der Routine bereits Befehle ein¬ 
gegeben haben, wird der zuletzt eingegebene Befehl wie¬ 
der ausgegeben (aber noch nicht ausgeführt). Dies wirkt, 
als ob Sie die entsprechenden Tasten noch einmal 
drücken. Den Befehl können Sie nun mit dem Bildschirm¬ 
editor des C64 behandeln, etwas ergänzen oder löschen. 
Mit < RETURN > senden Sie den Befehl wie gewohnt ab. 
Natürlich wird auch der neue Befehl wieder gespeichert. 

< F7 > zeigt ebenso wie alle anderen Steuertasten keine 
Reaktion, wenn Sie noch keinen Befehl eingegeben haben. 

<F8>: Letzten Befehl mit < RETURN > abrufen 

Führt den letzten eingegebenen Befehl aus. Der Unter¬ 
schied zur Funktion < F7> ist, daß am Ende des Befehles 
automatisch die < RETURN >-Taste betätigt wird. Diese 
Funktion sollten Sie also nur anwenden, wenn der letzte 
eingegebene Befehl korrekt war und erneut ausgeführt 
werden soll. So können Sie beispielsweise »PRINT #4« so 
oft zum Drucker schicken, bis das zu bedruckende Papier 


Tastatur 
mit Gedächtnis 


Nervt es Sie, wenn Sie den gleichen Befehl mehr¬ 
fach hintereinander mühsam eintippen müssen? 
Mit unserem Hilfsprogramm ist damit Schluß. Au¬ 
ßerdem können Sie nun zwei Basic-Programme 
gleichzeitig im Speicher des C64 unterbringen. 


die richtige Position erreicht 
hat. Falls Sie ein Programm 
unter dem gleichen Namen 
auf verschiedene Disketten 
speichern wollen, rufen Sie 
»SAVE "NAME",8« mehr¬ 
malsauf. Die Anzahl der An¬ 
wendungsmöglichkeiten 
dieses Befehls ist praktisch 
unbegrenzt. 


<F1 >: »Hot Keys« 

Während <F7> und 
<F8> nur jeweils den letz¬ 
ten Befehl ausgeben, er¬ 
scheint nach Druck auf < Fl > ein Fenster in der aktuellen 
Cursorfarbe auf dem Bildschirm, das eine Liste aller bisher 
eingegebenen Befehle in chronologischer Reihenfolge 
enthält. Auf dem ersten Befehl sehen Sie einen flimmern¬ 
den Cursor. Er kann mit den Tasten <CRSR-aufwärts> 
und <CRSR-abwärts> auf- und abbewegt werden. Paßt 
die Liste nicht komplett auf den Bildschirm, wird sie nach 
oben und unten gescrollt, wenn der Cursor das obere oder 
untere Ende erreicht. Er wird automatisch schneller, wenn 
Sie ihn längere Zeit bewegen. So können einzelne Befehle 
exakt angewählt und schnell durch die ganze Liste, die ja 
theoretisch weit über 500 Zeilen lang sein kann, gescrollt 
werden. Haben Sie mit dem Cursor den Befehl gefunden, 
den Sie noch einmal ausgeben lassen wollen, drücken Sie 
< RETURN >. Soll der Befehl auch gleich ausgeführt wer¬ 
den, drücken Sie <SHIFT RETURN>. Der Bildschirmin¬ 
halt unter dem Fenster wird nun wieder zurückgeholt, und 
der Befehl erscheint auf dem Schirm. 

Wenn Sie < Fl > nur versehentlich gedrückt haben, kön¬ 
nen C!: mit < RUN/STOP > die Funktion problemlos wie¬ 
der verlassen. 

Befehle, die zu lang sind, um in das Fenster zu passen, 
werden entsprechend abgeschnitten, sind aber noch in vol¬ 
ler Länge im Speicher vorhanden. Die Breite des Fensters 
kann im »Optionsmenü« (siehe unten) eingestellt werden. 

<F3>: Optionen 

Nach Druck auf diese Taste erscheint links oben ein Fen¬ 
ster, das »Optionsmenü«. In den unteren Zeilen gibt es Aus¬ 
kunft über den Speicherbereich, in dem die »Hot Keys« ge¬ 
speichert werden: Die Positionen im RAM, an denen er be¬ 
ginnt und endet, und wie viele Byte ungefähr noch frei sind. 
Da das Ende des Puffers nicht genau festgesetzt ist (es 
hängt von der Länge des letzten vor dem Überlauf eingege¬ 
benen Befehles ab), kann, der freie Platz nur abgeschätzt 
werden. Abweichungen bis 50 Byte sind möglich. Pro¬ 
grammtechnisch sind Fehler in der Abschätzung natürlich 
ausgeschlossen, es kann nicht passieren, daß der Puffer, 
dessen Ende etwa bei $BFFF liegt, in den $C000-Bereich 
hineinragt und das Maschinenprogramm zerstört. 

Außerdem zeigt das Optionsmenü auch noch an, wie vie¬ 
le Befehle der Puffer momentan enthält. 

Die oberen fünf Zeilen stellen das eigentliche Menü dar. 
Mit <CRSR-links> beziehungsweise <CRSR-rechts> 
verändern Sie im ersten und fünften Menüpunkt die Einstel¬ 
lungen, mit < RETURN > rufen Sie die drei verbleibenden 
Funktionen auf. 

Mit < RUN/STOP > wird das Optionsmenü verlassen. 

Die Menüpunkte im einzelnen: 

1. TAKE PROGRAM LINES (j/n) 

Gewöhnlich werden Basic-Programmzeilen, also Kom¬ 
mandozeilen, die mit einer Ziffer beginnen, nicht ge¬ 
speichert, da »Hot Keys« davon ausgeht, daß Sie diese 
später nicht mehr benötigen. Setzen Sie in diesem Me- 
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C64 


1 Adresse (hexadezimal) 

Inhalt 

00a6-00a7 

Zeiger auf Farb-RAM 

00a8-00a9 

temporär 

00b5-00b6 

Zeiger für Scrollen 

00l7-00fe 

temporär 

0200-0257 

Basic-Eingabepuffer 

aOOO-blff 

Speicher für Befehle (Trennzeichen: 
Nullbyte) 

c000-c7cd 

Maschinenprogramm »HOT KEYS« 

c000-c005 

Sprungtabelle 

c006-c06e 

Einschaltmeldung 

c06f-c093 

Kopfzeile für <F1 >-Window 

c094-c13e 

Texte für Options-Menü 

c13f-c140 

Schrelbhauptzelger In Befehlsspeicher 

C141-C142 

letzte Stellung des vorigen (für <F7>) 

C143-C144 

letzter IRQ Vektor 

C145 

Flag: Ausgabe in Tastaturpuffer 
angemeldet 

c146 

Flag: < RETURN > am Ende des 

Befehles 

C147 

letzte Taste für allgemeine Tastenabfrage 

C148 

Anzahl Befehle im Speicher 

C149 

Flag: Programmzeilen übernehmen 

c14a 

aktuelle Cursor-Position (Zeile) 

c14b 

Speicher für Y-Register 

c14c 

Flag: Befehl zur Ausgabe beendet 

c14d 

Länge des gerade ausgegebenen 

Befehls 

c14e 

Nummer des gewählten Befehls Im 
Speicher 

c14f-c150 

Verzögerungszähler für Tasten 

c151 

Verzögerungsstartwert 

c152 

letzte Taste für Fenster 

C153 

Cursorzeile im Fenster 

c154 

Nummer des Menüpunktes unter 
»Options« 

c155 

Breite des Fensters 

C156-C165 

Hex-Zahlen 

C166-C168 

Dezimalzahlen 

C169-C172 

Adressen der Menüpunkte 

c173-c7cd 

Hauptprogramm - 

Unterroutinen 

c173 

c25a 

Bankswitch-Routinen 

c 2 ae 

Fenster für < Fl > 

c451 

Unterroutinen 

C4b6 

Optionsmenü 

c515 

Selbstmodifizierung 

C550-C551 

Selbstmodifizierung 

C598 

Selbstmodifizierung 

c639 

Hauptprogramm 

c68c 

neuer IGET-Elnsprung 

c69c 

Eintrag in Speicher 

c735 

Neue IRQ-Routine 

c73d 

Eintrag in Tastaturpuffer 

c772 

Tastenabfrage 

c7cd 

letztes Byte des Programms 


Tabelle 1. Diese Speicherbelegung liegt nach dem Starten 
von »Hot Keys« vor 


nüpunkt den Parameter auf »j«, werden auch Pro¬ 
grammzeilen gespeichert. So können Sie zwei kurze 
Basic-Programme gleichzeitig im Speicher halten: Sie 
schalten die Option ein und geben das erste Programm 
ein. Es wird nicht nur im Basic-RAM gespeichert, son¬ 
dern auch im »Hot Keys«-Speicher. Nun können Sie 
dieses Programm mit NEW löschen und das zweite 
eingeben, das ebenfalls doppelt gespeichert wird. 
Brauchen Sie nun wieder das erste Programm, so lö¬ 
schen Sie den Basic-Speicher, drücken <F1>, su¬ 
chen die Programmzeilen des ersten Programmes und 
übernehmen sie. 

2. RESET 

Da der C64 serienmäßig keinen Reset-Taster einge¬ 
baut hat, wurde diese Funktion, die einen Reset aus¬ 
löst (ohne Sicherheitsabfrage), in das Optionsmenü 
eingebaut. Nach dem Reset kann »Hot Keys« mit »SYS 
49152« wieder gestartet werden. Dabei wird allerdings 
der Puffer für die Befehle gelöscht. 

3. QUIT 

Diese Funktion schaltet »Hot Keys« ab. Dies ist bei¬ 
spielsweise notwendig, wenn ein Programm geladen 
und gestartet werden soll, das den vom Utility belegten 
Bereich (siehe Speicherbelegung, Tabelle 1) benötigt 
oder den IRQ- beziehungsweise den IGET-Vektor für ei¬ 
gene Zwecke verändert. »Hot Keys« kann parallel zu ei¬ 
nem Utility betrieben werden, das auch den IRQ-Vektor 
verbiegt. Die Bedingungen hierfür sind, daß dieses an¬ 
dere Programm vor »Hot Keys« gestartet wird und nicht 
den von diesem belegten Bereich benötigt. Nach dem 
Beenden mit »QUIT« (Basic-Daten gehen nicht verloren) 
kann »Hot Keys« mit »SYS 49152« erneut gestartet wer¬ 
den, sofern das Maschinenprogramm noch vollständig 
im Speicher steht. Die Funktion »QUIT« kann auch mit 
»SYS '4“ 155« erfolgen. 

4. CLEAR MEMORY 

Diese Funktion wirkt wie »SYS 49152«: Der gesamte Be¬ 
fehlsspeicher wird gelöscht. Das Optionsmenü wird je¬ 
doch nicht verlassen. Vorsicht: Es erfolgt keine Sicher¬ 
heitsabfrage! 

5. FENSTERBREITE 

Die Breite des Fensters, das mit < Fl > angezeigt wird, 
kann von 1 bis 37 Zeichen stufenlos verändert werden 
(mit den Cursor-Tasten). Nach dem Start von »Hot Keys« 
ist der Wert 33 Zeichen eingestellt. Der momentane 
Wert wird neben dem Menüpunkt angezeigt. 

Sie werden überrascht sein, wie oft Sie die Funktionen 
von »Hot Keys« bei der Arbeit mit dem C64 benötigen wer¬ 
den. (Nikolaus Heusler/rs) 


Name 

: hot Keys 




0801 101 c 

0801 

: 15 

08 

c2 

07 

9e 

20 

32 

30 

cO 

0809 

: 37 

31 

2c 

48 

4f 

54 

20 

4b 

9c 

0811 

: 45 

59 

53 

00 

00 

00 

20 

fl 

3c 

0819 : 

: b7 

a9 

4e 

a2 

08 

85 

f7 

86 

26 

0821 : 

: f8 

aO 

00 

a9 

00 

a2 

cO 

85 

c2 

0829 : 

: f9 

86 

fa 

a5 

fa 

c9 

c7 

dO 

97 

0831 : 

: 09 

a5 

f9 

c9 

ce 

dO 

03 

4c 

de 

0839 : 

: 00 

cO 

bl 

f7 

91 

f9 

e6 

f7 

79 

0841 : 

: dO 

02 

e6 

f8 

e6 

f9 

d0 

02 

70 

0849 : 

: e6 

fa 

18 

90 

de 

4c 

39 

c6 

87 

0851 : 

: 20 

fb 

c5 

05 

a4 

a4 

a4 

a4 

CG 

0859 : 

a4 

a4 

a4 

a4 

a4 

a4 

a4 

a4 

58 

0861 : 

a4 

a4 

a4 

a4 

a4 

a4 

a4 

a4 

60 

0869 : 

a4 

a4 

a4 

a4 

Od 

12 

20 

20 - 

3f 


0871 

: 43 

42 

4d 

20 

36 

34 

3a 

20 

5b 

0879 

: 48 

4f 

54 

20 

4b 

45 

59 

53 

6d 

0881 . 

: 20 

31 

2e 

30 

20 

20 

Od 

12 

27 

0889 : 

: 50 

52 

47 

2e 

20 

42 

59 

20 

54 

0891 : 

: 4e 

49 

4b 

4f 

4c 

41 

55 

53 

Ob 

0899 : 

: 20 

48 

45 

55 

53 

4c 

45 

52 

2b 

08al : 

: Od 

12 

4e 

48 

2d 

30 

37 

30 

e6 

08a9 : 

: 34 

38 

38 

2d 

41 

52 

52- 

20 

dd 

08b 1 : 

: 20 

20 

20 

28 

43 

29 

20 

4e 

89 

08b9 : 

: 53 

53 

11 

00 

88 

8f 

94 

aO 

93 

08cl : 

8b 

85 

99 

93 

ba 

aO 

aO 

aO 

5c 

08c9 : 

aO 

aO 

aO 

aO 

96 

bl 

ae 

bO 

09 

08dl : 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

dO 

08d9 : 

a8 

83 

a9 

aO 

8e 

93 

93 

b8 

06 

08el : 

b8 

8f 

90 

94 

89 

8f 

8e 

93 

8e 

08e9 : 

ba 

aO 

aO 

aO 

aO 

8e 

93 

93 

23 


08 fl : 

: b8 

b8 

aO 

94 

81 

8b 

85 

aO 

8c 

08 f9 : 

: 90 

92 

87 

ad 

8c 

8e 

93 

ae 

53 

0901 : 

: aO 

aO 

aO 

aO 

92 

85 

93 

85 

de 

0909 : 

: 94 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

fc 

0911 : 

: aO 

aO 

aO 

aO 

aO 

93 

97 

89 

56 

0919 : 

: 94 

83 

88 

aO 

8f 

86 

86 

aO 

2d 

0921 : 

: aO 

aO 

aO 

aO 

aO 

aO 

83 

8c 

84 

0929 : 

85 

81 

92 

aO 

8d 

85 

8d 

8f 

82 

0931 : 

: 92 

99 

aO 

aO 

aO 

aO 

aO 

86 

6b 

0939 : 

85 

8e 

93 

94 

ae 

82 

92 

85 

dl 

0941 : 

89 

94 

85 

aO 

aO 

aO 

aO 

aO 

5d 

0949 : 

8d 

85 

8d 

8f 

92 

99 

ba 

aO 

10 

0951 : 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

50 

0959 : 

aO 

aO 

a4 

aO 

aO 

aO 

aO 

ad 

73 

0961 : 

a4 

aO 

aO 

aO 

aO 

aO 

aO 

aO 

64 

0969 : 

aO 

aO 

aO 

86 

92 

85 

85 

ba 

33 


92 
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0971 

: aO 

83 

81 

ae 

a4 

aO 

aO 

aO 

lc 

0979 

: aO 

aO 

aO 

93 

94 

81 

94 

85 

b7 

0981 

: 8d 

85 

8e 

94 

93 

ba 

aO 

aO 

da 

0989 

: aO 

aO 

aO 

00 

00 

00 

00 

00 

a2 

0991 

: 31 

ea 

00 

00 

00 

00 

00 

00 

38 

0999 

: 00 

00 

00 

00 

00 

00 

00 

00 

9a 

09a 1 

: 00 

00 

00 

bO 

bl 

b2 

b3 

b4 

aO 

09a9 

: b5 

b6 

b7 

b8 

b9 

81 

82 

83 

77 

09b 1 

: 84 

85 

86 

64 

Oa 

01 

d4 

c5 

ae 

09b9 

: dl 

o5 

fb 

c5 

ld 

c6 

df 

c5 

37 

09c 1 

: 08 

78 

ee 

45 

cl 

8d 

46 

cl 

8f 

09c9 

: 86 

f9 

84 

fa 

28 

a9 

04 

8d 

c7 

09dl 

: 05 

de 

60 

aO 

ff 

c8 

b9 

00 

9e 

09d9 

: 02 

fO 

f7 

c9 

20 

fO 

f6 

c9 

83 

09el 

: 30 

90 

ef 

c9 

3a 

bO 

04 

ad 

23 

09e9 

: 49 

cl 

60 

a9 

ff 

60 

aO 

00 

e6 

09fl 

: 84 

f7 

84 

fb 

ad 

88 

02 

85 

44 

09f9 

: f8 

a9 

eO 

85 

fc 

a2 

04 

bl 

07 

OaOl 

: f7 

91 

fb 

88 

dO 

f9 

e6 

f8 

3b 

0a09 

: e6 

fc 

ca 

dO 

f2 

a2 

04 

a9 

e2 

Oall 

: d8 

85 

f8 

bl 

f7 

91 

fb 

88 

2d 

0al9 

: dO 

f9 

e6 

f8 

e6 

fc 

ca 

dO 

e2 

0a21 

: f2 

60 

20 

5a 

c2 

aO 

00 

84 

dl 

0a29 

: f7 

84 

fb 

ad 

88 

02 

85 

f8 

b7 

0a31 

: a9 

eO 

85 

fc 

a2 

04 

bl 

fb 

54 

0a39 

: 91 

f7 

88 

dO 

f9 

e6 

f8 

e6 

8a 

0a4l 

: fc 

ca 

dO 

f2 

a2 

04 

a9 

d8 

d7 

0a49 

: 85 

f8 

bl 

fb 

91 

f7 

88 

dO 

d3 

0a51 

: f9 

e6 

f8 

e6 

fc 

ca 

dO 

f2 

27 

0a59 

: 4c 

5d 

c2 

a5 

fd 

85 

a6 

a5 

ab 

0a61 . 

: fe 

29 

03 

09 

d8 

85 

a7 

60 

ef 

0a69 ■ 

: a9 

40 

85 

cb 

ce 

4f 

cl 

dO 

ld 

0a71 : 

: f6 

ce 

50 

cl 

10 

fl 

ad 

51 

04 

0a79 : 

: cl 

8d 

50 

cl 

20 

87 

ea 

a5 

82 

0a81 : 

: cb 

cd 

52 

cl 

dO 

Ob 

ce 

51 

43 

0a89 ; 

: cl 

10 

de 

a9 

00 

8d 

51 

cl 

f4 

0a91 ; 

: 60 

8d 

52 

cl 

a9 

07 

8d 

51 

30 

0a99 : 

: cl 

60 

ac 

4b 

cl 

88 

c8 

bl 

06 

Oaal : 

: a8 

dO 

fb 

8c 

4d 

cl 

60 

a9 

f9 
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Llsting 1. »Hot Keys« erleichtert die 
Eingabe von häufig verwendeten 
Befehlen gewaltig. Bitte mit dem 
MSE (Seite 159) eingeben. 
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TOOLS: PROGRAMMIEREN 


C64 


Die Prüfung zweier Basic-Programme mit dem 
Befehl »VERIFY« endet bei Ungleichheit mit der 
aufschlußreichen Meldung »7VERIFY ERROR«. 
Wo liegen aber nun die Unterschiede, welche Pro¬ 
grammsegmente sind unterschiedlich? Eine 
komfortable Prüfroutine verschafft Ihnen den nö¬ 
tigen Durchblick. 

S tellen Sie sich einmal folgende Situation vor: Sie sind 
gerade dabei, aus dem 64’er-Sonderheft ein extrem 
langes Basic-Programm abzutippen. Natürlich spei¬ 
chern Sie es während des Eingebens zwischendurch ab, 
denn man kann ja nie wissen, ob die Stromrechnung schon 
bezahlt ist und man vielleicht innerhalb der nächsten fünf 
Minuten mit einem Stromausfall rechnen muß. Aber wenn 
Sie Ihre Arbeit für eine längere Pause unterbrochen haben 
und nun weiter abtippen wollen, welche der vielen abge¬ 
speicherten Versionen ist nun die aktuelle? 

Ein anderes Beispiel: Sie haben zwei Versionen eines 
Basic-Programms, und wollen wissen, wodurch diese sich 
unterscheiden. Besonders im zweiten Fall wäre es dem An¬ 
fänger klar, was er zu tun hat: Commodore hat den C64 ja 
mit einem Befehl namens »VERIFY« ausgestattet. Also pro¬ 
bieren wir’s. Die lapidare Meldung »7VERIFY ERROR« 
wird auf dem Bildschirm ausgegeben. Wo stecken aber 
nun die Unterschiede? 

Der Fortgeschrittene hat sicher schon ein Programm auf 
Lager, das beim »VERIFY« die unterschiedlichen Speicher¬ 
zellen anzeigt. Die Meldung könnte dann so aussehen: 
»VERIFY ERROR IN PEEK (8888)«. Zur Untersuchung des 
Fehlers ist nun ein Monitor zu laden. Wer im Umgang mit 
dem Monitor geübt ist, kann jetzt die entsprechenden 
Basic-Zeilen, die von den Unterschieden betroffen sind, 
heraussuchen. Ärgerlicher wird es, wenn einige Zeilen im 
einen Programm nicht nur unterschiedlich sind, sondern 
auch noch verschieden lang. Denn dann verschiebt sich 
der Rest des Programmes nach hinten. Selbst erfahrene 
Programmierer stehen in diesem Fall vor einem schwer lös¬ 
baren Rätsel. 


Des Rätsels Lösung 


Die genannten Probleme führten zur Entwicklung des 
»LINE-VERIFY 3.0« (Listing 1). Das Programm vergleicht 
zwei Basic-Programme Zeile für Zeile. Fehlt in einem der 
beiden Programme eine Zeile, wird dies erkannt und ange¬ 
zeigt. Bei unterschiedlichen Längen entstehen keine Ver¬ 
schiebungen, dies wird als »UNTERSCHIED« angezeigt 
(Bild 1). 

Laden Sie das Utility mit »LOAD"LINE-VERIFY 3.0",8« 
und starten Sie es. Eine Basic-Zeile startet die eingebaute 
Kopierroutine, die das Hilfsprogramm dann an seine 
»Runtime-Position« von $C000 bis $C8C8 verschiebt. Dies 
dauert nur Bruchteile von Sekunden, anschließend er¬ 
scheint die Einschaltmeldung mit Versionsnummer und 
Kurzanleitung. 

Laden Sie nun ganz normal das erste zu vergleichende 
Basic-Programm (»LOAD"Nane",8«). Starten Sie nun 
»LINE VERIFY« mit »SYS 49152«. (Übrigens: Mit »SYS 
49155« könnten Sie das Einschaltbild wieder abrufenl). 

Das Utility testet nun als erstes, ob sich ein Basic-Pro¬ 
gramm im Speicher befindet. Ist dies nicht der Fall, wird ei¬ 
ne entsprechende Meldung ausgegeben, und das Tool 
bricht die Arbeit ab. Andernfalls wird nun die Floppy initiali¬ 
siert. Ist ein Fehler aufgetreten (keine Disk), wird dieser 
ausgegeben und »LINE-VERIFY« beendet. Ist alles in Ord¬ 
nung, wird nun gefragt, ob Sie das Ergebnis auf einem 


Komfortables 



Drucker oder dem Bildschirm sehen wollen. 
Geben Sie < D > oder < B > ein. Zum Drucker: 
Angepaßt ist der MPS 803, der kompatibel zum 
MPS 801 ist. Da aber keine besonderen Sekun¬ 
däradressen oder Steuerzeichen verwendet 
werden (es wird per CMD einfach die Bild¬ 
schirm- auf die Druckerausgabe umgeleitet), 
dürften auch andere, beispielsweise Epson- 
Drucker keine Probleme bereiten. Haben Sie 
»Drucker« als Ausgabegerät angegeben, die¬ 
ser ist jedoch nicht angeschaltet oder gar nicht 
vorhanden, leitet das Programm die Ausgabe 
selbständig 1 auf den Bildschirm um. Geben Sie 
nun an, wie das erste Programm (das im Spei¬ 
cher) heißt. Der Name ist für die Arbeit des Pro¬ 
gramms bedeutungslos, dieser erscheint spä¬ 
ter lediglich in der Überschrift. Anders beim Na¬ 
men des zweiten Programmes: es wird beim 
Vergleichen unter diesem Namen von der Flop¬ 
py geladen. Sie können hier natürlich auch Jo¬ 
ker (*,?) einsetzen, aber das sieht dann, wenn 
dieser Name in der Überschrift erscheint, nicht 
besonders schön aus. Maximal 16 Buchstaben 
sind für beide Namen zulässig, die Eingabe 
wird mit < RETURN > abgeschlossen. 


Statistik gewünscht? 


Am Ende des Vergleichens besteht die Mög¬ 
lichkeit, sich eine Statistik ausgeben zu lassen, 
die beispielsweise über die Anzahl der glei¬ 
chen und fehlenden Zeilen Auskunft gibt. Dazu 
müssen Sie die Frage, die nun erscheint, mit 
<J> beantworten. Wollen Sie keine Statistik, 
ist entsprechend <N> einzugeben. 

Wenn Sie zwei Programme vergleichen, die zu großen 
Teilen identisch sind, wäre es störend, wenn das Utility bei 
jeder gleichen Zeile »GLEICH« ausgäbe. Daher können Sie 
durch Beantworten der entsprechenden Frage mit <N> 
veranlassen, daß in der Aufzählung nur die unterschiedli¬ 
chen und fehlenden Zeilen erscheinen. Sollen auch die 
identischen Zeilen ausgegeben werden, drücken Sie 
<J>. 

Das Programm fragt nun: »Richtig, Falsch oder Ende?«. 
Wenn Sie bei der Eingabe der Daten einen Fehler gemacht 
haben, drücken Sie <F> (Falsch), und Line-Verify startet 
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von vorne. Wenn alles in Ordnung ist, drücken Sie <R> 
(Richtig) und das Utility legt los. Wenn Sie erst jetzt feststel¬ 
len, daß Sie ja das völlig falsche Programm geladen haben, 
drücken Sie < E > (Ende). Das Programm bricht daraufhin 
vorzeitig ab. 

Nach der Eingabe von <R> wird versucht, eine Datei 
mit dem Namen des zweiten Programms zum Lesen zu öff¬ 
nen. Tritt ein Fehler auf (zum Beispiel »FILE NOT FOUND«), 
wird dieser ausgegeben und das Programm bricht ab. An¬ 
dernfalls wird ein Ausgabekanal auf das gewünschte Gerät 
(Bildschirm beziehungsweise Drucker) geöffnet und alle 
Ausgaben auf diesen umgeleitet. Im Folgenden wird auf die 
Bildschirmausgabe eingegangen. Die Ausgabe auf den 
Drucker ist dazu vollkommen identisch. 

Es erscheint nun eino Überschrift, bestehend aus den 
Namen der beiden Programme und deren Startadressen. 
Nach der Trennlinie beginnt das Vergleichen. Dazu wird 
Zeile für Zeile des zweiten Programmes gelesen und mit 
der aktuellen Zeile des Programms im Speicher verglichen. 
Identische Zeilen werden auf Wunsch (siehe oben) ausge- 


Inhalt 


Zwischenspeicher, Zeiger auf Text für 
STROUT 

Zwischenspeicher, Zeiger auf Programm 1 

LINE-VERIFY 

Sprung zum Start 

Ausgabe der Einschaltmeldung 

Einschaltmeldung 

Überschrift 

Sonstige Texte Anmerkung: Die Texte 
stehen hier alle in einem speziellen, 
platzsparenden Format 
Wert 4 oder 3 (Drucker/Bildschirm) 

Name Programm 1 
Space 

Name Programm 2 
Nullbyte 

Modus: Bit 1: Flag: Identische Zeilen 

ausgeben? Bit 2: Flag: Statistik ausgeben? 

Flag: PRG 1 beendet 

Zwischenspeicher für X- Register 

Aktuelle Zeilennr. PRG 2 

Aktuelle Zeilennr. PRG 1 

Anzahl Zeilen PRG 1 

Anzahl Zeilen PRG 2 

Anzahl fehlende Zeilen 

Anzahl Zeilen 

Anz. Identische Zellen 

Anzahl unterschiedliche Zellen 

Flag: PRG 2 beendet 

100% Maschinensprache 

Programmelgene STROUT- Routine 

eigene INIT-Routlnen 

weitere INIT-Routlnen 

Test, ob fehlende Zelle 

Hauptprogramm 

Hauptschleife: Vergleiche eine Zelle 
Statistik ausgeben 
letztes Byte 

Puffer: aktuelle Zelle von PRG 1 
Puffer: aktuelle Zeile von PRG 2 


Bild 1. So sieht ein 
Beispielausdruck 
nach der Überprüfung 
aus. Gleiche Zeilen 
wurden unterdrückt 
und die Ausgabe 
der Statistik gewählt. 

S46R Ol 


Tabelle 1. Die 
Speicheradressen, 
die von »Llne-Verify« 
genutzt werden als 
Hexadezimal- 
Adressen 


geben, unterschiedliche (dazu zählen auch solche mit un¬ 
terschiedlicher Länge) immer. Treten Unterschiede in der 
Zeilennummer auf, wird getestet, in welchem Programm ei¬ 
ne Zeile des anderen Programms fehlt (wenn die Zeilen¬ 
nummer von Programm 1 plötzlich größer ist als die von 
Programm 2, wurde in Programm 1 also offenbar eine des 
Programms 2 übersprungen, sie fehlt also) und dies ausge¬ 
geben (»FEHLT«). 

Sobald eines der beiden Programme beendet ist, wird 
geprüft, ob das andere Programm auch gerade beendet 
wurde. Ist dies der Fall, wird nun ausgegeben »BEIDE PRO- 


SPRACHENTW. SPRACH2 

(PROGRAMM 1) (PROGRAMM 2) 

ADR.:*0801 *0801 


3:FEHLT 

12: **** UNTERSCHIED **** 

30: **** UNTERSCHIED **** 

40: **** UNTERSCHIED **** 

55: **** UNTERSCHIED **** 

56: **** UNTERSCHIED **** 

299: **** UNTERSCHIED **** 

VORZEIT. ENDE 

ANZAHL GETESTETE ZEILEN . 37 

ANZAHL ZEILEN PROGRAMM 1 - 37< 

ANZAHL ZEILEN PROGRAMM 2 _ 37 

GLEICHE ZEILEN . 30 

UNTERSCHIEDE. ZEILEN . 6 

FEHLENDE ZEILEN . 1 


GRAMME BEENDET«, sonst erscheint in der Spalte des 
kürzeren Programms »PROGRAMM VORZEITIG BEEN¬ 
DET«. 


Ausführliche Auskunft 


Falls gewünscht (siehe oben), wird nun die Statistik aus¬ 
gegeben. Zunächst wird für jedes Programm die Anzahl 
der Zeilen ausgegeben, die es enthält. Erscheint hinter ei¬ 
ner dieser beiden Angaben ein Kleinerzeichen (<), so wur¬ 
de das andere Programm vorzeitig abgebrochen, das erste 
kann also durchaus noch mehr Zeilen als angegeben ha¬ 
ben. 

Die »ANZAHL DER GETESTETEN ZEILEN« gibt Aus¬ 
kunft darüber, wie viele Zeilen miteinander direkt vergli¬ 
chen wurden. Dann gibt »LINE-VERIFY« noch die Anzahl 
der gleichen, der unterschiedlichen und der fehlenden Zei¬ 
len an. Zum Schluß werden alle Kanäle geschlossen und 
das Prüfprogramm beendet. 

Für interessierte Leser zeigt Tabelle 1 eine Aufschlüsse¬ 
lung nach Speicherzellen (hexadezimal). 

(Nikolaus Heusler/rs) 
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Llsting 1. »LINE-VERIFY 3.0« prüft 
zwei Basic-Programme auf 
Identität. Bitte mit dem MSE 
(Seite 159) eingeben. 




SONDERHEFT 33 


95 






















TOOLS: PROGRAMMIEREN 


C64 


08b9 

cO 00 00 00 

20 

20 

20 

20 

3d 

ObOl 

3f 

20 

12 

03 

17 

49 

4d 

20 

67 

0d49 

c9 

la 

dO 

02 

a9 

Od 

c9 

19 

fO 

08cl 

20 20 20 20 

20 

20 

20 

20 

cl 

0b09 

53 

50 

45 

49 

43 

48 

45 

52 

2f 

Od51 

fO 

24 

e9 

17 

fO 

3c 

c9 

16 

ed 

08c9 

20 20 20 20 

20 

20 

20 

20 

c9 

Obll 

20 

3f 

la 

03 

17 

4l 

55 

46 

15 

Od59 

fO 

12 

20 

d2 

ff 

e6 

02 

dO 

96 

08dl 

20 20 20 20 

20 

20 

20 

20 

dl 

Ob 19 

20 

44 

49 

53 

4b 

45 

54 

54 

fl 

0d6l 

dd 

e6 

03 

dO 

d9 

68 

85 

03 

89 

08d9 

20 20 20 20 

20 

20 

20 

20 

d9 

0b21 

45 

20 

3f 

la 

03 

la 

la 

4e 

90 

0d69 

68 

85 

02 

60 

a9 

33 

aO 

c3 

5f 

08el 

20 20 20 20 

20 

20 

20 

20 

el 

0b29 

41 

4d 

45 

20 

44 

45 

53 

20 

62 

0d71 

20 

ef 

c3 

4c 

19 

c4 

c8 

bl 

4l 

08e9 

20 20 20 20 

20 

20 

20 

20 

e9 

0b31 

50 

52 

4f 

47 

52 

41 

4d 

4d 

66 

0d79 

02 

aa 

c8 

bl 

02 

20 

d2 

ff 

a5 

08fl 

20 20 20 20 

20 

20 

20 

20 

fl 

0b39 

45 

53 

20 

03 

11 

la 

19 

04 

df 

Od81 

ca 

dO 

fa 

a5 

02 

18 

69 

03 

b3 

08 f9 

20 20 20 20 

20 

20 

20 

20 

f9 

Ob4l 

20 

12 

52 

92 

49 

43 

48 

54 

ca 

0d89 

85 

02 

a5 

03 

69 

00 

85 

03 

8o 

0901 

20 20 20 20 

20 

20 

20 

20 

01 

0b49 

49 

47 

20 

2f 

20 

12 

46 

92 

f5 

0d91 

dO 

ac 

a9 

el 

aO 

Cl 

20 

ef 

d6 

0909 

20 20 00 00 

00 

20 

fl 

b7 

72 

Ob51 

4l 

4c 

53 

43 

48 

20 

2f 

20 

78 

0d99 

c3 

4c 

19 

c4 

a9 

f4 

aO 

cO 

a7 

0911 

a9 45 a2 09 

85 

f7 

86 

f8 

4b 

Ob 59 

12 

45 

92 

4e 

44 

45 

20 

3f 

ea 

Odal 

4c 

ef 

c3 

20 

81 

ff 

a9 

06 

a4 

0919 

aO 00 a9 00 

a2 

cO 

85 

f9 

5e 

0b6l 

la 

03 

49 

30 

19 

Oc 

20 

50 

68 

0da9 

8d 

21 

dO 

8d 

20 

dO 

60 

a9 

Oa 

0921 

86 fa a5 fa 

c9 

c8 

dO 

09 

25 

0b69 

20 

52 

20 

49 

20 

4e 

20 

54 

81 

Odbl 

40 

85 

9d 

a9 

01 

20 

c3 

ff 

70 

0929 

a5 f9 o9 c9 

dO 

03 

4c 

03 

d3 

0b71 

20 

49 

20 

4e 

20 

47 

la 

03 

b2 

0db9 

a9 

02 

20 

c3 

ff 

4c 

e7 

ff 

e6 

0931 

cO bl n 91 

f9 

e6 

f7 

dO 

52 

Ob79 

la 

19 

06 

20 

28 

50 

52 

4f 

92 

Odcl 

a9 

02 

a2 

le 

aO 

c2 

20 

bd 

f4 

0939 

02 e6 f8 e6 

f9 

dO 

02 

e6 

c5 

0b81 

47 

52 

41 

4d 

4d 

20 

31 

29 

d8 

0dc9 

ff 

a2 

08 

a9 

Of 

a8 

20 

ba 

7d 

0941 

fa 18 90 de 

4c 

6f 

c6 

a9 

f6 

0b89 

19 

05 

20 

28 

50 

52 

4f 

47 

95 

Oddl 

ff 

20 

cO 

ff 

a9 

Of 

20 

c3 

2b 

0949 

Oa aO cO 4c 

ef 

c3 

93 

4e 

65 

0b91 

52 

41 

4d 

4d 

20 

32 

29 

la 

ed 

0dd9 

ff 

a9 

08 

85 

ba 

20 

b4 

ff 

df 

0951 

53 53 20 4c 

49 

4e 

45 

2d 

56 

0b99 

20 

41 

44 

52 

2e 

3a 

24 

03 

01 

Odel 

a9 

6f 

85 

b9 

20 

96 

ff 

20 

dl 

0959 

56 45 52 49 

46 

59 

20 

56 

6c 

Obal 

30 

31 

32 

33 

34 

35 

36 

37 

91 

0de9 

a5 

ff 

o9 

30 

fO 

18 

48 

a9 

4a 

0961 

45 52 53 49 

4f 

4e 

20 

33 

lc 

0ba9 

38 

39 

41 

42 

43 

44 

45 

46 

Oe 

Odfl 

87 

aO 

cl 

20 

ef 

c3 

68 

20 

3c 

0969 

2e 30 la 19 

27 

2d 

la 

44 

26 

Obbl 

19 

06 

20 

42 

45 

49 

44 

45 

58 

0df9 

d2 

ff 

20 

a5 

ff 

20 

d2 

ff 

d4 

0971 

49 45 53 45 

53 

20 

50 

52 

f6 

0bb9 

20 

50 

52 

4f 

47 

52 

41 

4d 

26 

OeOl 

c9 

Od 

dO 

f6 

38 

24 

18 

08 

79 

0979 

4f 47 52 41 

4d 

4d 

20 

56 

95 

Obel 

4d 

45 

20 

42 

45 

45 

4e 

44 

41 

0e09 

20 

ab 

ff 

28 

60 

a2 

Of 

a9 

ae 

0981 

45 52 47 4c 

45 

49 

43 

48 

87 

0bc9 

45 

54 

20 

21 

la 

03 

56 

4f 

16 

Oell 

20 

9d 

b9 

c3 

9d 

ca 

c3 

ca 

bb 

0989 

54 20 44 41 

53 

20 

49 

4d 

ld 

Obdl 

52 

5a 

45 

49 

54 

2e 

20 

45 

8d 

Oe 19 

10 

f7 

60 

a9 

00 

85 

b7 

20 

bd 

0991 

20 53 50 45 

49 

2d 

20 

43 

ld 

0bd9 

4e 

44 

45 

la 

03 

19 

07 

20 

33 

0e21 

58 

c4 

ad 

b8 

c3 

c9 

04 

dO 

9a 

0999 

48 45 52 20 

53 

54 

45 

48 

9a 

Obel 

47 

4c 

45 

49 

43 

48 

la 

03 

ae 

0e29 

fl 

a9 

20 

aO 

c2 

4c 

ef 

c 3 

el 

09al 

45 4e 44 45 

20 

42 

41 

53 

87 

0be9 

46 

45 

48 

4c 

54 

la 

03 

19 

c2 

Oe31 

48 

4a 

4a 

4a 

4a 

20 

f5 

c4 

81 

09a9 

49 43 2d 50 

52 

4f 

47 

52 

4b 

Obfl 

04 

2a 

20 

55 

4e 

54 

45 

52 

fe 

0e39 

68 

29 

Of 

aa 

bd 

5c 

c2 

4c 

bl 

09b 1 

4l 4d 4d 20 

20 

4d 

49 

54 

2a 

0bf9 

53 

43 

48 

49 

45 

44 

20 

19 

52 

0e4l 

d2 

ff 

20 

35 

c8 

a2 

05 

20 

b8 

09b9 

20 45 49 4e 

45 

4d 

20 

41 

5a 

OcOl 

04 

2a 

la 

03 

la 

la 

53 

54 

6a 

Oe49 

3f 

ab 

ea 

dO 

fa 

60 

20 

90 

7f 

09cl 

55 46 20 44 

49 

53 

4b 

20 

67 

0c09 

41 

54 

49 

53 

54 

49 

4b 

20 

2e 

Oe51 

c5 

20 

13 

c5 

4c 

9b 

c5 

20 

9d 

09c9 

20 53 54 45 

48 

45 

4e 

44 

cl 

Ocll 

4l 

55 

53 

47 

45 

42 

45 

4e 

d3 

Oe59 

e4 

ff 

20 

e4 

ff 

dO 

03 

a9 

c7 

09dl 

45 4e 20 5a 

45 

49 

4c 

45 

eb 

0cl9 

20 

3f 

20 

28 

4a 

2f 

4e 

29 

90 

0e6l 

ff 

60 

20 

e4 

ff 

8d 

de 

c3 

a4 

09d9 

4e 57 45 49 

53 

45 

2e 

20 

a6 

0c21 

20 

12 03 la.'.la 49 44 4; 

d6 

0e69 

20 

e4 

ff 

8d 

df 

c3 

a2 

00 

53 

09el 

20 53 54 4l 

52 

54 

20 

4d 

cb 

0c29 

4e 

54 

2e 

20 

5a 

45 

49 

4c 

bf 

0e71 

ee 

e4 

c3 

dO 

03 

ee 

e5 

c3 

a3 

09e9 

49 54 20 27 

53 

59 

53 

20 

d7 

Oc31 

45 

4e 

20 

4l 

55 

46 

5a 

41 

4l 

0e79 

8e 

dd 

c3 

20 

e4 

ff 

ae 

dd 

af 

09fl : 

34 39 31 35 

32 

27 

la 

11 

9c 

0c39 

45 

48 

4c 

45 

4e 

20 

3f 

20 

81 

Oe81 

c3 

9d 

80 

cf 

a8 

fO 

11 

e8 

55 

09 f 9 : 

56 31 2e 30 

3a 

20 

28 

43 

45 

Oc4l 

28 

4a 

2f 

4e 

29 

20 

12 

03 

06 

Oe89 

8a 

10 

ed 

20 

9b 

c5 

a9 

93 

50 

OaOl : 

29 20 4e 53 

53 

20 

32 

35 

a2 

0c49 

11 

la 

41 

4e 

5a 

4l 

48 

4c 

eb 

0e91 

aO 

c3 

20 

ef 

c3 

a9 

ff 

60 

63 

0a09 : 

31 32 38 36 

la 

56 

32 

2e 

a2 

Oc51 

20 

47 

45 

54 

45 

53 

54 

45 

bc 

0e99 

a9 

00 

60 

20 

83 

c5 

20 

83 

4c 

Oall : 

30 3a 20 28 

43 

29 

20 

4e 

06 

Oc59 

54 

45 

20 

5a 

45 

49 

4c 

45 

fe 

Oeal 

c5 

dO 

03 

a9 

ff 

60 

20 

83 

4f 

0al9 : 

53 53 20 30 

37 

30 

32 

38 

52 

0c61 

4e 

20 

19 

05 

2e 

20 

03 

16 

c2 

0ea9 

c5 

8d 

eO 

c3 

20 

83 

c5 

8d 

36 

0 a 21 : 

37 la 56 33 

2e 

30 

3a 

20 

ef 

0c69 

31 

20 

19 

04 

2e 

20 

03 

16 

8d 

Oebl 

el 

c3 

a2 

00 

ee 

e2 

c3 

dO 

d3 

0a29 : 

28 43 29 20 

4e 

53 

53 

20 

4e 

0c71 

32 

20 

19 

04 

2e 

20 

03 

la 

9e 

0eb9 

03 

ee 

e3 

c3 

20 

83 

c5 

9d 

15 

0a31 : 

31 39 31 32 

38 

37 

11 

03 

19 

0c79 

41 

4e 

5a 

41 

48 

4c 

20 

5a 

bc 

Oecl 

00 

cf 

fO 

d4 

e8 

dO 

f5 

aO 

ae 

0a39 : 

93 9e 8e 08 

bO 

19 

26 

cO 

ae 

0 c 81 

45 

49 

4c 

45 

4e 

20 

50 

52 

f2 

0ec9 

00 

bl 

f7 

48 

e6 

f7 

dO 

02 

le 

0a4l : 

ae dd 12 19 

08 

20 

4e 

53 

e7 

0c89 

4f 

47 

52 

41 

4d 

4d 

20 

03 

fe 

Oedl 

e6 

f8 

68 

60 

48 

20 

cc 

ff 

12 

0a49 : 

53 20 4c 49 

4e 

45 

2d 

56 

59 

0c91 

la 

47 

4c 

45 

49 

43 

48 

45 

65 

0ed9 

a2 

02 

20 

c6 

ff 

68 

60 

48 

b3 

0a51 : 

45 52 49 46 

59 

20 

20 

56 

9e 

0c99 

20 

5a 

45 

49 

4c 

45 

4e 

20 

c9 

Oeel 

20 

cc 

ff 

a2 

01 

20 

c9 

ff 

f4 

0a59 : 

33 2e 30 19 

09 

20 

92 

dd 

6a 

Ocal 

19 

Oe 

2e 

20 

03 

la 

55 

4e 

44 

0ee9 

68 

60 

a9 

a6 

a2 

05 

9d 

00 

89 

0a61 : 

c2 12 20 20 

20 

56 

4f 

4e 

c7 

0ca9 

54 

45 

52 

53 

43 

48 

49 

45 

c5 

Oefl 

01 

ca 

10 

fa 

60 

85 

62 

86 

83 

0a69 : 

20 4e 2e 20 

48 

45 

55 

53 

eb 

Ocbl 

44 

4c 

2e 

20 

5a 

45 

49 

4c 

39 

0ef9 

63 

20 

a6 

c5 

a2 

90 

38 

20 

9e 

0a71 : 

4c 45 52 19 

04 

20 

28 

43 

80 

0cb9 

45 

4e 

20 

19 

08 

2e 

20 

03 

c9 • 

OfOl 

49 

bc 

20 

df 

bd 

a2 

05 

ee 

8f 

0a79 : 

29 20 4e 53 

53 

20 

30 

37 

16 

Ocol 

la 

46 

45 

48 

4o 

45 

4e 

44 

09 

0f09 

e8 

c3 

dO 

03 

ee 

e9 

o3 

bd 

30 

0a81 : 

30 32 38 37 

20 

20 

20 

92 

68 

0co9 

45 

20 

5a 

45 

49 

4c 

45 

4e 

06 

Ofll 

00 

01 

fO 

03 

ca 

10 

f8 

eO 

01 

0a89 : 

dd ad 19 26 

cO 

bd 

la 

03 

bO 

Ocdl 

20 

19 

Oc 

2e 

2e 

20 

03 

la 

6b 

0fl9 

05 

bO 

14 

aO 

05 

bd 

00 

01 

dO 

0a91 : 

42 49 54 54 

45 

20 

4c 

41 

21 

0cd9 

la 

la 

12 

53 

20 

59 

20 

53 

e3 

0f21 

99 

00 

01 

88 

ca 

10 

f6 

a9 

68 

0a99 : 

44 45 4e 20 

53 

49 

45 

20 

ec 

Ocel 

20 

54 

20 

45 

20 

4d 

20 

46 

56 

0f29 

20 

99 

00 

01 

88 

10 

fa 

20 

6b 

Oaal : 

20 45 52 53 

54 

20 

44 

4l 

3d 

0ce9 

20 

45 

20 

48 

20 

4c 

20 

45 

2c 

Of31 

Oc 

bf 

20 

le 

ab 

a9 

3a 

4c 

72 

0aa9 : 

53 20 45 52 

53 

54 

45 

20 

d5 

Ocfl 

20 

52 

20 

21 

20 

21 

20 

21 

34 

0f39 

d2 

ff 

ad 

el 

c3 

cd 

df 

°3 

64 

Oabl : 

50 52 4f 47 

52 

4l 

4d 

4d 

e6 

0cf9 

la 

la 

la 

03 

00 

00 

00 

00 

07 

Of4l 

90 

12 

dO 

Od 

ad 

eO 

c3 

cd 

3d 

0ab9 : 

49 4e 20 44 

45 

4e 

20 

53 

a8 

OdOl 

00 

00 

00 

00 

00 

00 

00 

00 

02 

0f49 

de 

c3 

90 

08 

dO 

03 

a9 

00 

fa 

Oacl : 

50 45 49 43 

48 

45 

52 

20 

a7 

0d09 

00 

00 

00 

00 

00 

20 

00 

00 

Ob 

Of51 

60 

a9 

ff 

60 

a9 

01 

60 

20 

f6 

0ac9 : 

21 la 03 la 

12 

41 

43 

48 

c4 

Odll 

00 

00 

00 

00 

00 

00 

00 

00 

12 

0f59 

03 

c5 

a9 

a4 

aO 

c2 

20 

ef 

be 

Oadl : 

54 55 4e 47 

3a 

92 

20 

03 

Ob 

0dl9 

00 

00 

00 

00 

00 

00 

00 

00 

la 

0f6l 

c3 

ee 

e6 

c3 

dO 

03 

ee 

e7 

7e 

0ad9 : 

4l 55 53 47 

41 

42 

45 

20 

fe 

Od21 

00 

00 

00 

00 

00 

00 

00 

00 

22 

0f69 

c3 

60 

a9 

cO 

aO 

c2 

20 

ef 

5f 

Oael : 

4l 55 46 20 

12 

44 

92 

52 

95 

0d29 

00 

00 

00 

00 

00 

00 

00 

00 

2a 

0f71 

c3 

84 

c6 

20 

e4 

ff 

aa 

c9 

b8 

0ae9 : 

55 43 4b 45 

52 

20 

4f 

44 

47 

Od31 

00 

00 

00 

aa 

a5 

02 

48 

a5 

5e 

0f79 

4e 

fO 

Oc 

c9 

4 a 

dO 

f4 

ad 

d6 

Oafl : 

45 52 20 12 

42 

92 

49 

4c 

20 

Od39 

03 

48 

86 

02 

84 

03 

aO 

00 

25 

0f81 

db 

c3 

09 

02 

8d 

db 

c3 

8a 

9c 

0af9 : 

44 53 43 48 

49 

52 

4d 

20 

5d 

Od4l 

bl 

02 

fO 

21 

c9 

03 

fO 

ld 

06 

0f89 

20 

d2 

ff 

a9 

df 

aO 

c2 

20 

96 


96 
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0f91 

ef 

c3 

84 

c6 

20 

e4 

ff 

c9 

18 

1071 

20 

9b 

c5 

20 

d7 

aa 

a2 

06 

3e 

1151 

03 

ee 

eb 

c3 

ad 

db 

c3 

29 

5a 

0f99 

4e 

fO 

07 

c9 

4a 

dO 

f5 

ee 

3b 

1079 

20 

03 

c5 

a9 

b9 

aO 

c3 

20 

bl 

1159 

01 

f0 

27 

20 

fe 

c4 

a9 

99 

90 

Ofal 

db 

c3 

4c 

d2 

ff 

a2 

Ob 

a9 

60 

1081 

ef 

c3 

a9 

34 

aO 

c2 

20 

ef 

c3 

1161 

aO 

c2 

20 

ef 

c3 

4c 

81 

c7 

9d 

0fa9 

00 

8d 

db 

c3 

9d 

e2 

c3 

ca 

75 

1089 

c3 

a5 

2c 

85 

f8 

20 

ec 

c4 

a8 

1169 

ee 

ec 

c3 

dO 

03 

ee 

ed 

c3 

bf 

Ofbl 

10 

fa 

60 

20 

6b 

c4 

20 

5f 

77 

1091 

a5 

2b 

85 

f7 

20 

ec 

c4 

a2 

ee 

1171 

20 

fe 

c4 

a9 

ab 

aO 

c2 

dO 

e3 

0fb9 

c4 

20 

58 

c4 

20 

c9 

c4 

aO 

el 

1099 

0c 

20 

03 

c5 

a9 

24 

20 

d2 

11 

1179 

e9 

ae 

eO 

c3 

ad 

el 

c3 

4c 

fb 

Ofol 

00 

bl 

2b 

d0 

07 

a9 

4c 

aO 

af 

lOal 

ff 

20 

90 

c5 

20 

e4 

ff 

48 

47 

1181 

bl 

c5 

ee 

e8 

c3 

dO 

03 

ee 

9a 

0fc9 

cl 

4c 

ef 

c3 

c8 

bl 

2b 

fO 

cd 

10a9 

20 

e4 

ff 

20 

9b 

c5 

20 

ec 

81 

1189 

e9 

c3 

4c 

81 

c7 

ad 

db 

c3 

78 

Ofdl 

f4 

20 

7c 

c4 

90 

01 

60 

a9 

73 

10b 1 

c4 

68 

20 

ec 

c4 

20 

d7 

aa 

51 

1191 

29 

02 

fO 

74 

a9 

04 

aO 

c3 

4b 

0fd9 

94 

aO 

cl 

20 

ef 

c3 

84 

c6 

ee 

10b9 

a2 

27 

a9 

2d 

20 

d2 

ff 

ca 

2d 

1199 

20 

ef 

c 3 

ae 

e8 

c3 

ad 

e9 

af 

Ofel 

20 

e4 

ff 

c9 

42 

fO 

07 

c9 

08 

10c 1 

dO 

fa 

20 

d7 

aa 

20 

57 

c5 

a6 

llal 

o 3 

20 

cd 

bd 

a9 

23 

aO 

c3 

5d 

0fe9 

44 

d0 

f5 

a2 

04 

2 c 

a2 

03 

99 

10c9 

8d 

de 

c3 

20 

0a 

c5 

8d 

ee 

9c 

lla9 

20 

ef 

c3 

ae 

e2 

c3 

ad 

e3 

52 

Offl 

8e 

b8 

c3 

20 

d2 

ff 

a9 

cO 

25 

10dl 

c3 

cd 

de 

c3 

dO 

23 

aa 

fO 

dd 

11b 1 

c3 

20 

cd 

bd 

ad 

ee 

c3 

fO 

f3 

0ff9 

aO 

cl 

20 

ef 

c3 

20 

61 

c6 

dO 

10d9 

35 

ee 

ee 

c3 

ee 

de 

c3 

a9 

fl 

llb9 

05 

a9 

3c 

20 

d2 

ff 

a9 

2b 

dO 

1001 

aa 

20 

cf 

ff 

c9 

Od 

fO 

08 

88 

lOel 

6c 

aO 

c2 

20 

ef 

c3 

20 

49 

82 

llcl 

aO 

c3 

20 

ef 

c3 

ae 

e4 

c3 

16 

1009 

9d 

b9 

c3 

e8 

eO 

10 

90 

fl 

45 

10e9 

c8 

20 

d7 

aa 

20 

cc 

ff 

a9 

c8 

llc9 

ad 

e5 

c3 

20 

cd 

bd 

ad 

de 

99 

1011 

a9 

dO 

aO 

cl 

20 

ef 

c3 

a2 

58 

lOfl 

02 

20 

c3 

ff 

a9 

01 

4c 

c3 

4f 

11dl 

c3 

ro 

05 

a9 

3c 

20 

d2 

ff 

93 

1019 

00 

20 

cf 

ff 

c9 

Od 

fO 

08 

f6 

10 f 9 

ff 

aa 

fO 

03 

a2 

17 

2c 

a2 

c3 

lld9 

a9 

4c 

aO 

c3 

20 

ef 

c3 

ae 

37 

1021 

9d 

ca 

c3 

e8 

eO 

10 

90 

fl 

e6 

1101 

06 

20 

03 

c5 

a9 

8a 

aO 

c2 

88 

llel 

ea 

c3 

ad 

eb 

c3 

20 

cd 

bd 

85 

1029 

8a 

a2 

ca 

aO 

c3 

20 

bd 

ff 

ff 

1109 

20 

ef 

c3 

4c 

a2 

c7 

20 

f6 

72 

lle9 

a9 

61 

aO 

c3 

20 

ef 

c3 

ae 

dl 

1031 

20 

26 

c6 

a9 

f8 

aO 

cl 

20 

27 

1111 

c5 

fO 

2b 

10 

la 

ae 

de 

c3 

35 

llfl 

ec 

c3 

ad 

ed 

c3 

20 

cd 

bd 

d8 

1039 

ef 

c3 

84 

c6 

20 

e4 

ff 

c9 

cO 

1119 

ad 

df 

c3 

20 

bl 

c5 

a9 

a4 

e4 

llf9 

a9 

7c 

aO 

c3 

20 

ef 

c3 

ae 

6f 

1041 

45 

dO 

01 

60 

c9 

46 

dO 

03 

53 

1121 

a0 

c2 

20 

ef 

c3 

20 

ld 

c6 

68 

1201 

e6 

c3 

ad 

e7 

c3 

20 

cd 

bd 

21 

1049 

4c 

6f 

c6 

c9 

52 

dO 

ed 

a2 

eO 

1129 

20 

0a 

c5 

dO 

cf 

fO 

df 

20 

le 

1209 

a9 

00 

85 

c6 

60 

46 

02 

20 

6d 

1051 

08 

a9 

02 

a8 

20 

ba 

ff 

20 

de 

1131 

35 

c8 

a2 

11 

20 

13 

c6 

20 

8b 











1059 

cO 

ff 

20 

95 

c4 

90 

01 

60 

69 

1139 

57 

c5 

dO 

c3 

fO 

dO 

a2 

ff 

3f 











1061 

20 

d7 

c4 

ae 

b8 

c3 

a9 

01 

c6 

1141 

e8 

bd 

00 

cf 

dd 

80 

cf 

dO 

c5 











1069 

aO 

00 

20 

ba 

ff 

20 

cO 

ff 

6d 

1149 

if 

a8 

dO 

f4 

ee 

ea 

c3 

dO 

86 

Listing 1. (Schluß) 







V izawrite hat viele 
Freunde, läßt jedoch 
für eine ansprechen¬ 
de Textausgabe manchen 
Wunsch offen. Der Konver¬ 
ter (Listing 1) trägt alle 
Steuerzeichen in das Font¬ 
master-File selbständig ein. 

Auch Ränder, Tabulatoren 
und Einrückungen werden 
genauso übersetzt, daß das 
Seitenformat erhalten bleibt, 
wie es in Vizawrite definiert 
wurde - nur erfolgt der Aus¬ 
druck jetzt in NLQ und Pro¬ 
portionalschrift. Dies ist 
selbst mit an und für sich 
nicht NLQ-fähigen Druckern 
möglich, da nun im Grafik¬ 
modus gedruckt wird. 

Benutzung des Konverters: 

Sie geben den Vizawrite-Text wie gewohnt ein, formatie¬ 
ren den korrigierten Text und speichern ihn auf Diskette. 

Nun verlassen Sie Vizawrite, laden den Konverter und 
starten ihn mit RUN. 

Nach der Eingabe des Filenamens Ihres Textes beginnt 
die Konvertierung. 

Nach der Übersetzung kann Fontmaster geladen wer¬ 
den. Der konvertierte Text liegt als SEQ-File auf der Disket¬ 
te vor. Er kann also von Fontmaster aus nicht mit dem Be¬ 
fehl LOAD, sondern nur mit GET (Diskmodus, <CTRL D >) 
geladen werden. 

Noch zwei Anmerkungen: Fontmaster nimmt einen eige¬ 
nen Seitenumbruch vor, das heißt nach einer bestimmten 
Anzahl von Zeilen wird automatisch ein Seitenvorschub 
ausgelöst. Daher sollten Vizawrite-Texte nicht in Seiten auf¬ 
geteilt werden. Durch die Ausgabe in Proportionalschrift 
kann der Text zudem bis zu einem Drittel kürzer werden. 
Nach jeder Vizawrite-Seite erzeugt der Konverter automa¬ 


tisch einen erzwungenen 
Seitenumbruch. Dadurch 
ist es beispielsweise mög¬ 
lich, Kapitelanfänge oben 
auf einer Seite beginnen zu 
lassen etc. 

Am Ende jedes konvertier¬ 
ten Files finden sich etwas 
unmotiviert zwei Seitenum¬ 
bruch-Zeichen ("NP_") 

wieder. Das kommt daher, 
daß Vizawrite die Header- 
und Footer-Seiten dort ab¬ 
legt. Gegebenenfalls findet 
sich hier der Inhalt der Hea¬ 
der und Footer-Page. Im 
Normalfall sollten diese 
Steuerzeichen am Ende 
des Fontmaster-Textes ent¬ 
fernt werden. Anschließend 
sollte der Text mit <CTRL S> gespeichert werden und 
steht fortan als normales Fontmaster-File zur Verfügung. 

Tips zur Anpassung des Programms: 

Beim Abtippen sollte beachtet werden, daß die vorliegen¬ 
de Version des Konverters auch Umlaute konvertiert. Ich 
benutze eine Vizawrite-Version mit deutschen Umlauten. 
Die Belegung der Codes ist im Fontmaster entsprechend. 
Dazu wurden im Bildschirm- und in den Druckerzeichen¬ 
sätzen die entsprechenden Zeichen umgelegt und durch 
Umlaute ersetzt. Die Definition erfolgt im Initialisierungs- 
Teil des Programms. Sollte eine Fontmaster-Version ohne 
Umlaute benutzt werden, können die entsprechenden Po- 
kes (Zeile 1220-1228) entfallen oder nach Bedarf belegt 
werden. 

Im Konverter wird eine sehr flexible und schnelle 
Umwandlungs-Routine verwendet, die sich auch für eige¬ 
ne Konverter eignet. Sie beginnt ab $C000, die Konver¬ 
sions-Tabelle muß ab $C100-$C1 FF im Speicher liegen. Au- 


Von Vizawrite 
noch Fonhnaster 

Texte mit Vizawrite schreiben, formatieren und 
mit allen Finessen unter Fontmaster ausdrucken. 
Dies ermöglicht der »Vizawrite-Fontmaster-Kon- 
verter«. Steuerzeichen aus Vizawrite werden in 
Fontmaster-Steuerzeichen übersetzt. 
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ßerdem wird der Bereich $C200-$C3FF als Puffer benötigt. 

Der Aufruf dieser Routine aus eigenen Programmen 
kann auf zwei Arten erfolgen: 

1. Zunächst werden vom Basic aus zwei Files mit den logi¬ 
schen Nummern 2 und 3 eröffnet, wobei aus dem ersten 
gelesen und in das zweite geschrieben werden soll. 

Dann wird die Routine mit SYS 49152 ($C000) aufge¬ 
rufen. Die empfangenen Codes werden entsprechend 
der Konversions-Tabelle gewandelt und ins Ausgabefile 
geschrieben. Die Wandlung geschieht entsprechend 
der Tabelle ab 49408 ($C100), wobei der Wert für 0 an 
Position Null steht, der für 1 an erster etc. 

2. Wie oben, der Aufruf erfolgt jedqch mit 

SYS 49152, Variablej, $1, 'ri2', n), nn 

Dabei stellen nl bis nn Zahlenwerte zwischen 0 und 255 
dar, bei denen die Routine unterbrochen wird, um in Ba¬ 
sic weitere Manipulationen vorzunehmen. 

Die (numerische) Variable enthält bei Unterbrechung 
einen Wert zwischen 1 und n, je nachdem bei welchem 
Wert abgebrochen wurde. Enthält die Variable 0, so liegt 
ein »End of File« oder ein Floppy-Fehler vor. Die Variable 
eignet sich beispielsweise hervorragend für die Verwen¬ 
dung eines »ON N ...GOSUB«- Befehls. 

Da die Routine immer ganze Blöcke liest beziehungsweise 
schreibt, zeichnet sie sich durch hohe Geschwindigkeit 
aus. Die Statusvariable ST des C64 enthält bei einem Ab¬ 
bruch des Programms immer den letzten Lese-Status. 

(Eckehard Fiedler/sk) 


20 NU*=CHR*<0> 

< 022 > 

317 

INPUT A:GOSUB 2100:HD*=HD*+":TM"+A* 

< 189> 


50 PRINT Fl«" (CI R, t TDOWN/3RIBHT>W.«>-».».»A#Jt». 


318 

A=10:PRINT TAB(5)"IDOWN1BOTTOM MARGIN< 




<032> 


4SPACEJ"A"t5LEFT>"; 

<255> 


51 PRINT"<3RIGHT> = <RVS0N,32SP«CE> = " 

<168> 

319 

INPUT A:GOSUB 2100:HD*=HD*+":BM"+A* 

<125> 


52 PRINT"<3RIBHT > = tRVSON , 32SPACE > 

< 169> 

320 

HD*=HD*+CHR*<13> 

<237> 


53 PRINT"<3RIBHT> = <RVS0N,2BPACE>FILETRANS 


321 

s 

<043> 


VIZA -> FONTMASTERC2SPACE> = " 

<132> 

322 

3 

<044> 


54 PRINT"<3RIGHT>c:<RVS0N,32SPACE> = " 

< 171 > 

323 

3 

<045> 


55 PR I NT " T3R1 BHT T?<RVBON > 


324 

3 

<046> 


*#***jt**^ft^*#y n 

<076> 

325 

: REM VW-HEADER ELEMINIEREN 

< 101 > 


80 GOSUB 1000 

<036> 

326 

3 

<04B> 


90 FOR 1 = 1 TO 18s PRINT: NEXT 

< 199> 

327 

8 

<049> 


91 : 

<067> 

328 

3 

<050> 


92 : 

<06B> 

329 

3 

<051 > 


93 : 

<069> 

330 

GOSUB 2000:PRINT"WORKING..." 

<238> 


94 : 

<070> 

331 

PRINT TAB<5)"CDOWNJPLEASE WAIT !" 

<055> 


95 : 

<071 > 

335 

B*=CHR*(241) 

<251 > 


96 : REM FILENAMEN HOLEN 

<252> 

340 

GET#2,A*:IF STO0 THEN 500 

< 22 B> 


97 : 

<073> 

341 

IF A*OB* THEN 340 

< 1B3> 


98 : 

<074> 

350 

BOBUB 2000:PRINT"WRITING FM HEADER...< 



99 : 

<075> 


2SPACE > "; 

<149> 


100 OPEN 15,8,15,"I" 

< 155> 

351 

PRINT#3,HD*; : IF STOB THEN 500 

< 0 B 2 > 


120 GOBUB 2000:INPUT"READ FILENAME:";N* 

<025> 

362 

: 

<084> 


130 NL*=N*+",P,R" 

<014> 

r363 s 

<0B5> 


140 OPEN 2,8,2,NL* 

<162> 

364 

: 

<086 > 


150 INPUT#15,Fl,F*,F2,F3 

<230> 

365 

: REM TRANSFER-SCHLEIFE 

<016> 


160 PRINT:PRINT TAB(5)F*;:IF F1=0 THEN 200 

<000 > 

366 

: 

< 0 B 8 > 


161 CLOSE 2 

< 1 B 0 > 

367 

: 

<0B9> 


170 GOBUB 3100 

<158> 

36B 

s 

<090> 


190 GOTO 120 

< 150> 

400 

BYB 49152,A,220,219,230,235,241 

< 144> 


200 PRINT:NS*=LEFT*< N*,13 >+".FM" 

<089) 

410 

ON A GOBUB 550,750,600,800,900 

<084> 


210 GOBUB 2000:PRINT“SAVE FILENAME:T2SPACE 


420 

IF ST=0 THEN 400:REM END OF FILE? 

<219> 


}"NS* 

<249> 

490 

3 

< 212 > 


220 INPUT"<UP,19RIGHT>";NB« 

<057> 

491 

3 

<213> 


230 NW*="0:"+NS*+",S,W" 

<125> 

492 

3 

<214> 


240 OPEN 3,8,3,NW* 

< 1 B 6 > 

495 

REM ENDE 

<037 > 


250 INPUT#15,F1,F*,F2,F3 

<074> 

496 

8 

<218> 


260 PRINT TAB (5) " <DOWN>"F*;: IF F1=0 TUEN 3 


497 

3 

<219> 


00 

<1B3> 

49B 

t 

< 220 > 


261 CLOSE 3 

<034> 

500 

INPUT#15,F1,F*,F2,F3 

<070> 


263 IF Fl=63 THEN PRINT"<2SPACE>REPLACE ?"5 


503 

GOSUB 2000:PRINT"FILE CLOSED" 

<226> 


:GOBUB 3000:IF C=0 THEN 200 

< 030 > 

505 

PRINT TAB(5) " <DOWN>DISK—STATUS:"Fl;F* 

<241> 


270 GOBUB B000 

<028> 

506 

CLOBE 2:CLOBE 3:CLOSE 15 

< 133> 


291 g 

<013> 

510 

GOSUB 2000 

< 220 > 


292 : 

<014> 

512 

PRINT"MORE FILES" ; 

<232> 


293 : 

<015> 

513 

GOSUB 3000 

<233> 


294 : 

<016> 

520 

IF C“0 THEN END 

< 174> 


295 : REM HEADER ZUSAMMENSTELLEN 

<045> 

530 

GOTO 100 

<206> 


296 0 

< 01 B> 

540 

3 

< 00 B> 


297 : 

<019> 

541 

REM ******************************* 

< 171 > 


298 : 

<020> 

542 

3 

<010> 


299 : 

<021 > 

543 

3 

<011> 


300 BOBUB 2000:PRINT"{DOWNJCHOOBE HEADER, 


544 

3 

< 118> 


PLEABE" 

<065> 

545 

: REM CR AUBGEBEN 

<03B> 


305 HD*=CHR*(97)+"UO10" 

<094> 

546 

3 

<014> 


306 GOSUB 2000:PRINT"JUSTIFICATION ON"; 

<18B> 

547 

3 

<015> 


307 GOBUB 3000:IF C=1 THEN HD*=HD*+": J8" 

<236> 

550 

TZ=0:IF LM=LA THEN 5B0 

< 132> 


308 PRINT TAB(5)"IDOWNIPROPORTIONAL ON "; 

<031 > 

555 

LM=LA 

<206> 


309 BOBUB 3000:IF C=1 THEN HD*=HD*+":PY" 

<247> 

560 

A=LM:BOBUB 2100:LM*=A* 

< 1B5> 


310 A=72:GOBUB 2000:PRINT"PAPERLENBTH £ 6 SPA 


570 

PRINT#3,CHR* ( 13 > CHR* < 97 )" IN+0 : LM"LM* ; 

<063> 


CE> " A"<5LEFT>"; 

<027> 

580 

PR I NT#3,CHR* < 1 3 > 5: RETURN 

<201> 


311 INPUT A:GOBUB 2100:HD*=HD*+" : PL"+A* 

<247> 

592 

3 

<060> 


312 A= 6 :PRINT TAB(5) " {DOWNJLINEB PER INCH< 


593 

3 

<061 > 


3BPACE >"A"T4LEFTJ " 5 

< 176> 

594 

: REM FORMATZEILE HOLEN 

<1B9> 


313 INPUT A:BOBUB 2100:HD*=HD*+" : LS"+A* 

<057> 

595 

8 

<063> 


316 A=0: GOBUB 2000-.PRINT"TOP MARGINC7SPACE 


596 

3 

<064> 


>"A" <4LEFT>”; 

<17B> 

600 

BOBUB 2000SPRINT"CHECKING FORMAT LINE. 
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..£2SPACE>"; 

<041 > 

1226 

POKE V+l22,91 :REM OE GROSS 


<054> 

610 L=2:LM=L-1:TB=-1:TZ=0 

< 132> 

1227 

POKE V+123,127:REM UE GROSS 


< 105> 

615 FQR L=2 TD 255 

<037> 

122 B 

POKE V+124,92 :REM SS 


<199> 

620 GET#2,A* 

<025> 

1229 

POKE V+220,13 :REM RETURN 


< 147> 

621 V=ASC(A*+NU*>:IF BT THEN 500 

<077> 

1230 

PDKE V+237,234:REM FETT 


<253> 

630 IF V=220 THEN 700:REM CR 

<0B2> 

1231 

POKE V+23B,251:REM UNDERLINE 


<227> 

640 IF V=219 THEN TB=TB+1:TA(TB)=L:IF TB=0 


1232 

POKE V+239,245:REM SUPERSCRIPT 


< 100 > 

THEN LM=L:REM TAB SETZEN+LM 

<015> 

1233 

POKE V+236,246:REM SUBSCRIPT 


<029> 

650 NEXT L 

<250> 

1900 

RETURN 


<180> 

697 : 

< 165> 

1907 

8 


<105> 

69B : REM FORMATZEILE SCHREIBEN 

<214> 

1980 

: 


< 1 B 6 > 

699 : 

<167> 

1909 

3 


< 107> 

700 LA=LM:A“LM:BOSUB 2100:LM*=A* 

< 122 > 

1990 

8 


< 18B> 

705 A=L-2:BOSUB 2100:RM*=A* 

< 170> 

1991 

3 


<109> 

710 PRINT#3,CHR*<97>"LM"LM*; 

<003> 

1992 

8 


<190> 

715 PRINT#3,CHR*(5B)"RM"RM*;CHR*<13) ; 

< 120 > 

1993 

8 


< 191 > 

720 PRINT"OK":L=255:NEXT L 

<207> 

1994 

« REM AUBBABE WECHSELN 


< 146> 

725 IF TB=0 THEN TA(1)=LM+1 

< 174> 

1995 

3 


< 193> 

726 IF TB“—1 THEN TA(1)-1 

<103> 

1996 

1 


< 194> 

730 RETURN 

<024 > 

1997 

X 


<195> 

740 : 

< 200 > 

199B 

3 


< 196> 

741 : 

<209> 

1999 

8 


< 197> 

742 s REM TAB 

<075> 

2000 

REM KASTEN 


<249> 

743 : 

<211 > 

2010 

IF KF=0 THEN PRINT F1*K1*K2*KD* 

K1*F2 


744 : 

< 212 > 


*KD*KM* 5 :KF“1:RETURN 


<206> 

750 TZ“TZ+1«IF TZ>TB THEN TZ-llIF TB>0 THE 


2020 

IF KF=1 THEN PRINT F1*K1*KD* K1*K2*F2 


N PRINT#3,CHR*<13>; 

< 191 > 


*KD*KM»; 


< 222 > 

760 A=TA(TZ>:GOBUB 2100:TA*=A* 

< 000 > 

2030 

KF=0:RETURN 


<097> 

770 PRINT#3,CHR*(97)"TA"TA*(CHR*(124 >; 

< 002 > 

2090 

3 


<034> 

7B0 RETURN 

<076> 

2091 

1 


<035> 

790 : i 

<004> 

2092 

8 


<036> 

791 : 

<005> 

2093 

3 


<037 > 

792 : REM INDENT 

< 136> 

2094 

3 


<030> 

793 : 

<007> 

2095 

: REM A IN A* WANDELN 


< 130> 

794 t 

< 000 > 

2096 

8 


<040> 

000 REM 

<034> 

2097 

8 


<041 > 

005 TZ-TZ+lsIF TZ>TB THEN TZ=1«IF TB>0 THE 


2098 

8 


<042> 

N PRINT#3,CHR*(13 >5 

<248> 

2099 

3 


<043> 

010 A=LM:LM=TA(TZ):IN=A—LM 

< 010 > 

2100 

A*=STR*(A):IF A<0 THEN RETURN 


<029> 

020 A=LM:GOSUB 2100:LM*=A* 

< 191 > 

2110 

A*=RIGHT*(A*,LEN(A* >-1) 


< 136> 

030 IN*=STR*(IN) 

<065> 

2120 

RETURN 


<146> 

040 PRINT#3,CHR*(97)"LM"LM*“:TA"LM*":IN"IN 


2990 

• 


<172> 

<173> 

*;CHR*(124); 



1 


050 RETURN 

< 146> 

2992 



<174> 

092 : 

< 106> 

2993 

8 


< 175> 

093 : 

< 107> 

2994 

: 


< 176> 

B94 : REM NEXT PAGE 

<205> 

2995 

: REM TASTENABFRAGE GET Y/N 


< 200 > 

095 : 

< 109> 

2996 

8 


< 17B> 

096 : 

< 110 > 

2997 

8 


<179> 

900 PRI NT#3,CHR*(97)"NP":RETURN 

< 134> 

2990 

8 


< 1 B 0 > 

986 : 

< 200 > 

2999 

8 


< 1 B 1 > 

987 : 

<201 > 

3000 

PRINT" <Y>£2LEFT>"; 


<093> 

98B REM fl-**#****«***#*#*###***#*#*###*# 

< 10 B> 

3020 

GOSUB 3100 


<214> 

989 : 

<203> 

3030 

IF A*="Y"OR A*“CHR*(13) THEN C= 

: A*=" 


990 t 

<204> 


Y":GOTO 3060 


< 101 > 

991 : 

<205> 

3040 

IF A*<>"N"THEN 3020 


<129> 

992 : 

<206> 

3050 

C=0 


< 165> 

993 : 

<207> 

3060 

PRINT A* 


<1BB> 

994 : REM INIT 

<037> 

3070 

RETURN 


<078> 

995 : 

<209> 

3000 

8 


< 000 > 

996 : 

< 210 > 

3001 

8 


<009 > 

997 : 

<211 > 

3002 

3 


< 010 > 

990 : 

< 212 > 

3100 

POKE 204,0 


<207> 

999 : 

<213> 

3110 

GET A*sIF A*=""THEN 3110 


<239> 

1000 DIM N(255),TA(255) 

<221 > 

3120 

POKE 204,1:RETURN 


< 1 B 6 > 

1010 F1*="CGREY 2 >":F2*="£WHITE >" 

< 010 > 

7990 

8 


<092> 

1020 Kl*““£HOME,BDOWN>":K2#="C8D0WN>" 

<226> 

7991 

8 


<093> 

1 021 KD*=" £3RI GHT 


7992 

8 


<094> 

JUUUÜUUUUÜt" +CHR* (13) 

<015> 

7993 



<095> 

1022 KD*“KD*+CHR*(13)+"<4DOWN>"+KD*+Fl*+"£ 


7994 

3 


<096> 

6 UPI" 

< 151 > 

7995 

: REM FILE SCRATCHEN 


<250> 

1023 KL*“"£39SPACE}"+CHR*(13) 

< 127> 

7996 

8 


<090> 

1025 FOR 1=1 TO 5:KM*=KM*+KL*:NEXT 

<017> 

7997 

8 


<099> 

1030 KM*=KM*+"C4UP,5SPACE3" 

< 002 > 

7998 

8 


< 100 > 

1100 FOR 1=49152 TO 49322:READ AsPOKE I,A 

<017> 

7999 

8 


< 101 > 

1110 NEXT 

<104> 

8000 

8 


< 102 > 

1190 V=49408 

<099> 

B030 

NO*="S0:"+NS*:PRINT#15,NO* 


<018> 

1200 FOR 1=0 TO 31:POKE V+I,1+64«NEXT 

<017> 

0040 

INPUT#15,Fl,F*,F2,F3:IF F1<>1 THEN PR 


1210 FOR 1=32 TO 63:P0KE V+I,IiNEXT 

< 170> 


INT F*:GOTO 500 


<212> 

1211 FOR 1=65 TO 95:POKE V+I,1+128:NEXT 

<105> 

0050 

OPEN 3, 8 ,3,NW*:RETURN 


<238> 

1220 POKE V+58,62 

<234> 

B051 

DATA 169,0,141,0,195,32,156,192 

176,3 


1221 POKE V+59,60 

<039> 


3,32,139,176,133,73,132,74,32,156 

< 160> 

1222 POKE V+l01,59 :REM AE KLEIN 

<032> 





1223 POKE V+l10,50 :REM OE KLEIN 

1224 POKE V+l20,64 :REM UE KLEIN 

<162> 

< 146> 

Listing 1. »VIZA-FONTM.«. Bitte mit dem Checksummer 

1225 POKE V+l21,93 :REM AE GROSS 

<251 > 

(Seite 159) eingeben. 





SONDERHEFT 33 


99 


W^-anUfiM* 

Mnr-urtlinn.mil 










TOOLS: PROGRAMMIEREN 


C64 


B052 DATA 192,176,21 ,238,0,195,20B,3,76,8, 

175,32,158,183,138,174,0,195,157 <184> 

8053 DATA 0,195,76,17,192,32,204,255,169,0 

,133,252,162,2,32,198,255,32,207 <1B6> 

8054 DATA 255,174,0,195,240,8,221,0,195,24 

0,10,202,208,246,230,252,164,252 <136> 

8055 DATA 153,0,194,134,251,166,144,134,36 

,208,9,165,251,208,5,166,252,232 <077> 

8056 DATA 20B, 216, 165,252,240,37,32,204,25 

5,162,3,32,201,255,160,0,200,185 <203> 


8057 DATA 0,194,170,189,0,193,32,210,255,1 

65,144,208,26,196,252,208,237,165 <226> 

8058 DATA 251,208,4,165,36,240,163,169,0,1 

64,251,32,145,179,165,14,32,194,169 <114> 

8059 DATA 165,36,133,144,32,204,255,96,32, 

121,0,201,44,240,2,56,96,32,115,0 <192> 

8060 DATA 24,96,96 <000> 


Listing 1. »VIZA-FRONTM.« (Schluß) 


Das Verfolgen von Basic-Program- 
men wird wesentlich einfacher, 
wenn man es nicht »von Hand« 
machen muß. Dazu gehört natür¬ 
lich auch, daß große Schleifen 
im Schnelldurchlauf abgearbeitet 
werden und jederzeit die 
Programmvariablen abgefragt 
werden können. 



D as Programm Super-Trace (Listing 1) dient zur Fehler¬ 
suche in Basic-Programmen. Im Gegensatz zu den 
sonst gebräuchlichen Routinen dieser Art, wie zum 
Beispiel der Trace-Routine des Simons Basic, werden nicht 
nur die Zeilennummern der durchlaufenden Programmzei¬ 
len ausgegeben, sondern die komplette Zeile auf dem Bild¬ 
schirm angezeigt. Daher eignet sich die Routine nicht zur 
Kontrolle des Bildschirmaufbaues, da eventuell ausgege¬ 
bene Bildschirmmasken zerstört werden. Die auf dem Bild¬ 
schirm angezeigte Zeile wird erst nach Betätigung der 
RETURN-Taste ausgeführt. Vor Ausführung der Zeile ha¬ 
ben Sie die Möglichkeit, durch Befehle wie < D > (Dump), 
<P> (Print), <L> (List) sich Informationen über Varia¬ 
bleninhalte zu beschaffen, Programmzeilen zu Listen, so¬ 
wie die Möglichkeit, Zwischenberechnungen anzustellen. 
Außerdem besteht die Möglichkeit, das Programm bis zu ei¬ 
ner vorgegebenen Zielzeilennummer in Echtzeit, unter 
Ausgabe der Zeilennummer, ausführen zu lassen. 

Bedienungsanleitung: 

Geben Sie das Programm ein und speichern Sie es unter 
dem Namen »Super-Trace« auf Diskette oder Kassette. Ge¬ 
laden wird es dann mit »LOAD "SUPER-TRACE" ,8,1« oder 
»LOAD"SUPER-TRACE",1,1«. Ist die Trace-Routine gela¬ 
den, so wird sie mit SYS 49152 initialisiert. Das Programm 
kopiert nun das Basic-ROM in das darunterliegende RAM, 
aktiviert dieses und nimmt einige Änderungen in der Zero¬ 
page und im Basic-RAM vor. Nach Beenden des Initialisie- 
rens, das kaum Zeit beansprucht, meldet sich das Betriebs¬ 
system mit der Ready-Meldung. Nun können Sie ganz nor¬ 
mal Ihr Programm eingeben oder laden. Die Trace-Routine 
hat keinerlei Einfluß auf Vorgänge außerhalb des Pro¬ 
grammablaufs. Sämtliche Funktionen stehen uneinge¬ 
schränkt zur Verfügung. 

Um in den Trace-Modus zu gelangen, gibt es mehrere 
Wege: 

1. Allgemein wird der Trace-Modus mit dem TROM-Befehl 
aktiviert. Sie können den Befehl in den Programmtext 
einbinden, oder ihn direkt eingeben und zum Starten 
des Programms verwenden. Wird der TROM-Befehl in 
den Programmtext eingebunden, so wird ab dem näch¬ 
sten Befehl der Trace-Modus eingeschaltet, bei dieser 
Verwendungsart bleiben die Variablen erhalten, wäh¬ 
rend sie bei der Direkteingabe gelöscht werden. 


2. Außerdem besteht die Möglichkeit, das TROM-Kom- 
mando in Verbindung mit einer Zeilennummer zu benut¬ 
zen (zum Beispiel »TROM70«). In der Direkteingabe ver¬ 
wendet hat dies zur Folge, daß die angegebene Zeile an¬ 
gesprungen und daraufhin in den Trace-Modus gewech¬ 
selt wird. Das hat den Vorteil, daß die Variableninhalte 
nicht zerstört werden. Diese Art der Verwendung ist 
auch im Programmtext möglich, der normale Pro¬ 
grammfluß wird unterbrochen und die angegebene Zei¬ 
le angcsprungen. 

Im Trace-Modus wird jeweils die nächste auszuführende 

Zeile auf dem Bildschirm angezeigt, und erst dann ausge¬ 
führt, wenn die RETURN-Taste betätigt wurde. Hier haben 

Sie nun zusätzliche Möglichkeiten zur Programmkontrolle: 

- < RETURN >: Die auf dem Bildschirm angezeigte Zeile 
wird ausgeführt, und die nächste Zeile auf dem Bild¬ 
schirm ausgegeben. 

- TROFF: Mit diesem Befehl wird der Trace-Modus verlas¬ 
sen, und das Programm normal ausgeführt. Die Verwen¬ 
dung ist sowohl direkt als auch im Programmtext mög¬ 
lich. 

- G, Znr.: Das Programm wird so lange in Echtzeit durch¬ 
laufen, bis eine Zeilennummer größer gleich der angege¬ 
benen Zeilennummer erreicht ist. Ist dies der Fall, so 
springt das Programm wieder in den Einzelschritt- 
Modus. Der vorzeitige Abbruch ist durch das Betätigen 
der STOP-Taste möglich. 

- P, Variablenliste: Dieser Befehl entspricht in seiner Wir¬ 
kung voll dem PRINT-Befehl. Durch diesen Befehl ist die 
Ausgabe von Variablen oder Feldern möglich, sowie das 
Ausführen von Zwischenrechnungen. 

- L, Parameterliste: Dieser Befehl entspricht in seiner 
Wirkung dem LIST-Befehl, wobei die Syntax für die An¬ 
gabe des auszugebenden Bereiches identisch ist. Ein 
vorzeitiges Abbrechen des Listvorganges ist nicht mög¬ 
lich. (Führt sonst zum Programmabbruch). 

- D: Dieses Kommando ermöglicht die Ausgabe eines 
Dumps sämtlicher definierter Real-, Integer- oder String¬ 
variablen. Alle Variablenwerte werden vorzeichenbehaf¬ 
tet ausgegeben. Die Ausgabe von Feldern ist nicht mög¬ 
lich. Hierzu benutzen Sie bitte den PRINT-Befehl. 

Tritt bei der Ausführung einer Programmzeile oder eines 

der oben genannten Befehle ein Fehler auf, so wird der 
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Trace-Modus unter Ausgabe der Fehlermeldung verlassen 
und das Programm abgebrochen. 

Wird aus einer Zeile mit dem GOSUB-Aufruf in ein Unter¬ 
programm gesprungen und die Zeile ist mit dem GOSUB- 
Befehl noch nicht beendet, so wird nach dem Rücksprung 
die Zeile nochmals ausgegeben. Nach Eingabe von 
< RETURN> wird dann mit dem Befehl hinter GOSUB 
fortgefahren. 

Programmbeschreibung: 

Um die Trace-Routine realisieren zu können, war es nö¬ 
tig, in die Routine einzugreifen, welche für den Programm¬ 
lauf verantwortlich ist (siehe auch Tabelle 1). Diese beginnt 
bei $A7AE und liegt im Bereich des Basic-ROM. Das ROM 
wird in das darunterliegende RAM kopiert und die nötigen 
Änderungen vorgenommen. Außer der Interpreterschleife 
muß auch der Vektor für die Fehlermeldungen verändert 
werden, da einige Betriebssystem-Routinen mit einem 
Sprung auf diesen Vektor beendet werden (LIST-Routine). 


Adressse (hex) 

Funktion 

$02: 

Index für den Goto-Modus (0 = aus, 1 = ein) 

$A9: 

Index für den Trace-Modus (0 = aus, 

1 = ein) 

$CFFC/$CFFD: 

Nummer der vorherigen Zeile 

$CFFE/$CFFF: 

Zielzeilennummer für den Goto-Modus 

$A7AE: 

Umlenken der Interpreterschleife auf $C07F 

$A851: 

Umlenken des Break-Einsprungs auf die 
Auswertung der Stop-Tastenabfrage bei $C301 

$0300: 

Umlenken des Vektors für Fehlermeldungen auf 
$C05F 

$0302: 

Umlenken des Vektors für den Basicwarmstart 
auf $C229 

$0308: 

Umlenken des Vektors der Interpreterschleife 
auf $C0C7 


Tabelle 1. Verwendete Speicheradressen (hexadezimal) 
und Ihre Funktionen 


Die Umlenkung der Interpreterschleife wird durch Ände¬ 
rung des Vektors $0308/$0309 erreicht, so wie das Einfü¬ 
gen eines Sprungbefehls bei $A7AE. Um beim Listen im 
Trace-Modus ein Abbrechen durch die Betätigung der 
STOP-Taste zu ermöglichen, wird der Break-Einsprung in 
$A851 auf eine Abfrage bei $C301 umgelenkt. Ist der Trace- 
Modus eingeschaltet, so verzweigt das Programm in die 
Eingabewarteschleife der Trace-Routine. Andernfalls wird 
die STOP-Routine normal ausgeführt. 

Um die selbstdefinierten Befehle zu erkennen, ist die In¬ 
terpreterschleife um die entsprechenden Abfragen erwei¬ 
tert. Jeweils am Anfang einer Zeile wird deren Zeilennum¬ 
mer gespeichert, und bei eingeschaltetem Trace-Modus in 
die Trace-Routine verzweigt. Hier wird geprüft, ob die 
GOTO-Marke gesetzt ist. Ist dies der Fall, so wird, falls die 
Zielzeile noch nicht erreicht ist, die Zeilennummer ausge¬ 


geben und die Zeile ausgeführt. Ist die GOTO-Marke nicht 
gesetzt, so wird die Zeile auf dem Bildschirm ausgegeben, 
und in die Eingabeschleife der Trace-Routine gesprungen. 
Hier stehen nun die in der Bedienungsanleitung beschrie¬ 
benen Befehle zur Verfügung. 

Beim P-Befehl wird ein Syntax-Check durchgeführt und 
dann in die PRINT-Routine des Betriebssystems ver¬ 
zweigt. Beim G-Befehl wird ein Syntax-Check durchge¬ 
führt, dann die Zielzeilennummer geholt und in $CFFE/ 
$CFFF gespeichert, sowie $02 auf den Wert 1 gesetzt, um 
die GOTO-Marke zu setzen. 

Beim L-Befehl wird sofort in die List-Routine des Be¬ 
triebssystems verzweigt. 

Der D-Befehl ruft die selbstgeschriebene Dump-Routine 
auf. Hier werden der Reihe nach, wie sie definiert wurden, 
die Werte sämtlicher Real-, Integer- und Stringvariablen 
ausgegeben, wobei für die Suche nach den Variablen eine 
leicht veränderte Kopie einer Betriebssystem-Routine ver¬ 
wandt wird. Ist eine Variable gefunden, so wird ihr Name ge¬ 
folgt vom Typbezeichner (%, $) und dem Gleichheitszei¬ 
chen ausgegeben. Für die Ausgabe der Variablenwerte 
werden wiederum Betriebssystem-Routinen verwandt. 

Wird das TROFF-Kommando gestartet, so werden die 
Marken für Trace und GOTO ($A9, $02) auf 0 gesetzt und 
das Programm in normaler Geschwindigkeit fortgeführt. 

Wegen der Veränderungen an der Interpreterschleife ist 
die Bearbeitung von Simons-Basic-Programmen oder an¬ 
deren Programmen, die selbstdefinierte Befehle verwen¬ 
den, nicht ohne Änderungen der Trace-Routine möglich. 
Auch Programme, die auf den Bereich des Basic-RAMs zu¬ 
greifen, sind mit Vorsicht zu genießen, da eventuell von der 
Trace-Routine benötigte Teile verändert werden könnten. 

Wollen Sie die Routine verschieben, so können Sie dies 
mit Hilfe ernes Monitors (zum Beispiel SMON) ohne weite¬ 
res tun. verschieben Sie das Programm mit dem W-Befehl 
des Monitors und rechnen Sie anschließend die Adressen 
mit dem V-Befehl um. Nun müssen noch die Werte für die 
Zeiger geändert werden. Hierzu geben Sie FIC*,C000C310 
ein und erhalten folgende Ausgabe: 


9016 

cmp#$C0 

nicht ändern 

901E 

ldy#$C0 

ändern auf $90 

902B 

ldy#$C3 

ändern auf $93 

9042 

ldx#$C0 

ändern auf $90 

904C 

ldx#$C2 

ändern auf $92 

9054 

Ida # $C7 

nicht ändern 

9056 

ldx#$C0 

ändern auf $90 


Dies ist ein Beispiel für die Verschiebung der Trace-Rou¬ 
tine von $C000 nach $9000. Bei den vollzogenen Änderun¬ 
gen handelt es sich um die High-Byte der Zeiger. Sollte die 
Verschiebung auf einen ungeraden Wert wie etwa $9223 
erfolgen, so müssen auch die dazugehörigen Low-Byte 
verändert werden. Diese stehen jeweils zwei Byte über den 
High-Bytes. (M. Winkeimann/U. Knechtel/kn) 


Name 

super 

-trace 



cOOO c325 

c058 

8d 

08 

03 

8e 

09 

03 

60 

bO 

08 

cOcO 

90 

02 e6 7b 6c 

08 

03 

20 

ce 











c060 

06 

a9 

00 

85 

a9 

85 

02 

a9 

Oe 

c0c8 

73 

00 c9 54 fO 

06 

20 

ed 

d4 

cOOO 

a9 

00 

a2 

aO 

85 

5f 

86 

60 

94 

c068 

36 

85 

01 

8a 

30 

07 

a5 

a9 

18 

cOdO 

a7 

4c 7f cO 48 

a5 

7a 

48 

cl 

c008 

aO 

00 

bl 

5f 

91 

5f 

e6 

5f 

6f 

c070 

dO 

ef 

4c 

3a 

a4 

a5 

a9 

fO 

92 

c0d8 

a5 

7b 48 20 73 

00 

c9 

52 

54 

O010 

dO 

f8 

e6 

60 

a5 

60 

c9 

cO 

28 

c078 

03 

4c 

99 

cl 

4c 

74 

a4 

20 

7b 

cOeO 

dO 

10 20 73 00 

c9 

4f 

dO 

5c 

c018 

dO 

fO 

a9 

4c 

a2 

7f 

aO 

cO 

7e 

c080 

01 

c3 

a5 

7a 

a4 

7b 

cO 

02 

49 

c0e8 

09 

20 73 00 c9 

4d 

fO 

26 

f5 

c020 

8d 

ae 

a7 

8e 

af 

a7 

8c 

bO 

8c 

e088 

fO 

04 

85 

3d 

84 

3e 

aO 

00 

40 

cOfO 

dO 

0a 68 85 7b 

68 

85 

7a 

96 

c028 

a7 

a2 

01 

aO 

c3 

ea 

ea 

ea 

8a 

c090 

bl 

7a 

fO 

03 

4c 

36 

cl 

aO 

da 








e030 

8e 

d2 

a6 

8c 

d3 

a6 

a9 

36 

e8 

c098 

02 

bl 

7a 

18 

dO 

07 

a9 

00 

00 








c038 

85 

01 

a9 

00 

85 

a9 

85 

02 

68 

cOaO 

85 

a9 

4c 

4b 

a8 

c8 

bl 

7a 

03 



•Super-trace 





c040 

a9 

5f 

a2 

cO 

8d 

00 

03 

8e 

5b 

c0a8 

85 

39 

8d 

fc 

cf 

c8 

bl 

7a 

cc 

Llstlng 1. 

« 




c048 

01 

03 

a9 

2b 

a2 

c2 

8d 

02 

15 

cObO 

85 

3a 

8d 

fd 

cf 

98 

48 

4c 

fl 

bitte mit dem MSE 





c050 

03 

8e 

03 

03 

a9 

c7 

a2 

cO 

aO 

c0b8 

5b 

cl 

68 

18 

65 

7a 

85 

7a 

46 

(Seite 

159) eingeben 
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TOOLS: FLOPPY 


C64 


c0f8 

68 

4c 

ce 

cO 

c9 

46 

dO 

f2 

4a 

clb8 

53 

c9 

54 

dO 

df 

20 

73 

00 

ec 

0278 

2a 

a5 

46 

29 

80 

dO 

55 

a5 

5b 

C100 

20 

73 

00 

c9 

46 

dO 

eb 

a9 

01 

clcO 

c9 

52 

dO 

d8 

20 

73 

00 

c9 

33 

c280 

45 

20 

d2 

ff 

a5 

46 

20 

d2 

3d 

cl08 

00 

85 

a9 

85 

02 

68 

68 

68 

bc 

clc8 

4f 

dO 

dl 

20 

73 

00 

c9 

46 

e3 

c288 

ff 

a9 

3d 

20 

d2 

ff 

a6 

5f 

36 

cllO 

20 

73 

00 

4c 

7f 

cO 

68 

68 

e4 

cldO 

dO 

ca 

20 

73 

00 

c9 

46 

dO 

85 

c290 

a4 

60 

18 

c8 

e8 

90 

01 

c8 

30 

cll8 

68 

a9 

01 

85 

a9 

20 

73 

00 

af 

cld8 

°3 

a9 

00 

85 

a9 

85 

02 

68 

cO 

c298 

8a 

20 

a2 

bb 

20 

dd 

bd 

20 

7a 

cl20 

bO 

06 

20 

aO 

a8 

4c 

7f 

cO 

5c 

cleO 

85 

7b 

68 

85 

7a 

4c 

ba 

cO 

64 

c2a0 

le 

ab 

60 

a9 

7f 

25 

45 

85 

22 

cl28 

a4 

3a 

c8 

fO 

03 

4c 

7f 

cO 

4c 

cle8 

20 

73 

00 

20 

79 

a5 

20 

73 

f2 

c2a8 

45 

a9 

7f 

25 

46 

aa 

a5 

45 

21 

cl30 

20 

71 

a8 

4c 

7f 

c0 

c9 

3a 

56 

clfO 

00 

20 

fd 

ae 

20 

aO 

aa 

4c 

aO 

c2b0 

20 

d2 

ff 

8a 

20 

d2 

ff 

a9 

76 

cl38 

dO 

le 

ad 

fc 

cf 

c5 

39 

dO 

d4 

clf8 

99 

cl 

20 

73 

00 

20 

79 

a5 

lb 

c2b8 

25 

20 

d2 

ff 

a9 

3d 

20 

d2 

4c 

cl40 

07 

ad 

fd 

cf 

c5 

3a 

fO 

Od 

a3 

c200 

20 

73 

00 

20 

9c 

a6 

20 

3f 

de 

c2c0 

ff 

c8 

bl 

5f 

48 

c8 

bl 

5f 

cc 

cl48 

a5 

39 

a6 

3a 

8d 

fc 

cf 

8e 

98 

c208 

c2 

4c 

99 

cl 

20 

73 

00 

20 

6d 

c2c8 

a8 

68 

20 

91 

t>3 

20 

dd 

bd 

Oe 

cl50 

fd 

cf 

4c 

b5 

cO 

4o 

c4 

cO 

02 

c 210 

fd 

ae 

20 

79 

00 

bO 

82 

20 

6b 

c2d0 

20 

le 

ab 

60 

a5 

46 

29 

7f 

26 

cl58 

4c 

08 

af 

a5 

7a 

48 

a5 

7b 

cO 

c 218 

6b 

a9 

a5 

14 

a6 

15 

8d 

fe 

8b 

c2d8 

85 

46 

a5 

45 

20 

d2 

ff 

a5 

76 

cl 60 

48 

a5 

a9 

fO 

7a 

a5 

02 

fO 

c2 

c220 

cf 

8e 

ff 

cf 

a9 

01 

85 

02 

ed 

c2e0 

46 

20 

d2 

ff 

a9 

24 

20 

d2 

cd 

cl68 

25 

ad 

ff 

cf 

c5 

3a 

90 

14 

f6 

c228 

4c 

df 

cl 

a9 

36 

85 

01 

a5 

e8 

c2e8 

ff 

a9 

3d 

20 

d2 

ff 

aO 

03 

c5 

cl70 

dO 

6f 

ad 

fe 

cf 

c5 

39 

90 

74 

c230 

a9 

dO 

03 

4c 

83 

a4 

a5 

7a 

75 

c2f0 

bl 

5f 

85 

22 

c8 

bl 

5f 

85 

99 

cl78 

Ob 

fO 

09 

20 

c9 

bd 

20 

d7 

fo 

C238 

48 

a5 

7b 

48 

4c 

99 

cl 

aO 

15 

c2f8 

23 

aO 

02 

bl 

5f 

20 

24 

ab 

01 

cl80 

aa 

18 

90 

5b 

a9 

00 

8d 

fe 

95 

c240 

00 

84 

10 

a5 

2d 

a6 

2e 

86 

09 

c300 

60 

a6 

a9 

fO 

18 

eO 

02 

dO 

6e 

cl88 

cf 

8d 

ff 

cf 

85 

02 

a5 

39 

89 

c248 

60 

85 

5f 

e4 

30 

dO 

04 

c5 

04 

c308 

04 

c6 

a9 

dO 

Of 

ae 

8d 

02 

94 

cl90 

a6 

3a 

85 

14 

86 

15 

4c 

20 

ba 

c250 

2f 

fO 

lf 

bl 

5f 

85 

45 

c8 

be 

c310 

eO 

02 

dO 

08 

a2 

00 

86 

02 

6f 

cl98 

c3 

20 

d7 

aa 

20 

60 

a5 

86 

5f 

c258 

bl 

5f 

85 

46 

20 

73 

c2 

a9 

df 

■c318 

86 

14 

86 

15 

60 

4c 

2c 

a8 

57 

claO 

7a 

84 

7b 

20 

73 

00 

aa 

fO 

03 

c260 

Od 

20 

d2 

ff 

a6 

60 

aO 

00 

22 

c 320 

e6 

a9 

20 

a7 

a6 

ff 

20 

00 

c3 

cla8 

36 

c9 

50 

fO 

3b 

c9 

4c 

fO 

0a 

c268 

18 

a5 

5f 

69 

07 

90 

da 

e8 

8a 











clbO 

49 

c9 

44 

fO 

51 

c9 

47 

fO 

6f 

c270 

dO 

d5 

60 

a5 

45 

29 

80 

dO 

39 

Listing 1. 

■Super-Trace 

• (Schluß) 




Besitzen Sie viele Disketten, 

auf denen noch einige Blocks frei sind? Ärgern Sie sich immer wieder 
darüber, daß neue Programme häufig zwei Blocks 
zu lang sind, um auf diese Disketten zu passen? Dann benötigen Sie unser 
Hilfsprogramm, das Ihre Diskettensammlung optimiert. 


K ennen Sie dieses Problem? Das langersehnte, drin¬ 
gend gebrauchte Programm ist endlich da. Es gefällt 
Ihnen sehr gut, und so wollen Sie es sofort kopieren. 
Doch leider hat sich auf der letzten freien Diskette schon 
gestern ein weiteres langersehntes, dringend gebrauchtes 
Programm angesiedelt... 

Es ist Sonntag, neue Disketten können Sie sich also nicht 
kaufen. Wenn Sie sich Ihre Software-Sammlung ansehen, 
stellen Sie fest, daß auf vielen Disketten noch ungefähr 20 
Blocks frei sind, nur eben auf keiner genug Platz für das 
neue Programm. Eigentlich, überlegen Sie sich, müßte es 
doch möglich sein, die alten Programme so umzukopieren, 
daß auf jeder Diskette möglichst wenig Blocks frei sind. Lo¬ 
gischerweise gewinnt man dadurch freie Disketten, da sich 
die freien Blocks auf bestimmte Floppies konzentrieren. 
Nur wie soll man die Programme umverteilen? Ziel ist es, 
unter den vielen gegebenen File-Längen diejenigen zu fin¬ 
den, die addiert nur wenig unter 664 ergeben. Da hilft nur 
Ausprobieren. 

Eigentlich könnte man diese stupide Arbeit ja auch dem 
Computer überlassen. Genau dies ist mit dem »Diskord¬ 
ner« (Listing 1) möglich: Es verteilt Files optimal auf mög¬ 
lichst wenige Disketten. Genauer gesagt, es druckt Ihnen 
eine Liste mit Vorschlägen, welches Programm auf welche 


Disk soll. Das Umkopieren müssen Sie dann selbst erledi¬ 
gen. Laden Sie das Programm mit »LOAD "DISKORD¬ 
NER",8« und starten es mit »RUN«. Dann wird ein kurzes 
Maschinenprogramm (»DISKORDNER.MC«, Listing 2) 
nachgeladen, das das Probieren übernimmt. Das Listing 2 
ist also vorher mit dem MSE einzugeben und auf Diskette 
zu speichern. Nach dem erfolgreichen Laden erscheint das 
Titelbild (Bild 1). 

Spielraum gewünscht? 


Die Files müssen nicht unbedingt so verteilt werden, daß je¬ 
de Diskette hinterher randvoll ist - obwohl auch das mög¬ 
lich ist. Es ist sinnvoller, auf jeder Floppy einen kleinen Si¬ 
cherheitsbereich von etwa drei Blocks freizulassen: Viel¬ 
leicht wollen Sie später ein Programm erweitern, oder ein 
File erzeugt plötzlich eine weitere Datei (beispielsweise 
Spielstände). Am besten übernehmen Sie daher auf die 
Frage, wieviele Blocks auf jeder Disk nach dem Umkopie¬ 
ren noch frei sein sollten, den vorgegebenen Wert (Default¬ 
wert) 3. Die Floppy meldet übrigens bereits einen DISK 
FULL ERROR, wenn nur noch ein oder zwei Blocks frei sind 
(allerdings blinkt dann die rote Lampe nicht). 
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TOOLS: FLOPPY 


Als nächstes geben Sie nun an, ob Sie die Namen der Fi¬ 
les selbst eingeben wollen (mehr Arbeit, dafür aber mehr 
Manipulationsmöglichkeiten), oder ob das Programm die 
Namen selbständig von der Diskette einiesen soll. Drücken 
Sie eine der Tasten <A> (automatisch) oder <M> (ma- 



Bild 1. Mit diesem Bildschirm meldet sich der »Diskordner« 


Eingabe von Hand 


Haben Sie sich fürdie manuelle Eingabe entschieden, geht 
es jetzt daran, den Namen und die Länge in Blocks aller Fi¬ 
les, die umverteilt werden sollen, einzugeben (Bild 3). Dazu 
machen Sie sich vorher am besten einen Ausdruck aller Di- 
rectories, deren Files Sie umkopieren wollen. 

Geben Sie in die Tabelle abwechselnd Namen und Län¬ 
ge jedes Files ein. Mehrteilige Programme sollen nicht ge¬ 
trennt werden, addieren Sie in so einem Fall einfach die 
Blockzahlen und geben Sie die Summe zusammen mit 
dem Programmnamen ein. Wenn Sie sich vertippen, kön¬ 
nen Sie jederzeit durch Eingabe eines Fragezeichens die 
letzte Eingabe wiederholen. Soll die vorletzte Eingabe kor¬ 
rigiert werden, geben Sie einfach anschließend ein weite¬ 
res Fragezeichen ein. 

Bei allen Eingaben ist der Anführungszeichenmodus 
(Quote-Modus) aktiv, Cursorbewegungen können also 
nicht durchgeführt werden. Übrigens: Wenn Sie gerne 
mehrere Programme auf dieselbe Disk kopieren wollen, ge¬ 
ben Sie diese einfach als ein File ein! 


nuell). Durch Druck auf die Taste < — > starten Sie das 
Programm neu. 

Falls Sie sich für automatischen Einzug entschieden ha¬ 
ben, werden Sie nun aufgefordert, eine Diskette einzule¬ 
gen (Bild 2). Danach werden Ihnen nacheinander die Na¬ 
men aller Files auf dieser Disk mit den Blocklängen ge- 


Automatisches Einlesen 


zeigt. Durch Druck auf < Fl > wird das entsprechende File 
in die Liste übernommen. Falls Sie mehrere Files haben, 
die zu einem Programm gehören (z.B. mehrteilige Spiele), 
drücken Sie nur beim ersten File des Komplexes <F1 >, 
bei den übrigen < F3>. Dadurch werden die übrigen Files 
nicht in die Liste aufgenommen, aber ihre Blockzahl zur 
Länge des ersten Files (das letzte, das mit < Fl > übernom¬ 
men wurde) addiert. So werden später mehrteilige Pro¬ 
gramme nicht getrennt. Wollen Sie ein File nicht in die Liste 
übernehmen, so überspringen Sie es mit <F5>. 


Diskordner U2 . 0 
Verteilt r i le s optiwal auf Disketten 
< c > nh-221187-arr Ein HSS Programm 


Ge wuejjsc hte Anzahl freie Blocks pro 

AutoMitiichtr Einzug der Flli 
nanuelle Eingabe ? lA/M/f-J 


[cnanen oder 


Bild 2. Das automatische Einlesen von Files ist sehr 
praktisch 

Das geht dann so weiter, bis alle Files auf der Diskette ge¬ 
kennzeichnet sind. Dann erscheint die Frage, ob eine neue 
Diskette bearbeitet werden soll. Beantworten Sie diese mit 

< J > oder < N >. Falls dies die letzte Diskette war (Antwort 

< N >), beginnt der C 64 nun mit den Berechnungen (siehe 
unten). Achtung: Es ist kein Schutz eingebaut, der verhin¬ 
dert, daß kein File gewählt wurde (alle mit <F5> über¬ 
sprungen). 


Di sk Ordner _ U 2 ■ O 

UerteiIt Files optinal auf Disketten 


(c ) nh 221187-arr 


Ein NSS ProgranM 


S itte geben Sie die Nanei 
in Blocks) ein ! 

Eingabe von Fehler 

Ende 


Nr . 


Hane 


Blocks 


testdatei 
sp i e 1 

MUS i k 

texte 

A?«CA paint 


Bild 3. Die manuelle Eingabe bietet mehr Möglichkeiten zur 
Manipulation 

Nach der Eingabe aller Daten tippen Sie anstelle des Na¬ 
mens < * > ein (Endekennung). Dann erscheint die Auffor¬ 
derung, den Drucker bereitzumachen und < RETURN > 
zu drücken. Ist dies geschehen, beginnt der Computer die 
optimale Anordnung zu berechnen. Anschließend er¬ 
scheint auf dem Drucker eine Liste, in der angegeben ist, 
welche Files auf welche Diskette verteilt werden sollten, um 
die Kapazität der Datenträger optimal auszunutzen. In den 
meisten Fällen beginnt der Ausdruck sofort, von Diskette zu 
Diskette wird dann die Wartezeit immer länger. Sie glauben 
gar nicht, wieviele Möglichkeiten es gibt, beispielsweise 

Programme automatisch verteilen 


sechzig Programme so zu verteilen, daß auf jeder Floppy 
nur noch drei Blocks frei sind! 

Programme, die bereits verteilt wurden, werden aus der 
Liste gestrichen, Doppelbelegungen können also nicht auf- 
treten. 

Damit Sie nicht denken, der C64 sei abgestürzt, zeigt 
das Programm während der Berechnung ständig aktuelle 
Rechendaten auf dem Bildschirm an. Deren Bedeutung er¬ 
fahren Sie in der Programmbeschreibung weiter unten. 

Am Ende der Liste wird dann noch die Anzahl der benö¬ 
tigten Disketten, die Gesamtzahl der freien Blocks und die 
Anzahl der verteilten Files (zur Kontrolle) ausgedruckt. Ihre 
Aufgabe ist es nun, die Files in der Weise umzukopieren, 
wie es der Diskordner vorschlägt. Sie werden sich wun- 
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C64 


dem, wieviel Platz man durch diese einfache Maßnahme 
gewinnt! Eine durchschnittliche Programmsammlung, die 
beispielsweise auf 30 Disketten untergebracht ist, kann 
man durch geschicktes Umverteilen auch auf etwa 22 Dis¬ 
ketten unterbringen! Gewinn: acht leere Disketten ohne ir¬ 
gendwelche Kosten. 

Jetzt noch einige Anmerkungen zum Diskordner. Wie be¬ 
reits gesagt, geht das Berechnen am Anfang sehr schnell 
vonstatten, den Inhalt der ersten Disketten hat das Pro- 

Trickreicher Algorithmus 


gramm bereits nach wenigen Sekunden ausgedruckt. Da¬ 
nach aber kann es immer länger dauern, vor allem, wenn 
es insgesamt nur noch wenige zu verteilende Files gibt und 
diese dann auch noch sehr große Blockzahlen haben. War¬ 
tezeiten um fünf bis zehn Minuten sind besonders bei den 
letzten Disketten durchaus möglich. Das Programm ist 
aber so programmiert, daß es nicht abstürzen kann; bewah¬ 
ren Sie also Geduld. 

Für Programmierer ist natürlich noch der Algorithmus in¬ 
teressant, mit dem das Programm arbeitet. 


0 REM ■=!=== = ====: = = ========== ===: = 

1 REM DISKORDNER CBM 64 V2.0 

2 REM (/) BY NIKOLAUS HEUSLER 

3 REM ZWENBAUERWEG 18 

4 REM 8000 MUENCHEN 71 

5 REM TEL. 0B9/792940 

6 REM V=2.0, REV 3 VOM 070188 

7 REM ===:==:=s = s==s=i=f==i=!s=i==3s== = = 


<024> 
<072> 
<006> 

< 1B2> 

< 123> 
<245> 

< 048> 
<031 > 
<240> 

<0B9> 


8 : 

9 POKE 1,55:DATA 120,177,216,145,216,200,2 
08,249,230,217,20B,245,76,221,253 

10 IF PEEK(49153)><93 THEN LOAD"DISKORDNER 

.MC",8,B <213> 

15 D2=664:RS*“"{39SPACE,SHIFT-SPACE > <044> 

16 FOR 1=828 TO B42: READ QsPOKE I,Q.-NEXT:S 

YS 028ePOKE 1,53:P0KE 650,128:SYS 49152 <041> 

17 POKE 53280,.:POKE 53281,. <133> 

18 DIM N*(255> ,BX(255> <088> 

20 PRINT"{CTRL-C,CLR,BREY 1,CTRL-H,CTRL-N, 

RVSON}"RS*; <106> 

21 PRINT"{7SPACEJS I S K 0 R D N E RC3SPAC 

E } V2.0{6SPACE>"j . <075> 

22 PRINT" {ZSPACEITTTTTtTTTTTTTTTTTTTTTTtTT' 

TTT C6SPACE >"; <128> 

23 PRINT"{2SPACE}VERTEILT £ILES OPTIMAL AU 

F DISKETTEN{2SPACE}"; <132> 

25 PRINT RS*"<2SPACE>(C) NH-221187-ARRI3SP 

ACEJÜIN üää .PROGRAMM{2SPACE>"; <252> 

26 PRINT RS* <203> 

28 POKE 59639,15 <070> 

29 GOTO 500 <245> 

30 BOSUB 1020: PRINT",BITTE BEBEN SIE DIE HA 

MEN UND iAENBEN <047> 

32 PRINT" (IN .BLOCKS) EIN ! <159> 

34 PRINT" {SPACE,DQWNJJüINBABE VON £EHL 

ER <090> 

36 PRINT"{13SPACE>'#’: ENDE <212> 

38 PRINT"(DOWNIHR.{3BPACEJHAME {15SPACE) JäLO 

CKS <251> 

39 AZ° 1: PRINT" 

JU UtftK <068> 

45 POKE 781,PEEK(214):SYS 59903:PRINT RIGH 

T*("{3SPACE1"+BTR*(AZ),3)j <221> 

50 BOSUB 1000:N*(AZ>="":INPUT" ":N*(AZ> <049> 

52 IF N*(AZ)< >"?"THEN 58 <241> 

54 IF PEEK(214)>17 THEN AZ=AZ~1:PRINT"{UP> 

"S <044> 

56 PRINT"{UP>“s:GOTO 45 <188> 

58 IF N* (AZ) = " "THEN 56 <U4> 

60 IF N*(AZ)="#"THEN 72 <003> 

62 B*="":PRINT"{UP,4RIBHT,SPACE)"TAB(23);: 

GOSUB 1000:INPUT B*:IF B*="?"THEN 56 <132> 

64 IF B*=""THEN 62 <140> 


Adresse 

Label 

Funktion 

0002-0003 

TMP 

temporär 

0005 

ANZPRG 

Anzahl Programm in Tabelle 

0801-.... 

BASIC 

Basic-Programm, Variablen 

C000-C161 

MCODE 

Maschinenprogramm 

COOO-COOE 

JUMPS 

Sprungtabelle 

C00F-C010 

SUMME 

Gesamtblockzahl der 
gefundenen Files auch als 
Zwischenspeicher 

C011-C012 

VON 

Untergrenze 

C013-C014 

BIS 

Obergrenze 

C015-C016 

STRESS 

Anzahl der verbleibenden 
Versuche 

C017-C01F 

GETADR 

Holt INTEGER-Wert 

C020-C031 

HOLEXP 

legt TLOW und THIGH an 

C032-C043 

BAKEXP 

holt LOW und HIGH zurück 

C044-C05C 

GEDULD 

beendet Routine, keine 

Versuche mehr 

C05D-C06B 

INIT 

Von SYS 49152 

C06C-C087 

DAZU 

Von SYS 49155 

C088-C118 

SUCHT 

Von SYS 49158 

C119-C134 

SUM 

Von SYS 49161 

C135-C161 

SCRATCH 

Von SYS 49164 

CA00-CAFF 

IND 

Indextabelle 

CBOO-CBFF 

LOW 

Low-Bytes der Blocklängen 

CC00-CCFF 

HIGH 

High-Bytes dazu 

CD00-CDFF 

ERG 

Ergebnistabelle, enthält 
Indexnummern der Files, deren 
Längen im gewünschten 

Bereich liegen 

CE00-CEFF 

TLOW 

Sicherheitskopie von LOW für 
Suchroutine 

CF00-CFFF 

THIGH 

Sicherheitskopie von HIGH 


Tabelle 1. Speicherbelegung des »Diskordners« 
(Adressen hexadezimal) 


66 B=VAL(B*>:IF B<1 OR B>DI THEN 62 
68 BX (AZ) =B: PR I NT " {UP > " TAB (23) " {SHIFT-SF'AC 
E> 

70 AZ=AZ+1:GOTO 45 
72 IF AZ=1 THEN 56 

74 AZ=AZ-1 

75 FOR 1=1 TO AZ:SYS 49155,BX<I),I:NEXT:PO 
KE 59639,7 

76 BOSUB 1020:PRINT"SITTE DRUCKER BEREITMA 

78 POKE 198,.;WAIT 198,1 

79 PRINT 11 {DOWN3-.S.K.. HIT LANGEN HARTEZEITEN 
MUSS GERECH- NET WERDEN ! 

80 OPEN 4,4,7 

81 PRINT" CDOWNJ2LUM BESCHLEUNIGEN{SPACE.RVS 
ON, SPACE J <-* {SPACE, RVOFF, SPACE 1BEDRUECKT 

LASSEN UND AUF REAKTION WARTEN ! 

02 PRINT44,"EMPFOHLENE VERTEILUNG DER OLE 
S: 

TTTFfTT 

100 BOSUB 1010:IF SU<DI THEN 300 
102 V».:VV=.:ZM=1 

104 SYS 49164:IF PEEK(5)=.THEN 400 
.1.10 GOSUB 1030 

111 SYS 49158,DI-VV,DI,(20000-V*2500)/ZM 

112 IF PEEK(2) THEN GOSUB 200.-GOTO 100 

114 IF V<7 AND VX.= . THEN V=V-H: GOTO 116 

115 VZ“1iV“7.2 

116 VV=VV+1:GOTO 110 

200 FL=1+FL: PRINT4I4: PRINT44: PRINT44, "HUF S. 

ISK HR."FL":“:PRINTM4:SU=. 

202 FOR 1 = 1 TO PEEK (2) : N=PEEI< (52479+1) 

204 PRINTW4,LEFT*(N*(N)+"<20SPACE>",20) ; 
206 PRINT44,RIGHT*("{3SPACE}"+STR*(BX(N))+ 
" BLOCKS" , 10) : SU=SLH-BX (N) : NEXT 
208 PRINT#4:PRINT#4,"FREIE BLOCKS:"D2-SU"{ 
2SPACE>£ILES:"I-1:VC=VC+I-1:GB=GB+D2-S 
U 

210 RETURN 


<178> 

<056> 

<026> 

<059> 

<016> 


< 199> 
<049> 

< 020 > 

<093> 


< 129> 

<0B2> 

<213> 
<023> 
<123> 
<011> 

< 162> 
< 102 > 
<051 > 
<218> 

< 104 > 

< 203 > 

<070> 

< 228 > 

< 10B> 

<242> 


< 157> 
< 012 > 



104 


SONDERHEFT 33 
























C64 


TOOLS: FLOPPY 


Nach der Ermittlung aller Filedaten wird zunächst eine 
Tabelle im Speicher angelegt, in der die Blockzahlen aller 
Files enthalten sind (siehe Speicherbelegung, Tabelle 1). 
Jetzt tritt das Maschinenprogramm in Aktion. Nehmen wir 
einmal an, Sie wollen drei freie Blocks pro Disk haben, also 
je 661 belegte Blocks. Das Assemblerprogramm hat nun zu 
Beginn 20000 Versuche, eine Kombination der Blockzah¬ 
len zu finden, die addiert 661 ergeben. Es geht dabei nach 
einem optimierten Zufallsprinzip vor, das sich als sehr lei¬ 
stungsstark erwiesen hat. Sobald eine Kombination gefun¬ 
den wurde, die 661 ergibt, werden die Indexnummern der 
Files an das Basic-Programm zurückgegeben, das die Fi¬ 
les dann ausdruckt. Diese Dateien werden dann aus der Li¬ 
ste gestrichen, diese wird dann »bereinigt« (die gelöschten 


SYS-Aufruf 

Wirkung 

SYS 49152 

Zufallsgenerator (SID) und Tabelle 
initialisieren. 

SYS 49155,X,Y 

Ein neues File wird In die Tabelle 
eingetragen. 

X ist die Länge (In Blocks), 

Y die Indexnummer. 

SYS 49158,Ml,MA,X 

Sucht aus der Tabelle mit maximal X Versu¬ 
chen. Flies, deren Länge zwischen Ml und 

MA (beide einschließlich) liegen. Das 

Ergebnis wird in der Tabelle ERG (siehe 
unten) übergeben, die Anzahl der Files in 
PEEK (2). Ist PEEK (2) Null, hat die Routine 
»aufgegeben«. 

SYS 49161 

Summiert die verbleibenden Blocklängen, 
Ergebnis nach PEEK (2 und 3). 

SYS 49164 

Streicht bereits verteilte Files aus der Tabelle. 


Tabelle 2. Die SYS-Aufrufe des Programms und ihre 
Funktionen 

:G'.-gR 


300 SYS 49164sIF PEEK(5)= .THEN 400 <209» 
302 SYS 49158, SU, SU, 65535: EDSIJB 200 <054> 
400 PRINT#4:PRINT44:PRINTH4,"*** EERTIG ! 


Dateien werden wirklich entfernt), und das Maschinenpro¬ 
gramm startet erneut, wieder mit 20 000 Versuchen und 661 
Blocks. 

Falls sich nach der gegebenen Anzahl von Versuchen 
unter den Files keine finden, die addiert die gewünschte 
Blockzahl (anfangs 661) ergeben (was sehr unwahrschein¬ 
lich ist), wird die untere Grenze des erlaubten Bereichs 
(obere Grenze: konstant, z.B. 661) um eins und die Anzahl 
der Versuche um 2500 herabgesetzt. Ist die Anzahl der Ver¬ 
suche gleich Null, wird mit einer konstanten Versuchsan¬ 
zahl von 2000 weitergerechnet. Das Maschinenprogramm 
sucht jetzt nicht mehr nur Files, deren Längen genau 661 
ergeben, sondern erlaubt Ergebnisse im Bereich von 660 
bis 661, nach weiteren 18000 Versuchen von 659 bis 661 
und so weiter. Dadurch wird optimaler Platzgewinn erreicht. 

Dieses Verfahren geht so lange weiter, bis die Summe 
der verbleibenden Längen beispielsweise unter 661 ist. 
Dann kommen die verbleibenden Files auf die letzte Disket¬ 
te, und das Programm wird beendet. 

Die SYS-Befehle, mit denen das Maschinenprogramm 
gesteuert wird, entnehmen Sie bitte der Tabelle 2. 

Ich wünsche Ihnen viele freie Disketten mit dem Diskord¬ 
ner! (Nikolaus Heusler/rs) 


540 PRINT",aiTTE fllSK &INLEBEN ! ( HETuRH ) ■': 

POKE 198,•:WAIT 198,1:XL=. <202» 

542 CL.OSE .2: OPEN 2,8,0, "*0" s BET#2, A*, A* <013> 
544 BET#2, M , A$,L*, H*: BL=ASC(L$+CHR*(.)>+2 

56*ASC(H*+CHR*(.)) <235> 

546 BETW2, M :IF A*<»CHR*(34)AND A$>""THEN 

546 <214> 

547 IF A*=""THEN 5B0 <002» 

548 NM'i=" <235» 

550 GET#2,A*:IF A$<»CHR$(34)THEN NM*=NM*+A 

*:GOTO 550 <065> 

551 GET#2,A*:IF A$THEN 551 <080> 

552 (FF XL=. THEN XL=l:GOTO 544 <070> 

553 BOSUB 600:POKE 198,. <060» 

556 BET A*:IF A$=" CF53"THEN 544 <201> 

55B IF A$="CF33"AND AZ>.THEN 570 <031» 

560 IF CF13"THEN 556 <202> 


*** <239> 

402 PRINTW4:PRINT44,"S3 WURDEN"VC"VON"AZ"£ 

ILES VERTEILT <040> 

404 PRINT#4,"ANZAHL filSKETTEN:"FL <013> 

406 PRINT#4,"AREIE 3L0CKS AUF DIESEN AISKE 

TTEN:"BEnCLOSE 4 <096> 

40B PRINT" C4DOWN3£.EjiIiS !!!":SYS 49164 <004> 

409 PRINT" CDOWN3,ANZAHL £1SKETTEN: "FL <214> 

410 IF PEEK (5) >. OR AZOVC THEN PRINT" CDOWN 

3777AYSTEMFEHLER <093> 

412 END <160> 

500 PRINT"CßREY 23fiEWUENSCHTE ANZAHL FREIE 

BLOCKS PRO <001» 

502 BOSUB 10021 INPUT " ,BISK C3SPACE 33 C3LEFT 3 " 

J FR:IF FR<.OR FR»D2-1 THEN PRINT"C2UP3 
":GOTO 502 <051» 

504 DI=D2~FR:PRINT"{DOWN3AUTOMATISCHER &IN 

ZUB DER AILENAMEN ODER <032> 

506 PR INT "MANUELLE EINGABE 7 Cfl/fl/l-3 <114» 

508 BET A*:IF A*="<-"THEN RUN <092» 

510 IF A*="M"THEN 30 <1B8> 

512 IF A*»<"A"THEN 508 <135» 

520 BOSUB 1020: PRINT"fllJTMATISCHER ÜINZUB. 

,STEUERUNG: <244» 

522 PRINT" {DOWN, 3SPACE,RVSDN, SPACE3F1 CSF'AC 
E, RVOFF, UP, 4L.EFT»ITÖTJ'ÖCDOWN, SPACE3“ £1E 
SES AI LE IJEBERNEHMEN <130» 

524 PRINT"C3SPACE,RVSON,SPACE 3F3 <SPACE,RVO 

FF,SPACE3“ JBLOCKLAENBE DIESES AILES <097» 

526 PRINT" CBSPACE3= ZUR i/tENBE DES LETZTEN 

ADDIE- <047» 

528 PRINT"{3SPACE3®3Se<3SPACE3REN, NICHT U 

EBERNEHMEN <1B8» 

530 PRINT"C3SPACE,RVSON,SPACE 3F5 CSPACE,RVO 
FF,SPACE 3= SIEGES £ILE UEBERSPRINGEN CD 
OWN3 <198» 

532 POKE 59639,15 <066» 


562 PRINT"CUP3"TAB(27)"2C2SHIFT-SPACE,DOWN 
3" : AZ=AZ+1: N$ (AZ) =NM$:B3C(AZ) =BL: GOTO 5 
44 <078» 

570 B7. (AZ) “BX (AZ) +BL: NM$=N$ (AZ) : BL=B7. < AZ) : 

PRINT"C2UP3":BOSUB 600 <125» 

572 PRINT"CUP3"TAB(27)"2C2SPACE,DOWN3":GOT 

O 544 <015» 

580 PRINT"CUP,2SPACE3SOCH EINE AISKETTE 7 

CS./ A3 CBSPACE, SHIFT-SPACE3 <249» 

582 BET A*:IF A*="N"THEN 75 <229» 

584 IF A*<>"J"THEN 582 <087» 

586 PRINT"C2UP3"iGOTO 540 <249» 

600 BL$=STR*(BL):BL*=RIGHT$("CBSPACE 3"+BL$ 

+"C2SPACE3",9) <090» 

602 PRINT"CUP3"BL*NM*LEFT*(RS*,18-LEN(NM*> 

)"77?C7SPACE3":RETURN <249» 

1000 POKE 19B,2:POKE 631,34:POKE 632,20:RE 

TURN <104» 

1002 POKE 198,3:POKE 631,34;P0KE 632,20:PO 

KE 633,51:RETURN <097» 

1010 SYS 49161:SU=PEEK(2)+256*PEEK(3):RETU 

RN <059» 

1020 FOR X=*8 TO 24: POKE 7B1,X:SYS 59903: NE 

XT:POKE 214,8:SYS 58732:RETURN <052» 

1030 PRINT" JJ'I ARBEIT: £ISK" 1+FL" CLEFT3, MA 
X.FREI:"D2-DI+VV"CLEFT,3SPACE,SHIFT-S 
PACE3 <005» 

1032 PRINT"MAX.VERSUCHE:"INT<(20000-V*2500 

)/ZM)"CLEFT,3SPACE,SHIFT-SPACE» <067» 

1034 PRINT"SUMME:"SU"CLEFT3, ANZ.AILESt NO 
CH"PEEK(5)"CLEFT,3SPACE,SHIFT-SPACE,3 

UP3 <108» 

1035 BET A*:IF A*="t-"THEN ZM=100 ‘ <096» 

1036 RETURN <078» 


Listing 1. Der Diskordner schafft Platz und spart 
Geld für neue Disketten. Bitte mit dem 
Checksummer (Seite 159) eingeben. 
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C64 


Name : diskordner.mc cOOO cl62 


cOOO 

: 4c 

5d 

cO 

4c 

6c 

cO 

4c 

88 

c4 

c008 

: cO 

4c 

19 

cl 

4c 

35 

cl 

00 

e2 

C010 

: 00 

00 

00 

00 

00 

00 

00 

20 

51 

c018 : 

: fd 

ae 

20 

8a 

ad 

4c 

f7 

b7 

52 

c020 : 

: a2 

00 

bd 

00 

cb 

9d 

00 

ce 

79 

c028 : 

: bd 

00 

cc 

9d 

00 

cf 

e8 

dO 

90 

c030 : 

: fl 

60 

a2 

00 

bd 

00 

ce 

9d 

4c 

c038 : 

: 00 

cb 

bd 

00 

cf 

9d 

00 

cc 

11 

c040 : 

: e8 

dO 

fl 

60 

ad 

15 

cO 

dO 

41 

c048 : 

: 03 

ce 

16 

cO 

ce 

15 

cO 

dO 

8a 

c050 : 

: Ob 

ad 

16 

cO 

dO 

06 

a9 

00 

b3 

c058 : 

: 85 

02 

68 

68 

60 

a9 

00 

85 

64 

c060 : 

: 05 

a9 

64 

8d 

Of 

d4 

a9 

81 

46 

c068 : 

8d 

12 

d4 

60 

20 

17 

cO 

a6 

4b 

c070 : 

05 

e6 

05 

9d 

00 

cc 

98 

9d 

el 

0078 : 

00 

cb 

8e 

Of 

cO 

20 

fl 

b7 

28 

c080 : 

8a 

ae 

Of 

cO 

9d 

00 

ca 

60 

03 


c088 

20 

17 

cO 

8d 

12 

cO 

8c 

11 

91 

e090 

cO 

20 

17 

cO 

8d 

14 

cO 

8c 

d4 

c098 

13 

cO 

20 

17 

cO 

8d 

16 

cO 

49 

cOaO 

8c 

15 

cO 

78 

20 

20 

cO 

a9 

4f 

c0a8 

00 

8d 

Of 

cO 

8d 

10 

cO 

85 

b2 

cObO 

02 

20 

44 

cO 

ad 

lb 

d4 

c5 

7e 

c 0 b 8 

05 

90 

04 

e5 

05 

dO 

f8 

aa 

d3 

cOcO 

bd 

00 

ce 

dO 

05 

bd 

00 

cf 

29 

c0c8 

fO 

e7 

ad 

Of 

cO 

18 

7d 

00 

bc 

cOdO 

ce 

8d 

Of 

cO 

ad 

10 

cO 

7d 

9a 

c0d8 

00 

cf 

8d 

10 

cO 

a9 

00 

9d 

ba 

cOeO 

00 

ce 

9d 

00 

cf 

a4 

02 

bd 

54 

c0e8 

00 

ca 

99 

00 

cd 

e6 

02 

ad 

2b 

cOfO 

10 

cO 

cd 

14 

cO 

90 

Oc 

dO 

b9 

c0f8 

ab 

ad 

Of 

cO 

cd 

13 

cO 

90 

ef 

clOO 

02 

dO 

al 

ad 

10 

cO 

cd 

12 

eb 

cl08 

cO 

90 

a6 

dO 

08 

ad 

Of 

cO 

80 

cllO 

cd 

11 

cO 

90 

9c 

58 

4c 

32 

ca 

cll8 

cO 

a9 

00 

85 

02 

85 

03 

a6 

03 


cl20 : 

: 05 

ca 

bd 

00 

cb 

18 

65 

02 

11 

cl28 : 

: 85 

02 

a5 

03 

7d 

00 

cc 

85 

8e 

cl30 : 

: 03 

8a 

dO 

ed 

60 

aO 

00 

a2 

ba 

cl38 : 

: 00 

bd 

00 

cc 

dO 

09 

bd 

00 

fd 

cl40 : 

: cb 

dO 

04 

e8 

4c 

5b 

cl 

bd 

b4 

cl48 : 

: 00 

cc 

99 

00 

cc 

bd 

00 

cb 

67 

cl50 : 

: 99 

00 

cb 

bd 

00 

ca 

99 

00 

51 

cl58 : 

: ca 

c8 

e8 

e4 

05 

90 

da 

84 

a6 

cl60 : 

: 05 

60 

46 

49 

4c 

45 

4e 

4l 

fb 


Llsting 2. Die Maschinenroutine 
»DISKORDNER.MC« beschleunigt 
die Berechnung. Bitte mit dem 
MSE (Seite 159) eingeben. 


Die Scratch 



Haben Sie schon einmal ein sehr 
wichtiges File von der Diskette 
gelöscht? Kennen Sie die verzweifelten 
Bemühungen, dieses File zu retten? 
Damit Ihnen das nie wieder passiert, 
bieten wir eine »Scratch-Sperre«. 


D a haben Sie eine Diskette, auf der sich einige wichtige^ 
und auch mehrere unwichtige Programme befinden. 
Nun wollen Sie mal wieder auf dieser Diskette aufräu- 
men, gehen mit dem großen "SCRATCH"-Beil ans Werk 
und »fällen« alle unwichtigen Programme. Hoppla! Das zu¬ 
letzt gelöschte Tool hätten Sie noch dringend gebraucht. 
Warum ist das nur passiert? Gibt es denn keine Hilfe, um 
wichtige Programme vor versehentlichem Löschen zu 
schützen? 

Diese Hilfsfunktion gibt es, nur ist sie nicht so leicht zu 
nutzen. Wie einige von Ihnen vielleicht wissen, besteht bei 
der Floppy 1541 die Möglichkeit, Files im Directory gegen 
SCRATCH und RENAME zu schützen. Dazu muß im Byte, 
das den Filetyp angibt, das Bit 6 gesetzt werden. Dazu gibt 
es mehrere Möglichkeiten: Entweder erledigen Sie dies mit 
einem Diskmonitor oder beispielsweise mit dem »DISC- 
WIZARD« aus dem 64’er-Magazin (Listing des Monats, 
Ausgabe 5/86). 

Im ersten Fall wird der Einsteiger passen, der sich mit 
Manipulationen der Diskette nicht auskennt, im zweiten Fall 
schießen Sie mit Kanonen auf Spatzen. Doch jetzt gibt es 
das Programm »FILELOCK«. Es ist die weltweit erste be¬ 
kannte Befehlserweiterung für dieses Problem. 

Geben Sie Listing 1 mit dem MSE ein und speichern es 
auf Diskette. Laden Sie anschließend das Programm mit 
»LOAD " FILELOCK" ,8« und starten Sie es mit »RUN«. Nun 
wird ein kleines Maschinenprogramm geladen und in das 
Floppy-RAM übertragen. Danach erscheint eine Kurzanlei¬ 
tung, die neuen Befehle sind dann aktiv: 

UC:NAME(N) File(s) schützen 

UD:NAME(N) File(s) freigeben 

»NAME(N)« wird wie beim SCRATCH-Befehl übertragen. 
Einige Beispiele dazu: 

OPEN 15,8,15,"UC:TASTATUR": 

Das File mit dem Namen »Tastatur« wird gegen Löschen 
geschützt. Dabei wird automatisch das Bit 6 gesetzt. 


PRINT#15,"UD:KREISEL" 

Das File -KREISEL« wird wieder freigegeben, das heißt, 
das Bit 6 des Filetypes wird gelöscht. 

PRINT#15, "UC:*" 

Alle Files dieser Diskette werden geschützt. 

PRINT#15, "UC:?EE" 

Alle dreibuchstabigen Files mit »E« als zweitem und drit¬ 
tem Buchstaben, beispielsweise »SEE«, »FEE«, »TEE« wer¬ 
den geschützt. 

PRINT#15, "UD:AN???#" 

Alle Files, deren Namen mit »AN« beginnen und minde¬ 
stens fünf Buchstaben umfassen, werden freigegeben. 

CLOSE 15 

Der Befehlskanal (Nummer 15) wird ordnungsgemäß ge¬ 
schlossen. 

Dazu noch einige Hinweise: 

Wenn das Directory einer Diskette sehr viele Files ent¬ 
hält, kann es unter Umständen einige Sekunden dauern, 
bis der Befehl ausgeführt ist. 

Da die Floppystation nur die unteren 4 Bit des Zeichens 
nach dem »U« beachtet, kann statt »UC« auch »U3« und 
statt »UD« auch »U4« geschrieben werden. 

Wie lange ist diese Befehlserweiterung verfügbar? So¬ 
lange wie das Maschinenprogramm im Puffer 2 ($500) des 
Floppy-RAM steht. Das ist so lange der Fall, bis Sie einen 
Reset auslösen oder die Floppy abschalten. Auch wenn Sie 
nach dem Aktivieren von »FILELOCK« sehr viele oder kom¬ 
plexe Operationen mit der Diskette durchgeführt haben, 
kann es passieren, daß der Puffer 2, obwohl er vom »FILE¬ 
LOCK« als belegt gekennzeichnet wurde, mittlerweile an¬ 
derweitig belegt ist. Eine Verwendung der zwei Befehle 
würde dann zum Absturz des Laufwerks führen. Laden Sie 
in einem solchen Fall lieber das Programm noch einmal. 

Interessierte Programmierer finden in Listing 2 das kom¬ 
mentierte Assembler-Listing des Programms im Floppy- 
RAM. (Nikolaus Heusler/rs) 
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Name : fileloek 0801 1191 


0801 

: 2d 

08 

0a 

00 

99 

22 

93 

11 

dO 

0809 

: 20 

20 

20 

20 

2a 

2a 

2a 

2a 

36 

0811 

: 20 

46 

49 

4c 

45 

4 c 

4f 

43 

ab 

0819 

: 4b 

20 

46 

55 

45 

52 

20 

56 

c5 

0821 

: 43 

20 

31 

35 

34 

31 

20 

2a 

09 

0829 

: 2a 

2a 

2a 

00 

5c 

08 

Oc 

00 

29 

0831 

: 99 

22 

11 

20 

53 

43 

48 

55 

3f 

0839 

: 45 

54 

5a 

54 

20 

46 

49 

4c 

bb 

0841 

: 45 

53 

20 

56 

4f 

52 

20 

44 

93 

0849 

: 45 

4d 

20 

53 

43 

52 

41 

54 

lc 

0851 

: 43 

48 

20 

55 

4e 

44 

20 

52 

97 

0859 

: 45 

2d 

00 

88 

08 

Oe 

00 

99 

6a 

0861 

: 22 

20 

20 

20 

4e 

41 

4d 

45 

4e 

0869 

: 20 

42 

45 

46 

45 

48 

4c 

2e 

e9 

0871 

: 20 

28 

43 

29 

20 

4e 

2e 

20 

09 

0879 

: 48 

45 

55 

53 

4c 

45 

52 

20 

9c 

0881 

: 30 

35 

30 

37 

38 

36 

00 

b8 

e6 

0889 

: 08 
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20 

fb 

0f89 : 

: 20 

20 

20 

20 

28 

43 

29 

20 

47 

0f91 : 

: 4e 

49 

47 

20 

53 

4f 

46 

54 

cb 

0f99 : 

: 57 

41 

52 

45 

20 

53 

45 

52 

24 

Ofal : 

: 56 

49 

43 

45 

20 

4e 

53 

53 

7e 

0fa9 : 

: 00 

d9 

Of 

4c 

00 

99 

22 

11 

5b 

Ofbl : 

; 41 

4c 

4c 

20 

52 

49 

47 

48 

4d 

0fb9 ! 

: 54 

53 

20 

52 

45 

53 

45 

52 

b2 

Ofcl : 

: 56 

45 

44 

2c 

20 

42 

45 

55 

24 

0fc9 ; 

54 

5a 

55 

4e 

47 

20 

4l 

55 

8f 

Ofdl : 

46 

20 

45 

49 

47 

45 

2d 

00 

f5 

0fd9 : 

ea 

Of 

4d 

00 

99 

22 

4e 

45 

Od 

Ofel : 

20 

47 

45 

46 

41 

48 

52 

2e 

bb 

0fe9 : 

00 

38 

10 

4e 

00 

99 

22 

11 

4b 

Offl : 

42 

45 

4c 

45 

47 

55 

4e 

47 

78 

0ff9 : 

20 

44 

45 

52 

20 

50 

55 

46 

3d 

1001 : 

46 

45 

52 

20 

28 

4d 

4f 

4d 

47 

1009 : 

45 

4e 

54 

41 

4e 

29 

3a 

20 

0a 

1011 : 

20 

20 

20 

20 

20 

20 

20 

20 

11 


1019 

: a 3 

a3 

a3 

a3 

a3 

a 3 

a3 

a3 

18 

1021 : 

: a3 

a3 

a3 

a3 

a3 

a3 

a3 

a3 

20 

1029 

: a3 

a3 

a3 

a3 

a3 

a3 

a3 

a3 

28 

1031 : 

: a3 

a3 

a3 

a3 

a3 

a3 

00 

60 

lb 

1039 : 

: 10 

4f 

00 

99 

22 

50 

46 

2e 

3e 

1041 . 

: 20 

30 

20 

20 

20 

20 

20 

20 

49 

1049 : 

: 31 

20 

20 

20 

20 

20 

20 

32 

7e 

1051 : 

: 20 

20 

20 

20 

20 

20 

33 

20 

9e 

1059 : 

: 20 

20 

20 

20 

20 

34 

00 

8f 

58 

1061 : 

: 10 

50 

00 

98 

31 

35 

2c 

22 

5e 

1069 : 

: 4d 

2d 

52 

4f 

02 

22 

3a 

al 

29 

1071 : 

: 23 

31 

35 

2c 

4l 

24 

3a 

4l 

aO 

1079 : 

: 4l 

b2 

28 

c6 

28 

4l 

24 

aa 

69 

1081 : 

: c7 

28 

30 

29 

29 

29 

3 a 

4l 

d5 

1089 : 

; b2 

34 

bO 

41 

41 

00 

be 

10 

d9 

1091 : 

: 51 

00 

99 

22 

ld 

ld 

ld 

ld 

f6 

1099 : 

; 22 

3b 

3a 

81 

49 

b2 

2e 

a4 

44 

lOal : 

: 34 

3a 

8b 

41 

af 

28 

32 

ae 

60 

10a9 i 

: 49 

29 

a7 

99 

22 

12 

42 

45 

ea 

lObl : 

: 4c 

45 

47 

54 

92 

20 

22 

3b 

25 

10b9 : 

: 3a 

89 

38 

33 

00 

ce 

10 

52 

88 

10c 1 : 

: 00 

99 

22 

46 

52 

45 

49 

20 

94 

10c9 

: 20 

20 

22 

3b 

00 

e5 

10 

53 

ff 

10dl 

: 00 

82 

3a 

98 

31 

35 

2c 

22 

66 

10d9 

: 4d 

2d 

57 

4f 

02 

01 

22 

c7 

bd 

lOel 

: 28 

41 

29 

00 

f4 

10 

54 

00 

15 

10e9 

: aO 

31 

35 

3a 

97 

31 

39 

38 

Of 

lOfl 

: 2c 

2e 

00 

fa 

10 

63 

00 

80 

bl 

10 f 9 

: 00 

Of 

11 

64 

00 

84 

31 

35 

a5 

1101 

: 2c 

46 

31 

2c 

46 

31 

24 

2c 

f9 

1109 

: 46 

32 

2c 

46 

33 

00 

lb 

11 

fe 

1111 

: 66 

00 

8b 

46 

31 

b3 

32 

a7 

ec 

1119 

: 8e 

00 

3e 

11 

68 

00 

99 

22 

8a 

1121 

: 11 

44 

49 

53 

4b 

45 

54 

54 

ea 

1129 

: 45 

4e 

46 

45 

48 

4c 

45 

52 

70 

1131 

: 20 

4e 

55 

4d 

4d 

45 

52 

22 

04 

1139 

: 46 

31 

22 

21 

00 

4f 

11 

6a 

58 

Il4l 

: 00 

99 

22 

54 

45 

58 

54 

3a 

fe 

1149 ■ 

: 20 

22 

46 

31 

24 

00 

68 

11 

38 

1151 ■ 

: 6c 

00 

99 

22 

53 

50 

55 

52 

la 

1159 ■ 

: 22 

46 

32 

22 

20 

53 

45 

4b 

b8 

1161 . 

: 54 

4f 

52 

22 

46 

33 

00 

75 

lf 

1169 : 

: 11 

6e 

00 

aO 

38 

3a 

aO 

31 

00 

1171 : 

: 35 

3a 

80 

00 

8f 

11 

c8 

00 

88 

1179 : 

: al 

23 

38 

2c 

41 

24 

3a 

41 

eO 

1181 ; 

: b2 

c6 

28 

41 

24 

aa 

c7 

28 

dO 

1189 : 

: 2e 

29 

29 

3a 

8e 

00 

00 

00 

c6 


Listing 1. »FILELOCK« (Schluß) 



*= $500 

;Puffer 2 


Jmp lock 

;UC: schützen (LOCK) 


jmp unlock 

;UD: freigeben (UNLOCK) 
iHauptprogramm 

routine 

sta $3c 

j LOCK/UNLOCK-Klag merken 

(unbenutzte Speicherzelle) 


lda $24f:ora #4:sta $24f 

,-Puffer 2 "belegen" 


lda #10: sta $22a 

;Syntax wie SCRATCH 


jsr $elee 

iParameter holen, Syntax-Text 


jsr $c398 

;Filetyp, Werte setzen 


jsr $c320 

jDrivenummer holen 


jsr $c3ca 

;Laufwerk vorbereiten 


jsr $c49d 

;File sucheig^gp onUflfK 1 
;nicht gefunden 


bmi ende 

suchloop 

jsr $ddb7:boc notclosed 

,-geschlossen? 


ldy #0:lda ($94),y 

;Filetyp holen 


bit $3c 

;Flag: LOCK oder UNLOCK ? 


bpi an 

;0 => LOCK 


and #$bf:jmp setz 

;Bit 6 löschen, freigeben 

an 

ora #$40 

jüit 6 setzen, schützen 

setz 

sta ($94),y:jsr $c8bb 

;Filetyp setzen, Block schreiben 

notclosed 

jsr $c48b:bpl suchloop 

;noch ein File ? 

ende 

jmp $cl94 

;0K und fertig 

lock 

lda #0:beq routine 

jflag := 0 ? > LOCK 

unlock 

lda #-l:bne routine 

; flag := 255 => LOCK 

Listing 2. Das kommentierte Quellcode-Listing des 

Assemblerprogramms im Floppy-RAM 



Suchen Sie eine einfache Lösung zum Anzeigen 
aller Einträge im Directory, zur grafischen Darstel¬ 
lung der BAM oder zur genauen Betrachtung ein¬ 
zelner Files, Tracks oder Sektoren? Hier ist sie - 
sogar mit Druckerausgabe. 

as einmal nur ein kleines Demo für eine Basic- 
Screenswap-Routine werden sollte, wuchs im Lau¬ 
fe der Zeit immer mehr und wurde ein »Fatman«, 
ein ziemlich umfangreiches Basic-Programm, das ein sehr 
brauchbares Hilfsmittel für die Diskettenarbeit darstellt. 
Der Name »Fatman« (Listing 1) bedeutet aber auch »File Al¬ 
location Table Manager«, womit die Hauptaufgabe des Pro¬ 
gramms Umrissen wird. Enthalten sind Funktionen zum An¬ 
zeigen der BAM, zum Durchscannen einzelner Files oder 
der ganzen Diskette, zum Senden von Floppybefehlen und 
zum Auflisten von Directories. Die Datenausgabe erfolgt in 
einem Fenster auf dem Bildschirm, eine integrierte Hard¬ 
copy-Routine bringt das Ganze mit Hilfe eines Druckers 
auch aufs Papier. Die in Listing 1 abgedruckte Originalver¬ 
sion ist in Basic geschrieben und arbeitet bei manchen Vor¬ 
gängen etwas langsam. Auf der Programmservice-Diskette 


Disketten 

befindet sich zusätzlich eine compilierte Fassung, die ei¬ 
nen wesentlichen Geschwindigkeitsvorteil bringt. 

»Fatman« initialisiert beim Start sofort die eingelegte Dis¬ 
kette und liest deren Namen ein. Dann baut er die ständige 
Bildschirmmaske auf. Links erscheint das Logo »Fatman«, 
daneben Diskettenname und ID als Überschrift, darunter- 
bis vor die letzte Zeile - ein Rahmen, in dem später die Aus¬ 
gaben erfolgen. Ganz unten kommen die einzelnen Menü¬ 
punkte. Sechs Programmfunktionen lassen sich über die 
hervorgehobenen Buchstaben anwählen, zwei weitere ha¬ 
ben keine besondere Anzeige. 

1. BAM (Block Availability Map) 

Die ersten 164 Byte von Spur 18, Sektor 0 der Diskette 
werden eingelesen. Diese Spur enthält ab dem fünften By¬ 
te (in Vierergruppen zusammengefaßt) die Karte der vom 
DOS nicht belegten, also noch verfügbaren Blöcke (daher 
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auch der Name »Block Availability Map«). Das erste Byte 
der Vierergruppe gibt an, wie viele Blöcke dieser Spur noch 
frei sind (damit wird »Bytes free« errechnet), die restlichen 
drei Byte müssen bitweise interpretiert werden. Jedes Bit 
steht für einen Sektor der jeweiligen Spur: steht es auf 1, ist 
der Sektor frei, sonst nicht. Von den 24 Bit werden maximal 
21 Bit benutzt (Spur 1-17), mindestens jedoch 17 Bit (Spur 
31 - 35). Das Programm bringt alle 35 Spuren nebeneinan¬ 
der auf den Bildschirm, es wird also jeweils die komplette 
Diskette angezeigt (Bild 1). Ein Punkt (».«) heißt »nicht be¬ 
legt«, ein »+« oder ein »d« (für »Directory«) bedeutet »be¬ 
legt«. Die Directory-Spur ist zusätzlich farblich gekenn¬ 
zeichnet. So kann man leichter zählen, wenn man einen be¬ 
stimmten Block sucht. Die Sektornummern stehen links in¬ 
nerhalb des Rahmens. Die Anzeige »Bytes free« schließt 
die Directory-Sektoren mit ein. Wer das ändern möchte, 
muß die Zeile 105 entsprechend modifizieren. 

Die BAM-Routine (Zeile 6 -145) benutzt ein dreifach ver¬ 
schachteltes »FOR..NEXT« und errechnet den Bit-Zustand 


HiL 


scannt), bei Angabe eines Filenamens überprüft das Pro¬ 
gramm zunächst im Directory, ob ein solcher Eintrag exi¬ 
stiert und beginnt erst dann (bei erfolgreicher Suche) mit 
der Anzeige. Programmnamen dürfen bekanntlich auch 

Sind freie Blöcke leer? 


aus Ziffern bestehen. Wenn die Ziffern eine Track-/Sektor- 
nummer sein könnten, sollte man den Namen besser mit 
dem Joker (»*«) abkürzen. Der Stern gilt in jedem Falle als 
Joker. Gibt man den Stern allein ein, so werden sämtliche 
noch freien Blöcke der Diskette daraufhin abgetastet, ob 
nicht vielleicht doch etwas in ihnen verborgen ist. Blöcke, 
die irgend etwas enthalten, was nicht den üblichen Forma¬ 
tierungszeichen entspricht (»75,1« oder »0,0« als erste Bytes 
im Block), erhalten einen Stern als Kennung. Trifft das Pro¬ 
gramm auf einen fehlerhaften Block, wird der Scan-Vor¬ 
gang unterbrochen, der 


Disk: neu 


DiSkID: hc 


++++++++++++ 
++++++++++++ 
++++++++++++ 
++++++++++++ 
++++++++++++ 
++++++++++++ 
*+++++++++++ 

8»+++++++H+++++++. 
9. . +++++++++++++++. 

II1++++++++++++++++! 

14!++++++++++++++++. 

15. ++++♦++++++♦+♦♦♦. 

16. +++++♦++♦++++♦♦+. 

17.. +++++++♦+++♦+♦♦. 
18.+++++++++++++♦++ 

19 .. ++♦++++++++++++ 
20 . + + + + ++++ +++•§-+++ 


♦++++♦+++ 
+++++++++ 
+++++++++ 
+++++++++ 
+++++++++ 
+++++++++ 
+++++++++ 


+++++++++++-M-++I 
+4 i .1- : ti -i *^++++. 
+++++++++ 
+++++++++++++++ 



+++++JJ+J+++ 
++++++ 


77 Blocks free 


U3an öc an LiJext Iflijr D0s 

Bild 1. Übersicht auf allen Disketten. 


EBit _ 


unter der Lupe 

mit ainom Rnnlocrhon Ai icHri ir'k /in 7oilo 117\ .Qio hftnfttint * 


mit einem Booleschen Ausdruck (in Zeile 117). Sie benötigt 
daher etwas Zeit, auch nach der Compilierung (dann dau¬ 
ert sie etwa eine halbe Minute). 

2. SCAN 

Dieser Programmteil ermöglicht zusammen mit der Di¬ 
rectory-Funktion interessante Einblicke in das Innenleben 
der Diskette. Zuerst wird - falls noch nicht geschehen - die 
BAM angezeigt, wie unter Punkt 1 beschrieben. Danach 
kann man einen Filenamen oder einen beliebigen Track 
und Sektor angeben (ab dem dritten Eingabezeichen wird 
eine Sektornummer erwartet) und »Fatman« hebt die zuge¬ 
hörigen Blöcke des angeforderten Programms in heller Far¬ 
be hervor. So erhält man auf einfachste Weise einen Über¬ 
blick über die Lage der Dateien auf der Diskette. 

Wenn man eine Track- und Sektornummer angegeben 
hat, werden die zugehörigen Blöcke sofort abgetastet (ge¬ 


Fehler angezeigt und eine 
Bestätigung erwartet. Alle 
Tasten außer <X> setzen 
des Scannen fort. Die Feh¬ 
lerstelle wird mit »I« ge¬ 
kennzeichnet. 

Hat man SCAN verse¬ 
hentlich aufgerufen, ge¬ 
langt man mit <X> und 
< Return > wieder ins 
Hauptmenü zurück. 
SCAN liegt zwischen den 
Zeilen 2500 und 2600 und 
benutzt gegebenenfalls 
eine File-Suchroutine (ab 
2600), einen Block-Tracer 
(2700-2750) und eine 
Scan-All-Routine (zwi¬ 
schen 1700 und 1800). 

3. NEXT 

NEXT initialisiert eine 
neueingelegte Diskette 
und zeigt deren Namen 
an. Dieser Menüpunkt ist 
nötig, wenn man nur Direc- 
tories auflisten will. Die zu¬ 
gehörige Routine liegt zwi¬ 
schen den Zeilen 5 und 20. 

4. DIR 

Beim Aufruf von DIR (Di¬ 
rectory) wird der gegen¬ 
wärtige Inhalt des Bild¬ 
schirms einschließlich des 
Farb-RAMs in $C000 
(49152) zwischengespei¬ 
chert, und der Inhalt des Ausgaberahmens gelöscht. Da¬ 
nach liest »Fatman« je zwei Directory-Blöcke ein (16 Einträ¬ 
ge), bereitet sie für den Bildschirm auf und zeigt sie an. Auf 
Tastendruck geht es weiter bis zum Ende. Das Directory 
kann man mit <X> jederzeit abbrechen. 

Außer den normalen Directory-Informationen (Name, 
File-Typ, Länge) zeigt DIR auch Spur und Sektor des ersten 
File-Blocks an, bei REL-Files zusätzlich die Record-Länge. 
Bei GEOS-Disketten erscheint an dieser Stelle eine »1«, 
wenn es sich um VLIR-Dateien handelt. Solche Dateien 
können mit »Fatman« nicht gescannt werden. Denken Sie 
auch daran, daß GEOS den Standard-ASCII-Code bei Tex¬ 
ten benutzt, so daß GEOS-Dateinamen von »Fatman« nicht 
akzeptiert werden. Scannen Sie hier mit Track und Sektor. 
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Beim Scannen auf GEOS-Disketten wird immer ein Block 
weniger angezeigt als die Angabe bei der Dateilänge aus¬ 
weist. Der fehlende Block ist der Info-Block, den alle GEOS- 
Dateien besitzen. 

Das Directory listet auch alle vom DOS gelöschten Files 
auf, sofern sie nicht von neuen Einträgen überdeckt wur¬ 
den. Der File-Typ DEL erhält einen Stern, wenn er bei ei¬ 
nem normalen Directory nicht angezeigt würde. Folgt auf 
eine File-Typbezeichnung ein Klammeraffe (@), so handelt 

Gelöschte Dateien aufspüren 


es sich hier um eine fehlgeschlagene, d.h. unterbrochene 
Abspeicherung mit Überschreiben (»Replace«), die in Bit 5 
des File-Typs festgehalten wird. Zusätzlich zur Kennzeich¬ 
nung mit »@« steht unter »Rec« der erste Block des 
Replace-Files (Track/Sektor). 

Beim Verlassen von DIR wird der Bildschirm wieder in 
den vorherigen Zustand zurückversetzt. DIR erstreckt sich 
von Zeile 2300 bis 2430 und benutzt eine Unterroutine zum 
Aufarbeiten der Directory-Blocks (in Zeile 1400 bis 1490). 

5. DOS 

Auch hier wird der Bildschirminhalt zunächst gesichert. 
Anstelle der Überschrift erscheint ein Pfeil, hinter dem nun 
DOS-Kommandos in der üblichen Schreibweise eingege¬ 
ben werden können. Alles sieht so aus und funktioniert 
auch so wie bei der entsprechenden Stelle in dem bekann¬ 
ten Textprogramm Vizawrite (nach Befehl < CBM D >); nur 
< RUN STOP> dürfen Sie hier natürlich nicht drücken. 


6. EXIT 

Mit EXIT verläßt man »Fatman«, was dieser mit einem 
kurzen Aufleuchten quittiert. 

7. Drucker 

Vom Hauptmenü aus läßt sich mit »C« der Inhalt des Aus¬ 
gaberahmens als LoRes-Hardcopy auf einem angeschlos¬ 
senen Drucker ausgeben (Commodore-Modus, Sekundär¬ 
adresse 7, Änderungen in Zeile 1600 -1695). Gleiches gilt 
für das Directory (es wird dann nicht nach 16 Einträgen ge¬ 
wartet, <X> bricht aber weiterhin jederzeit ab). Sollte der 
Drucker nicht eingeschaltet sein, springt »Fatman« sofort 
ins Hauptmenü zurück. Man erkennt dies daran, daß das 
»C« der Eingabe verschwindet). Der Drucker zählt beim 
Ausdruck die Zeilen mit und überspringt die Perforation 
nach 62 Zeilen. Die Papierlänge ist auf 72 Zeilen eingestellt 
(beides in Zeile 1681); einen Seitenvorschub gibt es nicht. 
Sollten Sie neu beginnen wollen, so geben Sie im Haupt¬ 
menü < 0 > ein. Damit wird der Zeilenzähler zurückgesetzt. 

So, und nun viel Spaß beim Herumstöbern in Ihren Dis¬ 
ketten mit dem »Fatman«. Sicher lernen Sie dabei auch ei¬ 
niges über die Verwaltungsarbeit des DOS. Noch ein Hin¬ 
weis für C128-Benutzer: Das Programm ist zwar für den 
C64 geschrieben, »verdaut« allerdings auch C128-forma- 
tierte Disketten im C 128-Format (zeigt aber hier nur die er¬ 
ste Seite). Die Maschinenroutine zum Einlesen der Disket¬ 
te kann für die Arbeit mit dem C128 durch die entsprechen¬ 
den Routinen des dort eingebauten Monitors ersetzt wer¬ 
den. Sie müßten dann den Aufruf in Zeile 1010 entspre¬ 
chend ändern und können das Unterprogramm ab Zeile 
2800 in der jetzigen Form nicht mehr gebrauchen. 

(Arndt Dettke/Dr. Rudolf Egg/kn) 


3 DIM TY* <4),AZ* <15):GOSUB 2800 

<122? 

155 ZL=2 a ‘ 3P=0:GOSUB 1200:PRINT"{2SPACE,RV 


4 TY*(0) ="£Ei": TY* (1) ="§£&": TY* C2> =".PR.S" • T 



S0N}5<RV0FF> AM I2SPACE, RVSON 1.S.CRVOFF >CA 


Y* (3) =“ÜS£" : TY* <4> ="££i,": LI=0: IN=8 

< 124> 


N I2SPACE,RVSONIHIRVOFF JEXT T2SPACE,RVSO 


5 PRINT"TCLR,CTRL—N,CTRL—H>";:EN*="“ 

<240> 


N >£<RVOFF } I R <2SF'ACE J£<RVSON J 0 {RVOFF } S { 


6 L*="{40SPACE >":11*=EN*: M=0 

<241 > 


3SPACEIE, {RVSON > X{RVOFF >IT <2SPACE >"; 

<133> 

7 OPEN 2,8,15,"10":BQSUB 1065:CLOSE 2:IF F 


160 

LG=1:GOSUB 1B00 

< 146 > 

THEN EN*=I1*:GOTO 6 

< 149> 

170 

IF EN*=”S"THEN GOSUB 2500 

< 181 > 

8 AZ*<0)="+":AZ*<1)=".":FOR 1=2 TD 15:AZ*< 


175 

IF EN*="B"THEN GOSUB 6 

<031 > 

I)=" ':NEXT 

<095> 

180 

IF EN*="D"THEN GOSUB 2300 

< 112> 

10 B A* = " ": F0=0: F1 = 11: F2=6: F3= 13: F4=2: FR=0: 


185 

IF EN*="0"THEN GOSUB 1500 

< 176> 

T=1B:S=0:L=164:AN=254 

< 149> 

190 

IF EN*="N"THEN LG=0:SP=5:ZL=0:GOSUB 12 


11 POKE 53280,12:POKE 53281,12:POKE 646,F4 

<222> 


00:PRINT"SITTE £ISK EINLEGEN! "; 

<221 > 

14 SF'=0: ZL=0: BR=37: H0=21: GOSUB 1200: PRINT" 


195 

IF EN*="N"THEN GOSUB 1800:GOSUB 5 

<067> 

£51":POKE 646,F0 

< 232 > 

200 

IF EN*="X"THEN POKE 646,1:PRINT"{HOMEJ 


15 ZL=1:GOSUB 1100:POKE 646,F4:GOSUB 1200: 



£51":PRINT"555";:POKE 646,Fl:END 

<071 > 

PRINT" JUTR" 

< 16B> 

210 

IF EN*="C"THEN T=0:Z=0:H0=22:GOSUB 160 


16 GOSUB 1000 

<228? 


0 

<000> 

18 POKE 646,F2:5P=5:ZL=0:I1*=MID*(BA*,145, 


215 

IF EN*="0"THEN LI=0 

< 190> 

16) :GOSUB 1200:PRINT"5ISK: "11*; 

<254> 

220 

SP=36:GOSUB 1200 

<033> 

19 SP=28:GOSUB 1200:12*=RIGHT* < BA*,2 >:PRIN 


230 

GOTO 150 

<23B> 

T"fiISKiS: "12*; 

<154> 

999 

END 

<239> 

20 IF EN*=""THEN 150 

< 114> 

1000 

GOSUB 1050:IF F THEN RETURN 

< 168> 

30 SF'=1: ZL=2:1-10=21: BR=37: GOSUB 1300: IF F T 


1005 

OPEN 1,8,2,PRINTW2,"Ul 2 0";T;S 

< 141 > 

HEN RETURN 

< 127> 

1010 

SYS B28,1,L,BA* 

<030> 

80 SP=1:FOR 1=0 TO 20:ZL=1+2:GOSUB 1200:PR 


1020 

IF L=255 THEN GET«1,I1* 

<050> 

INT"{RVSONI"RIGHT*(STR* <I),2):NEXT 

<075> 

1040 

CLOSE 2:CLOSE 1 

<046> 

90 AF =4:LT=21:POKE 646,Fl 

<108> 

1045 

RETURN 

<087 > 

100 FOR 1=1 TO 35 

<252> 

1050 

SP=5:ZL=0:BR=34:HO=1:GOSUB 1300 

<050> 

102 IF 1=18 THEN POKE 646.F2:AZ*(0)="D" 

< 250 > 

1060 

OPEN 2,8,15 

<220> 

103 IF 1=19 THEN POKE 646,Fl:AZ*(0)="+" 

<226> 

1065 

INPUTH2,F,F*,X,Y:IF F=0 THEN RETURN 

<207> 

105 AF=AF+1:FR=FR+ASC< MID* <BA*,AF,1)):ZL=1 


1070 

CLOSE 2:SP=5:ZL=0:BR=34:HO=l:GOSUB 13 


:SP=I+2 

<077> 


00:GOSUB 1200:PRINT F;F*;X;Y; 

<243> 

109 LT=LT+<1 = 18)#2+(1=25) + <1=31) 

<200> 

1080 

LG=1:GOSUB 1800:GOSUB 1300 

<251 > 

110 FOR J=1 TO 3 

<217> 

1090 

RETURN 

<132> 

115 AF=AF +1:B=ASC(MID*(BA*,AF,1)) 

<012> 

1100 

GOSUB 1200 

< 072 > 

117 FOR M=0 TO 7:K=((B AND 2TM)=0>+1 

<110> 

1110 

PRINT"*";:IF BR=0 THEN 1130 

<106> 

119 ZL=ZL+1:IF ZL=LT+1 THEN M=7 

<065 > 

1 120 

FOR 19=1 TO BR:PRINT"*";:NEXT 

< 119> 

120 GOSUB 1200:PRINT"(RVSONJ"AZ*(K) 

< 216 > 

1130 

PRINT"!?": IF HO=0 THEN 1150 

<081 > 

125 NEXT M:NEXT J 

< 118> 

1140 

FOR 19=1 TO HO:PRINT TAB(SP)" = "TAB(SP 


130 NEXT I 

<214> 


+BR+1)" = ":NEXT 

< 125> 

140 POKE 646,F2:SP=22:ZL=22:GOSUB 1200:PRI 


1150 

PRINT TAB<SP) ; : IF BR=0 THEN 1170 

< 131 > 

NT FR ".BLOCKS FREE";: POKE 646,F0:ZL=24 

<077> 

1160 

FOR 19=1 TO BR:PRINT"*";:NEXT 

<159> 

145 RETURN 

< 203 > 

1170 

PRINT"*": 

<254> 

150 POKE 646,F0 

<012> 

1180 

RETURN 

<222> 


110 
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1200 POKE 214,ZL:POKE 211,SP <100> 

1210 SYS 58640 <083> 

1230 RETURN <016> 

1300 BOSUB 1200:IF HO=0 OR BR=0 THEN 1340 <236> 

1310 FOR 19=1 TD HD:PRINT TAB(SP)LEFT*(L*, 

BR); <188> 

1320 IF 19<HO THEN PRINT <070> 

1330 NEXT <070> 

1340 RETURN <128> 

1400 IF 1=0 THEN FDR K=0 TD 15: AZ* (K>="“:N 

EXT <172> 

1405 FDR K=0 TD 7:B*=MID*(BA*,K*32+l,32) <012> 

1407 IF K=7 THEN B*=B*+I1*+CHR*(0):I1*="" <079> 

1410 TY=ASC(MID*(B*,3,1)):X=TY AND 31:Y=TY 

AND 128:Z=TY AND 64:R=TY AND 32 <054> 

1430 IF ASC(MID*(B*,6,1))=0 THEN K=7:GOTO 

1480 < 243 > 

1435 AZ*(A)=AZ*(A>+MID*(B*,6,16>+TY*<X) <105> 

1437 IF Y=0 THEN AZ*(A)=AZ*(A)+"*" <085> 

1440 IF Z THEN AZ*(A)=AZ*(A)+"<" <168> 

1441 IF R THEN AZ*<A>=AZ*<A)+"@" <170> 

1445 AZ*(A)=AZ*<A)+MID*("C2SPACEJ",(NDT(<Y 

=0)DR Z=64 DR R=32))+2) <094> 

1450 X=ASC(MID*(B*,4,1)):Y=ASC(MID*(B*,5,1 

>) <167> 

1455 AZ* (A) =AZ* (A) +RIGHT* (STR* (X) ,2) +" "+R 

IGHT*(STR*<Y),2)+" " <103> 

1457 IF R THEN X=ASC(MID*<B*,29,1)):Y=ASC( 

MID*(B*,30,1>) <090> 

1459 IF R THEN AZ* ( A)=AZ* ( A> +" "+RIGHT*(ST 

R*(X),2) + " "+RIGHT*(STR*(Y)..GO 

TO 1470 <160> 

1460 X=ASC(MID*(B*,24,1)):IF X<10 THEN AZ* 

(A> =AZ* (A> +“ " <066> 

1463 IF X=0 THEN AZ*(A)=AZ*(A)+"<6SPACE>": 

GOTO 1470 <232> 

1465 AZ* ( A)=AZ* ( A) +RIGHT*(STR*(X),3>+"<4SP 

ACE>" <158> 

1470 X=ASC(MID*(B*,31,1))+256*ASC(MID*<B*, 

32,1)>:IF X<10 THEN AZ*(A)=AZ*(A)+” " <039> 
1475 AZ*(A)=AZ*(A)+RIGHT*(STR*(X),3) <186> 

1477 A=A+1 <030> 

1480 NEXT K t; <054>( 

1490 RETURN <FZ2> 

1500 F'OKE 646 ,F1: ZI=49152:01=1024:GOSUB 19 

00 <126> 

1505 Z1=49152+1024:01=55296:GOSUB 1900 <19e) 

1510 SP=5:ZL=0:BR=34:HD=1:GOSUB 1300 <000> 

1520 GDSUB 1200:PRINT"=>"1 <086> 

1530 LG=32:GDSUB 1800 <252> 

1540 GOSUB 1060:IF F THEN 1580 <101> 

1550 PRINT#2,EN* <028> 

1560 GOSUB 1065 <249> 

1570 SP=7:BR=32:GDSUB 1300:GDSUB 1200 <107> 

1580 IF F=0 THEN PRINT F;F*;X;Y;:CLOSE 2:L 

G=l:GOSUB 1800 <189> 

1590 ...Ql=49152:Z1=1024:GOSUB l 

900 <247 > 

1592 01=49152+1024: Z 1=55296: GOSUB 1900 ’<004> 

1595 RETURN <129> 

1600 X =PEEK(768):Y=FEEK(769):POKE 768,61:P 

OKE 769,227 <170> 

1605 OPEN 4,4,7: PR INT#4 , " " j : CLOSE 4: POKE 7 
68,X:POKE 769,Y:IF ST=-128 THEN RETUR 
N <126 > 

1607 IF PEEK(1107)=32 THEN RETURN <073> 

1610 OPEN 4,4,7: IF ID*="C I, THEN Z=4 <110: 

1620 FOR J=Z TO HO <202> 

1625 K=1024+40#J <193> 

1627 IF J>3 THEN IF PEEK(K+18)=32 THEN J=H 

0:GOTO 1685 <233> 

1630 PRINT#4,SPC <IN);:SP=1:BR=36:IF J=0 TH 

EN SP=5:BR=32 <214> 

1632 IF J=1 THEN PRINT#4:G0T0 1680 <063> 

1640 FOR I=SP TO SP+BR <147> 

1650 R=PEEK(K+I)AND 127:IF R>63 THEN R=R+3 

2:IF R=12B THEN R=32 <143> 

1655 IF R<32 THEN R=R+64 <129> 

1660 PRINT#4,CHR*(R>; <023> 

1670 NEXT I:PRINT44 <169> 

1680 GET 19*:IF I9*="X"THEN T=0:J=HO <059> 

1681 LI=LI+1:IF LI>61 THEN FOR I=LI+1 TO 7 

2:PRINT44:NEXT:LI=0 <066> 

1685 NEXT J <253> 

1687 IF T=0 THEN PRINT44:LI=LI+1 <136> 

1690 CLOSE 4 <201> 


1695 RETURN <229> 

1700 M=1026:R=54272 <250> 

1705 L=2:GOSUB 1060:IF F THEN RETURN <189> 

1710 OPEN 1,8,2,"#" <187> 

1715 FOR 1=1 TO 35:LT=16-(I<31)-(I<25)-2*( 

I<18) <107> 

1720 FOR J=0 TO LT:B=(J+2)#40+I+M <134> 

1725 T=I:S=J:K=PEEK(B+R):POKE B+R,F3:Z=PEE 

K(B)3IF Z<>174 THEN 1745 <170> 

1727 IF F THEN F=0:CLOSE 1:GOSUB 1060:OPEN 

1,8,2,"#" <011> 

1730 GOSUB 2700:IF F THEN Z=161:B0T0 1745 <231> 

1740 Z=170:IF(T=0 AND S=0)OR T=75 THEN Z=1 

74 <116> 

1745 POKE B+R,K <241> 

1750 POKE B,Z <095> 

1755 IF F THEN IF EN*=”X"THEN J=LT:1=35 <130> 

1760 NEXT J <072> 

1770 NEXT I <074> 

1780 AN=244:Z1=49192:01=1064:GOSUB 1900:AN 

=254 <206> 

1790 RETURN <068> 

1800 ..19=0 <022> 

1810 PRINT"B<:LEFT>"; <185> 

1820 GET X9*:IF X9*=""THEN 1820 <014> 

1830 IF X9*=CHR*(13)THEN 1890 <227> 

1840 IF X9*=CHR*(20)AND I9>0 THEN PRINT"<S 
PACE,2LEFT}g<LEFT>";:19=19-1:EN*=LEFT 
*(EN*,19) <060> 

1850 IF X9*<" "OR X9*>"Z"THEN 1820 <133> 

1860 IF X9*>" AND X9*<"fl"THEN 1820 <014> 

1870 IF X9*=CHR*(34> THEN PRINT CHR*(148)X9 

*CHR*(20); <237> 

1880 EN*=EN*+X9*:PRINT X9*;:19=19+1:IF LG> 

19 THEN 1810 <168 > 

1890 PRINT" <112> 

1895 RETURN <175> 

1900 FOR K=0 TO 3:ZI=Z1+K*AN:QU=01+K*AN:G0 

SUB 2100:NEXT <235> 

1910 RETURN <190> 

2100 Z=ZI:GOSUB 2200:POKE 53,L0:P0KE 54,HI <164> 
2105 Z=QU:,GOSUB 2200:POKE 7B1,L0:P0KE 782, 

Lina ** ■ <086> 

2110 POKE 780,AN+1:SYS 46728 <010> 

2120 RETURN <146> 

2200 HI=INT(Z/256):L0=Z-HI*256 <047> 

2210 RETURN <236> 

2300 POKE 646,Fl:ZI=49152:Ql=1024:GOSUB 19 

00 <164> 

2302 Z1=49152+1024:(31=55296:GOSUB 1900 <233> 

2305 ZL=24:SP=2:BR=34:H0=1:GOSUB 1300:BA*= 

"" <239> 

2310 SP=1:ZL=2:H0=21:BR=37:GOSUB 1300:T=18 

:S=l:L=255 <217> 

2315 GOSUB 1200:PRINT"HAME i 12SPACE > XYP <3SP 

ACE3IC2SPACEJS S£C<4SPACE>AEN" <174> 

2316 ZL=4:H0=16:BR=37:GOSUB 1300:ZL=3:A=0 <230> 

2317 FOR 1=0 TO 1 <097> 

2320 GOSUB 1060:IF F THEN T=0:1=1:GOTO 233 

5 <196> 

2325 GOSUB 1005:T=ASC(MID*(BA*,1,1)):S=ASC 

(MID*(BA*,2,1)> <171> 

2330 GOSUB 1400 <064> 

2332 IF T=0 THEN 1=1 <208> 

2335 NEXT I <133> 

2340 FOR K=0 TO 15 <189> 

2350 ZL=ZL+1:GOSUB 1200-.PRINT AZ*(ZL-4) <127> 

2360 NEXT <084> 

2397 IF EN*="C"GOTO 2405 <192> 

2398 ZL=24lHQ=1:BR=34:GOSUB 1300:SP=1 <060> 

2400 GOSUB 1200:PRINT"JASTE "; <025> 

2402 IF T>0 THEN PRINT" CX’= £NDE> "; <209> 

2403 GOSUB 1800 <201> 

2405 IF EN*="C"THEN Z=0:H0=19:GOSUB 1600:1 

D*=EN* <056> 

2407 IF EN*="X"THEN T=0 <003> 

2410 IF T GOTO 2316 <196> 

2420 .....1=1024: 

GOSUB 1900 <13B> 

2422 01=49152+1024: Z 1=55296-.GOSUB 1900 <072> 

2430 RETURN <202> 

2500 IF M=0 THEN GOSUB 6 <132> 


2502 POKE 646,Fl:ZI=49152:01=1024:GOSUB 19 

Listing 1. »Fatman«. Die Disketten-Lupe. Bitte mit dem 
Checksummer (Seite 159) eingeben. 
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00 < 112 > 

2505 Z1=49152+1024s Q1=55296:GOSUB 1900 <182> 

2510 ZL=24:SP=0:BR=3B:HO=1:GOSUB 1300!BA*= 

.POKE 646,F0:AZ*="<KORREKT J/N>? " <109> 

2515 GOSUB 1200:PRINT"£ILENAME ODER I U. 5 

s ";s LG=16s GOSUB 1800 <025> 

2520 IF EN*="X"THEN 2590 <184> 

2521 IF EN*=“#"THEN 2588 <109> 

2525 T=VAL(MID*(EN*,1,2)):S=VAL(MID*(EN*,3 

>> <160> 

2526 LT=16-(T<31)-(T<25)-2*(T<18):IF S>LT 

THEN T=0 <107> 

2530 IF T=0 THEN GOSUB 2600 <131> 

2535 IF MID*(EN*,3,1>>"9"0R L£N(EN*><3 THE 

N GOSUB 2600 <192> 

2536 IF T=0 THEN AZ*="NO £ILE, ßBBR.?" <081> 

2550 GOSUB 1300: GOSUB 1200! PRINT"JRACK"T" 5 

,S£KTOR"S; <196> 

2555 SP=21:GOSUB 1200!PRINT AZ*; <204> 

2560 LG=lsGOSUB 1800:IF EN*<>"J"AND EN*<>" 

N 11 THEN SP=36: GOSUB 1200: GOTO 2560 <052> 

2565 IF EN*="N"THEN 2510 <220> 

2566 IF T=0 OR T>35 THEN 2590 <200> 

2567 L=2:GOSUB 1060:IF F THEN T=0:GOTO 258 

5 <189> 

2568 OPEN 1,8,2,"#" <029> 

2570 ZL=S+2:SP=T+2:P0KE 55296+40#ZL+SP,F3 <251> 

2580 GOSUB 2700:IF T>35 OR S>21 THEN T=0 <061> 

2582 IF T THEN 2570 <210> 

2585 CLOSE 2:CL0SE 1:AZ*=" (MEHR J/N)?f3SP 
ACEJ":IF M<1026 THEN AZ*=" (MEHR J/N/ 

*>? " <252> 

2586 ZL=24:SP=21:GOSUB 1200:PRINT AZ*; <254> 

2587 LG=1:GOSUB 1800:IF EN*<>"J"AND EN*<>" 

N"AND EN*< >"*"THEN SP=36:GOSUB 1200:G 

OTO 2587 <173> 

2588 IF EN*="#"THEN GOSUB 1700:GOTO 2585 <041> 

2589 IF EN*="J"THEN 2510 <240> 

2590 EN*=.. F'DKE 646,F0: 01=49152: Zl = 

1024:GOSUB 1900 <129> 

2592 0.1=49152+1024: Z1 =55296: GOSUB 1900 <227> 


«IW 


2595 RETURN <113> 

2600 IF EN*="“THEN T=0:S=0:RETURN <101> 

2605 L=255:13*=EN*:19=LEN(13*):12*="": T= 18 

:S=1:Y=0:AZ*="(SCANNEN J/N)7 " <034> 

2610 BA*=.GOSUB 1060:IF F THEN T=0:RETUR 

N <072> 

2615 GOSUB 1005:T=ASC(MID*(BA*,1,1)):S=ASC 

(MID*(BAT,2,1)) <207> 

2620 IF RIGHT*(13*,1)="»"THEN 19=19-1:13*= 

LEFT*(I3*,I9):12*="#" <160> 

2630 A=0:1=0:GOSUB 1400 <161> 

2640 FOR K=0 TO 7:X=0 <23B> 

2650 X9*=MID*(AZ*<K),19+1,1) <047> 

2660 IF LEFT*(AZ*(K),19> =13*THEN X=VAL(MID 
*(AZ*(K),22,2)>:Y=VAL(MID*(AZ*(K),25, 

2 )> < 002 > 

2670 IF X THEN IF X9*=CHR*(160)OR I2*="»"T 

HEN K=7:T=0 <087> 

2680 NEXT <150> 

2685 IF T THEN 2610 <118> 

2690 T=X:S=Y:EN*=LEFT*(L*,4) <030> 

2695 RETURN <213> 

2700 PRINT#2,"Ul 2 0";T;S:BA*="" <101> 

2705 GOSUB 1065:IF F THEN T=0:S=0:RETURN <196> 
2710 SYS 828,1,L,BA* <20B> 

2740 T=ASC(MID*(BA*,1,1)):S=ASC(MID*(BA*,2 

,1)) <046> 

2750 RETURN <012> 

2800 FOR 1=828 TO 885 <203> 

2810 READ X:POKE I,X <067> 

2820 NEXT <036> 

2830 DATA 32,253,174,32,158,183,32,30,225, 

32,253,174,32,158,183,138,72,32,253 <040> 

2840 DATA 174,32,139,176,133,73,132,74,32, 

163,182,104,32,117,180,160,2,185 <024> 

2850 DATA 97,0,145,73,136,16,248,200,32,18 

,225,145,98,200,196,97,208,246,76 <176> 

2860 DATA 204,255 <045> 

2870 RETURN <134> 


Listing 1. »Fatman« (Schluß) 

CC.-IT.g- - 


Morsen lernen 
mit dem C64 


Im Computer-Zeitalter noch Morsen. 

Ist das nicht längst überholt? Nein, denn es Ist immer 
noch die einfachste Art, Daten über 
lange Distanzen ohne großen Aufwand zu übermitteln. 
Nur morsen muß man eben können. 

Werden auch Sie Morse-Experte — mit unserem 
Programm ein Kinderspiel. 


L ange vor der Entwicklung des binären Codes für Com¬ 
puter entwickelte der Amerikaner Samuel Morse eine 
ebenfalls binäre, aus Punkten und Strichen beste¬ 
hende Zeichensprache - das Morsealphabet. 1837 baute 
Morse den ersten brauchbaren Schreibtelegraphen, für 
welchen er den Morse-Code entwarf. In der Telegraphie 
gibt es bis heute keinen Ersatz dafür. Eine enge Verwandt¬ 
schaft zum Computer zeigt sich bei der Gegenüberstellung 
der alten Telegraphen-Übertragung mit dem modernen 
RS232- und V.24-Datentransfer. 

Zur Verständigung bedienen Amateurfunker und das Mi¬ 
litär sich noch heute des 150 Jahre alten Codes. Zum Erlan¬ 
gen einer Lizenz benötigt ein Amateurfunker eine Hör- und 
Gebe-Geschwindigkeit von 12 WpM (Wörter pro Minute). 
Ein Wort ist hierbei auf fünf Zeichen normiert. Für eine Li¬ 


zenz sind also 60 Zeichen je Minute (Sende- und Emp¬ 
fangsgeschwindigkeit) das Minimum. Profis liegen hier bei 
bis zu 26 WpM. 

Beim Morse-Lehrer unter Menüpunkt »E« sind immmer 
fünf Zeichen zu einem Wort zusammengefaßt. Dies erleich¬ 
tert Ihnen die Auswertung bei einem Selbsttest, da die Ge¬ 
schwindigkeitsangabe unter »SPEED« nicht mit der WpM- 
Geschwindigkeit identisch ist. 

So werden Sie Morse-Experte 


Geben Sie als erstes das Ladeprogramm »BOOT.MT- 
PROG« (Listing 1) sowie das Hauptprogramm »MT-PROG« 
(Listing 2) mit dem MSE ein. Mit: 
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LOAD "BOOT.MT-PROG",8 

laden Sie das Programm. Gestartet wird der Morse-Trainer 
mit RUN. Nach Betätigen der SPACE-Taste haben Sie fünf 
Menüpunkte zur Auswahl. Einen Menüpunkt wählen Sie 
durch drücken der entsprechenden Buchstaben-Taste (A 
bis E). Zur Auswahl stehen: 

A) Zeigen/Hören des Morsealphabets 

Die Zeichen des Morsecodes werden einzeln jeweils 
durch Betätigen der SPACE-Taste optisch und akustisch 
vorgestellt. Eine Wiederholung des letzten Zeichens ist 
durch die RETURN-Taste möglich. So kann man sich die 
verschiedenen Tonmuster einprägen. Im Programm sind 
neben allen Buchstaben des Alphabetes (A bis Z) den Zif¬ 
fern (0 bis 9) auch die Satzzeichen»? . , m - /:«sowie die Zei¬ 
chen für Übertragungsstart »@« und Übertragungsende 
»*«) vorhanden. Auf die Nationalen Sonderzeichen »Ä«, 
»Ü« und »CH« wurde verzichtet. 

B) Text geben (nur Ton) 

In diesem Programmteil läßt sich das Geben (Senden) 
einzelner Morsezeichen ohne Einschränkung üben. Zum 
Senden kann man jede Taste (Ausnahme: < RETURN > 
und F-Tasten) benutzen. Diese können eine echte Morseta¬ 
ste natürlich nicht ersetzen. Eine solche aber läßt sich am 
Joystick-Port 1 anschließen. Für den Anschluß verwendet 
man den Pin für den Feuerknopf und Masse (Pins 6 und 8, 
siehe Handbuch zum C64). 

C) Text geben (mit Decodierung) 

Hier versucht der Computer zusätzlich den eingegebe¬ 
nen Code zu entschlüsseln und das gemorste Zeichen aus¬ 
zugeben. Bei ungenauer Gebeweise oder bei einem nicht 
zu entschlüsselnden Code erscheint ein blaues Fragezei¬ 
chen. Schwankungen in der Gebegeschwindigkeit erkennt 
das Programm nach kurzer Zeit und berücksichtigt diese 
bei der weiteren Decodierung. Dennoch muß sehr exakt ge¬ 
geben werden, das Programm erzieht also zu korrekter Ge¬ 
beweise. 

D) Text hören (eingegebener Text) 

Hier bietet sich die Möglichkeit, einen beliebigen Text 
einzutippen. Der Rechner wandelt nach Drücken von 
<SHIFT RETURN > den Text in Morsezeichen um. So 
kann man den Morsecode Schritt für Schritt erlernen. Die 
Hörlektionen können dabei nach dem persönlichen Bedarf 
und der eigenen Fertigkeit selbst gestaltet werden. Die Ta¬ 
ste <DEL> löscht nicht »nach links«, sondern stets nur 
das Zeichen, auf dem der Cursor steht. Das Übertragungs¬ 
endezeichen »*« wird nach <SHIFT RETURN > automa¬ 
tisch gesetzt. 

E) Text hören (Zufallstext) 

Unter diesem Menüpunkt erstellt das Programm einen 
Zufallstext. Dieser Text wird codiert ausgegeben. Während 
der Ausgabe besteht die Möglichkeit, den Text auf dem 
Bildschirm zu sehen, oder man decodiert erst und läßt sich 
danach den Text zeigen, um so seine erworbenen Fähigkei¬ 
ten zu testen. 

Alle Programmteile verläßt man mit <F1 >. Danach er¬ 
scheint das Haupt-Menü. Durch <F2> wird das Pro¬ 
gramm mit einem Reset beendet. Danach ist ein Neustart 
mit »SYS 2336« möglich. Hier die Belegung der übrigen 
Funktionstasten: 

<F3>/<F4>: Gebegeschwindigkeit schneller/langsa¬ 
mer 

<F5>/<F6>: Lautstärkeregulierung (SID Register 
54296) 

<F7>/<F8>: Tonfrequenz höher/tiefer 

Die F-Tasten reagieren an jeder Stelle des Programms 
sofort. <F3> und <F4> ergeben jedoch nur dann einen 


Sinn, wenn der Computer gerade Texte (Morsezeichen) 
ausgibt. 

Für Programmierer nun noch ein paar Hinweise zur Ge¬ 
staltung des Programms »Morse-Trainer«: 

Bei der Erstellung wurde versucht, durch die Verwen¬ 
dung mehrerer kleiner Unterprogramme eine gewisse 
Übersichtlichkeit im Listing zu erhalten. Die Funktionsta¬ 
sten (<F1> — <F8>) werden im erweiterten Interrupt 
»NEUIRQ« verarbeitet, die jeweilige Funktion sofort ausge¬ 
führt. Die entsprechenden Werte werden verändert und 
das Flag »STFLAG« gesetzt, um später im Hauptprogramm 
die Ausgabe der Statuszeile durch Aufruf von »STZEILE« 
zu ermöglichen. Die Interruptdauer wird sehr kurz gehalten 
und die Statuszeile nach Bedarf ausgegeben. 

Die im Programm enthaltenen Morsezeichen sind in drei 
Tabellen abgelegt. Die erste Tabelle »ZEICHEN« enthält die 
ASCII-Codesfürdie Bildschirmausgabe. Die zweite Tabelle 
»LAENGEN« enthält die den Zeichen entsprechende An¬ 
zahl der Töne. Die Töne beziehungsweise Tonmuster selbst 
sind in der dritten Tabelle abgelegt, wo sie bitweise in den 
einzelnen Werten stehen. Dazu ein Beispiel: Zeichen »B« 
entspricht dem Code »lang-kurz-kurz-kurz«, in »LAEN- 


10 

POKE 53280,15:POKE 53281,12:POKE 

646,11 

<016> 

20 

PR I NT " CCLR, 4DOWN, 2SPACE > E' ITTE WARTEN .. 



- ! " 


<213> 

30 

PRINT"L2D0WN, 8 SPACE JMORSE-TRAINER WIRD 



GELADEN!" 


< 162> 

40 

PRINT"t4D0WN,2SPACEJNACH 'RESET' 

MIT -S 



YS 2336- STARTEN!" 


<252> 

50 

IF A THEN SYS 2336 


<123> 

60 

A=1:LOAD"MT-PROG",B,1 


<021 > 


Listini« 1. »BOOT.MT-PROG«. Der Basic-Lader des Morse- 
Trainer. Bitte mit dem Checksummer V3 (Seite 159) 
eingeben. 


GEN« steht eine »4« für vier Töne, in »MUSTER« steht 
»01110000«, der Binärcode von »112«. Dieses Byte (112) wird 
in der Routine »SOUND« bitweise mit ASL ins Carry ge¬ 
schoben, worauf eine Verzweigung für kurze oder lange Tö¬ 
ne stattfindet. 

Für die Texteingabe im Menüpunkt »Text hören« wurde ei¬ 
ne eigene Routine »HOERTEXT« entwickelt, welche die Ta¬ 
sten < INS >, <DEL>, <CRSR-links>, <CRSR- 
rechts> und <SHIFT RETURN > verarbeitet. Hierzu wur¬ 
de das Unterprogramm »ANZ« benötigt, welches aufgrund 
des gesetzten Inv-Bit der Zeichen im Bildschirmspeicher 
die aktuelle Entfernung des Cursors vom Textbeginn 
»$04A0« ermittelt. 

Die Tondecodierung im Menüpunkt »Text geben (mit De¬ 
codierung)« erfolgt im Programmteil »GEBDEK«. Von hier 
werden die Routinen »MESSEN« und »PAUSE« angesprun¬ 
gen, um die zeitliche Länge des Tastendrucks beziehungs¬ 
weise der Tastpause zu ermitteln. Nach Auswertung der 
Durchschnittszeiten erfolgt die Entscheidung bezüglich 
»lang« oder »kurz«. War die Tastpause länger als die errech- 
nete Pause zwischen zwei Tönen, geht das Programm da¬ 
von aus, daß das nächste Zeichen folgt. Es wird in die Er¬ 
kennungsroutine »FINDCHR« verzweigt. Diese sucht nun 
in der Tabelle »ZEICHEN« nach diesem Code und gibt den 
entsprechenden Buchstaben aus. Findet die Routine zu 
dem Code kein Zeichen, erscheint ein blaues Fragezei¬ 
chen. Ist die Pause zwischen den Zeichen zu lang, wird ein 
Leerzeichen als Worttrennung ausgegeben. 

Um auch bei ungeübter Gebeart noch eine Decodierung 
zu ermöglichen, sind die von S. Morse festgelegten Längen 
erweitert. Damit wird für jede Übungsstufe eine subjektive 
Decodierung erreicht. (T.Geisel/Dr.R.Egg/P.Baron/sk) 
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Name 

: mt-prog 0920 

146b 

0b60 

: 04 c9 4l 30 02 38 60 

18 

33 

OdbO 

: 3f 00 00 01 6a 6b 00 93 

39 




0 b68 

: 60 a9 8c aO 10 20 le 

ab 

a6 

0 db8 

: 11 11 11 11 05 20 20 20 

ca 

0920 

: a9 00 8d 20 dO 8d 21 dO 

dO 

0b70 

: 20 lb Oa 20 80 Oc 

dO 

f8 

42 

OdcO 

: 20 20 20 20 cd 20 4f 20 

58 

0928 

: a9 07 8d 86 02 a9 Oe 20 

6 f 

Öb78 

: a2 00 8e ab Od bd aO 

04 

7d 

0 dc8 

: 52 20 53 20 45 20 2d 20 

4e 

0990 

: d2 ff a9 80 8d 91 02 a9 

3d 

0b80 

: c9 lb 10 03 18 69 

40 

aO 

4a 

OddO 

: d4 20 52 20 41 20 49 20 

c7 

0938 

: b7 aO Od 20 le ab 20 80 

47 

0 b88 

: 2c d9 lf Od fO 15 

88 

10 

04 

0 dd8 

: 4e 20 45 20 52 Od 20 20 

da 

0940 

: Oc 78 a9 50 8d 14 03 a9 

d6 

0b90 

: f8 20 4a Oc 20 4s 

Oc 

20 

71 

OdeO 

: 20 20 20 20 af af af af 

b3 

0948 

: 09 8d 15 03 58 4c e2 09 

43 

Ob98 

: 4a Oc 20 4a Oc 2C 

4a 

Oc 

3d 

0 de8 

: af af af af af af af af 

e7 

0950 

: a5 cb cd aa Od fO 06 c9 

a7 

ObaO 

: 4c b9 Ob b9 79 Od 

8 d 

ac 

52 

OdfO 

: af af af af af af af af 

ef 

0958 

: 40 fO 02 dO 06 8d aa Od 

3d 

0 ba8 

: Od b9 4c Od 8d at 

Od 

8 a 

d6 

Odf8 

: af af af af af af 9e Od 

6 e 

0960 

: 4c 31 ea 8d aa Od c9 03 

fl 

ObbO 

: 48 20 lb Oa 20 02 

Oc 

68 

24 

OeOO 

: 11 11 20 20 20 20 20 20 

6 a 

0968 

: 30 f3 c9 07 10 ef e9 02 

11 

0 bb8 

: aa ec b3 Od fO 04 

c8 

4c 

d2 

0e08 

: 41 20 31 30 30 25 20 4d 

f3 

0970 

: aa aO ff 8c ae Od ad 8d 

21 

ObcO 

: 7d Ob 60 a9 b9 aO 

10 

20 

31 

OelO 

: 41 43 48 49 4e 45 43 4f 

e9 

0978 

: 02 29 01 fO 04 8a 69 03 

ad 

0 bc8 

: le ab 20 dO Ob 4c 

ca 

Ob 

32 

0 cl8 

: 44 45 20 50 52 4f 47 52 

72 

0980 

: aa bd ab Of 8d 8e 09 bd 

c2 

ObdO 

: 20 lb Oa a5 ob c9 

40 

fO 

Q 3 

0 e20 

: 41 4d Od 11 11 99 20 20 

Oc 

0988 

: b3 Of 8d 8f 09 20 d3 09 

Ob 

0 bd8 

: fa c9 08 30 f3 a9 

00 

8 d 

67 

0e28 

: 20 20 20 20 57 52 49 54 

3a 

0990 

: 4c 31 ea ae a9 Od eO le 

c8 

ObeO 

: b4 Od 8d b5 Od 8d 

b6 

Od 

67 

0e30 

: 54 45 4e 20 49 4e 20 c6 

d4 

0998 

: fO 01 ca 8e a9 Od 60 ae 

6 f 

0 be8 

: 20 5b Oc ce b4 Od 

dO 

08 

9e 

0e38 

: 45 42 2e 38 37 20 42 59 

61 

09a0 

: a9 Od eO 3c fO f5 e8 10 

12 

ObfO 

: ee b5 Od dO 03 ee 

b6 

Od 

b3 

0e40 

20 d4 48 2e c7 2e Od 11 

e6 

09a8 

: f2 ae a6 Od fO 01 ca 8e 

9o 

0 bf8 

: a5 cb c9 40 dO ed 

20 

7a 

ef 

0e48 

05 20 20 46 4f 52 20 54 

df 

09b 0 

: a6 Od 60 ae a6 Od eO Of 

3f 

OcOO 

Oc 60 Oe ac Od bO 

16 

20 

44 

0e50 

48 45 20 20 20 27 36 34 

c3 

09b8 

: fO f5 e8 10 f2 ae a8 Od 

40 

0c08 

5b Oc 20 4a Oc 20 

4a 

Oc 

be 

Oe58 

45 52 20 c3 4f 4d 50 55 

92 

09c0 

: eO 45 fO 01 e8 8e a8 Od 

5f 

OclO 

ad ab Od fO 05 a9 

2 d 

20 

87 

0 e 60 

54 45 52 20 cd 4l 47 41 

76 

09c8 

: 60 ae a8 Od eO 27 fO f5 

42 

0 cl8 

d2 ff 4c 2d Oc 20 

5b 

Oc 

ea 

0 e68 

5a 49 4e 45 27 20 20 Od 

bl 

0980 

: ca 10 f2 ba a9 e2 9d 07 

ec 

0 c20 

20 4a Oc ad ab Od 

fO 

f2 

eb 

0e70 

11 11 9e 20 20 20 20 20 

79 

09d8 

: 01 a9 09 9d 08 01 60 4c 

47 

0c28 

a9 2e 20 d2 ff 20 

7a 

Oc 

4e 

0e78 

28 43 29 31 39 38 37 20 

25 

09e0 

: e2 fc ea a2 00 8e 21 dO 

ea 

0c30 

20 4a Oc ce ad Od 

dO 

ca 

6 e 

0e80 

2c 20 dO 48 4f 4e 45 3a 

ea 

09e8 

a9 bf aO Oe 20 le ab 20 

3d 

Oc38 

20 4a Oc 60 86 d3 

84 

d6 

53 

0 e88 

20 30 36 31 39 32 2f 32 

ba 

09f0 

1b Oa ce ae Od 20 80 Oc 

86 

0c40 

20 6c e5 60 a9 93 

20 

d2 

79 

0e90 

34 34 31 35 00 9e 12 d3 

b6 

09 f 8 

c9 Oa dO 03 4c 7a Oa c9 

af 

Oc48 

ff 60 ac a8 Od 8c 

a7 

Od 

a5 

0e98 

50 45 45 44 3a 20 20 20 

ca 

OaOO 

lc dO 03 4c c3 Ob c9 14 

b3 

0c50 

aO 00 88 dO fd ce 

a7 

Od 

3b 

OeaO 

20 20 20 20 d6 4f 4c 55 

aO 

0a08 

dO 03 4c 27 13 c9 12 dO 

bb 

Oc58 

dO f8 60 aO 00 8c 

00 

d4 

df 

0 ea8 

4d 45 3a 20 20 20 20 20 

ee 

OalO 

03 4c 33 11 c9 Oe dO d7 

28 

0c60 

8 c 05 d4 aO fO 8c 

06 

d4 

ed 

OebO 

20 20 c6 52 45 51 55 45 

9b 

0 al8 

4c db Oa ad ae Od dO 01 

23 

Oc68 

ac a9 Od 8c 01 d4 

ac 

a6 

74 

0 eb8 

4e 5a 3a 20 20 92 00 93 

84 

0 a20 

60 a9 00 8d ae Od a5 d6 

9e 

Oc70 

Od 8c 18 d4 aO 11 

8 c 

04 

31 

OecO 

11 ld 12 cl 55 53 57 4l 

ec 

' 0a28 

48 a5 d3 48 a2 01 aO 18 

26 

0c78 

d4 60 aO 10 8c 04 

d4 

60 

a3 

0 ec8 

48 4c 4d 4f 45 47 4c 49 

c6 

0a30 

20 3c Oc a2 00 bd 95 Oe 

26 

0c80 

a5 cb cd bO Od 8d bO ■' 

ae 

OedO 

43 48 4b 45 49 54 45 4e 

9c 

0a38 

fO 06 20 d2 ff e8 dO f5 

04 

0 c88 

fO f6 c9 40 fO f2 

c9 

01 

3d 

0 ed8 

20 3a 92 Od 11 11 11 4l 

bc 

0a40 

a2 08 aO 18 20 3c Oc a9 

79 

0c90 

60 a4 d6 a6 d3 eO 

Oa 

10 

59 

OeeO 

29 20 da 45 49 47 45 4e 

f9 

0a48 

4c ed a8 Od aa a9 00 20 

8 f 

0c98 

04 a2 Oa dO 7e eO 

14 

10 

e9 

0 ee8 

2f c8 4f 45 52 45 4e 20 

cl 

0a50 

cd bd a2 16 aO 18 20 3c 

2 b 

OcaO 

04 a2 14 dO 76 eO 

le 

10 

lb 

OefO 

44 45 53 20 cd 4f 52 53 

f7 

0a58 

Oc ae a6 Od a9 00 20 cd 

bd 

0 ca8 

04 a2 le dO 6e a2 

00 

c8 

2 d 

0 ef8 

45 41 4c 50 48 41 42 45 

ld 

0a60 

bd a2 25 aO 18 20 3o Oc 

57 

OcbO 

cO 15 dO 67 a9 c8 

85 

7a 

08 

OfOO 

54 53 Od 11 42 29 20 d4 

fb 

0 a68 

ae a9 Od a9 00 20 cd bd 

17 

0 cb8 

a9 04 85 7b 85 7d 

a9 

aO 

60 

0f08 

45 58 54 20 47 45 42 45 

c5 

0a70 

68 aa 68 a8 20 3c Oc 60 

31 

OccO 

85 7c a9 70 8d bl 

Od 

a9 

ea 

OflO 

4e 20 28 4e 55 52 20 4d 

45 

0a78 

dO 45 20 44 Oc a9 ff 8d 

a5 

0 cc8 

07 8d b2 Od a2 00 

al 

7a 

8 a 

0 fl8 

49 54 20 d4 4f 4e 29 Od 

54 

0a80 

ab Od 8d ae Od a2 00 8e 

ee 

OcdO 

81 7e e6 7a dO 09 

a5 

7b 

7b 

0 f20 

43 29 20 d4 45 58 54 20 

43 

0 a88 

af Od a9 bd aO Of 20 le 

lf 

0 cd8 

cd b2 Od fO 02 e6 

7b 

ad 

00 

Of28 

47 45 42 45 4e 20 28 d4 

7b 

0a90 

ab 20 lb Oa 20 80 Oc c9 

ld 

OceO 

bl Od c5 7a dO 07 

ad 

b2 

3a 

0f30 

4f 4e 20 2b 20 c4 45 4b 

e8 

0a98 : 

3c dO f6 ae af Od bd lf 

68 

0 ce8 

Od c5 7b fO 09 e6 

7c 

dO 

30 

Of38 

4f 44 49 45 52 55 4e 47 

3c 

OaaO : 

Od fO 2e 20 d2 ff a9 20 

c9 

OcfO 

dd e6 7d 4c ce Oc 

a5 

7b 

04 

0f40 

29 Od 11 44 29 20 d4 45 

2 e 

0 aa8 : 

20 d2 ff bd 4c Od 8d ad 

a8 

0 cf8 : 

c9 07 dO lb a9 c8 

85 

7a 

c8 

0f48 

58 54 20 48 4f 45 52 45 

ce 

OabO : 

Od bd 79 Od 8d ac Od 20 

4f 

OdOO : 

a9 d8 85 7b 85 7d 

a9 

aO 

12 

0f50 

4e 20 28 45 49 4e 47 45 

10 

0 ab8 : 

02 Oc a9 Od 20 91 Oc 20 

cb 

0d08 : 

85 7c a9 70 8d bl 

Od 

a9 

32 

0f58 

47 45 42 45 4e 45 52 20 

14 

OacO : 

lb Oa 20 80 Oc fO d4 c9 

28 

OdlO : 

db 8d b2 Od 4c ce 

Oc 

a2 

bl 

0f60 

d4 45 58 54 29 Od 45 29 

da 

0 ac8 : 

3c dO f4 ee af Od 4c 9b 

53 

0 dl8 : 

00 aO 14 20 3c Oc 

60 

4l 

9a 

0 f68 : 

20 d4 45 58 54 20 48 4f 

55 

OadO : 

Oa 20 lb Oa 20 80 Oc fO 

Ob 

0 d20 : 

42 43 44 45 46 47 

48 

49 

10 

0f70 : 

45 52 45 4e 20 28 da 55 

53 

0 ad8 : 

al dO f6 20 44 Oc a9 12 

12 

0d28 : 

4a 4b 4c 4d 4e 4f 

50 

51 

18 

0f78 : 

46 41 4c 4c 53 54 45 58 

99 

OaeO : 

aO 10 20 le ab 20 lb Oa 

90 

0d30 : 

52 53 54 55 56 57 

58 

59 

20 

0f80 : 

54 29 Od 11 11 11 ld c2 

62 

0 ae8 : 

20 80 Oc fO 2b c9 07 30 

e7 

0d38 : 

5a 30 31 32 33 34 

35 

36 

53 

0 f88 : 

49 54 54 45 20 45 4e 54 

c7 

OafO : 

f4 a9 00 8d 86 02 20 le 

aO 

0d40 : 

37 38 39 3f 2e 2c 

2 f 

2 d 

25 

0f90 : 

53 50 52 45 43 48 45 4e 

71 

0 af8 : 

Ob 20 69 Ob a9 62 aO 10 

lf 

0d48 : 

3a 40 2a 00 02 04 

04 

03 

83 

0f98 : 

44 45 20 d4 41 53 54 45 

ac 

ObOO : 

20 le ab 20 lb Oa 20 80 

a2 

0d50 : 

01 04 03 04 02 04 

03 

04 

e9 

OfaO : 

20 44 52 55 45 43 4b 45 

48 

0b08 : 

Oc dO f8 8d 21 dO 20 lb 

bb 

0d58 : 

02 02 03 04 04 03 

03 

01 

03 

0 fa8 : 

4e 3a 00 9f d3 c9 b3 93 

89 

Ob 10 : 

Oa 20 80 Oc dO f8 fO 03 

6 b 

0d60 : 

03 04 03 04 04 04 

05 

05 

25 

OfbO : 

df bd a9 09 09 09 09 09 

08 

0 bl8 : 

20 le Ob 20 69 Ob a9 40 

24 

0 d68 : 

05 05 05 05 05 05 

05 

05 

68 

0 fb8 : 

09 09 09 60 60 12 20 20 

ec 

0 b20 : 

20 d2 ff a9 20 20 d2 ff 

2 d 

0d70 : 

06 06 06 05 06 06 

05 

05 

4a 

OfcO : 

20 20 20 20 20 20 20 20 

cO 

0b28 : 

aO 2a a2 05 ad 04 de 4d 

30 

0d78 : 

00 80 70 50 60 80 

dO 

20 

6 c 

0 fc8 : 

20 c4 41 53 20 cd 4f 52 

57 

0b30 : 

12 dO 20 53 Ob 90 f5 20 

6 a 

0d80 : 

fO cO 80 40 bO 00 

40 

00 

05 

OfdO : 

53 45 41 4c 50 48 4l 42 

71 

0b38 : 

d2 ff ca dO ef a9 20 20 

e3 

0 d88 : 

90 20 aO eO 00 cO 

eO 

80 

f7 

0 fd8 : 

45 54 20 20 20 20 20 20 

17 

0b40 : 

d2 ff 88 dO e5 a9 2a 20 

e3 

0d90 : 

60 40 30 00 80 cO 

eO 

fO 

90 

OfeO : 

20 20 20 20 20 20 92 20 

aa 

0b48 : 

d2 ff 20 lb Oa a9 ff 8d 

8 e 

0d98 : 

f8 78 38 18 08 cc 

a8 

30 

c7 

0 fe8 : 

d3 50 41 43 45 2d 3e 20 

93 

Ob50 : 

b3 Od 60 29 7f c9 2c 30 

le 

OdaO : 

68 78 lc 50 a8 00 

Of 

00 

lc 

OffO : 

57 45 49 54 45 52 20 2f 

8 c 

Ob58 : 

Oe c9 5b 10 Oa c9 3b 30 

60 

0 da8 : 

3a 2c 3f ff 00 00 

ff 

00 

c8 

0 ff8 : 

20 d2 45 54 55 52 4e 2d 

d9 
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: 3e 

20 

57 

49 

45 

44 

45 

52 

7e 

1190 : 

8a 

fO 

ce 

ca 

bd 

aO 

04 

09 

a2 

1300 

3c 

2d 

2c 

c3 

d2 

d3 

d2 

2d 

c8 

1008 

48 

4f 

4c 

45 

4e 

20 

20 

Od 

34 

1198 : 

80 

9d 

aO 

04 

e8 

bd 

al 

04 

9a 

1308 

3e 

2c 

c9 

ce 

d3 

d4 

20 

41 

8f 

1010 

Od 

00 

12 

20 

20 

20 

20 

20 

6a 

llaO : 

9d 

aO 

04 

e8 

dO 

f7 

fO 

b9 

af 

1310 

4e 

44 

20 

c4 

c5 

cc 

20 

54 

Od 

1018 

20 

20 

20 

20 

20 

da 

55 

46 

Of 

lla8 : 

c9 

ld 

dO 

la 

20 

45 

12 

e8 

be 

1318 

4f 

20 

45 

44 

49 

54 

29 

Od 

47 

1020 

41 

4c 

4c 

53 

54 

45 

58 

54 

7e 

llbO : 

8a 

fO 

ae 

bd 

9f 

04 

49 

80 

56 

1320 

00 

14 

14 

00 

00 

00 

00 

a9 

83 

1028 

20 

48 

4f 

45 

52 

45 

4e 

20 

b2 

llb8 : 

9d 

9f 

04 

bd 

aO 

04 

49 

80 

2e 
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fO 

aO 

13 

20 

le 

ab 

20 

lb 

27 
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20 

20 

20 

20 

20 

20 

20 

20 

30 

llcO : 

9d 

aO 

04 

4c 

61 

11 

c9 

9d 

39 

1330 

Oa 

a9 

14 

8d 

21 

13 

8d 

22 

eb 
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20 

20 

20 

92 

Od 

20 

20 

20 

55 
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20 
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20 
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8e 
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20 
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45 
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20 
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9d 
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20 

d2 

ff 

a9 

20 

20 

4d 

lOaO 

27 

d2 

45 

54 

55 

52 

4e 

27 

7c 

1230 : 

04 

ca 

dO 

f2 

a9 

aO 

9d 

aO 

83 

13a0 

d2 

ff 

4c 

39 

13 

20 

bl 

13 

ab 

10a8 

20 

53 

54 

41 

52 

54 

45 

4e 

29 

1238 : 

04 

e8 

bd 

aO 

04 

49 

80 

9d 

fc 

13 a8 

20 

bb 

13 

20 

d2 

ff 

4c 

39 

3f 

lObO 

20 

21 

Od 

91 

91 

91 

91 

Od 

de 

1240 : 

aO 

04 

4c 

61 

11 

a2 

00 

bd 

c3 

13bO 

13 

a4 

d6 

cO 

15 

dO 

03 

20 

07 

10b 8 

00 

93 

9e 

12 

20 

20 

20 

20 

30 

1248 : 

aO 

04 

29 

80 

dO 

03 

e8 

dO 

af 

13b8 

b4 

Oc 

60 

ae 

ad 

Od 

2e 

26 

a8 

lOcO 

20 

20 

20 

20 

20 

20 

20 

cd 

lc 

1250 : 

f6 

8e 

b3 

Od 

60 

a9 

00 

8d 

8a 

13cO 

13 

6e 

ac 

Od 

ca 

dO 

f7 

a2 

2f 

10c8 

4f 

52 

53 

45 

5a 

45 

49 

43 

39 

1258 : 

23 

13 

8d 

24 

13 

8d 

25 

13 

45 

13c8 

2c 

bd 

4c 

Od 

cd 

ad 

Od 

fO 

08 

lOdO 

48 

45 

4e 

20 

47 

45 

42 

45 

85 

1260 : 

a5 

cb 

c9 

40 

fO 

01 

60 

ee 

de 

13 dO 

06 

ca 

10 

f5 

4c 

e3 

13 

bd 

aa 

10d8 

4e 

20 

20 

20 

20 

20 

20 

20 

06 

1268 : 

23 

13 

dO 

f4 

ee 

24 

13 

dO 

e5 

13 d8 

79 

Od 

cd 

ac 

Od 

dO 

f2 

bd 

7f 

lOeO 

20 

20 

20 

20 

Od 

Od 

Od 

20 

ca 

1270 : 

ef 

ee 

25 

13 

68 

68 

4c 

94 

a6 

13 eO 

lf 

Od 

60 

a9 

9a 

20 

d2 

ff 

c9 

10e8 

20 

20 

20 

20 

d4 

4f 

4e 

20 

66 

1278 : 

13 

93 

9e 

12 

20 

20 

20 

20 

03 

13e8 

a9 

3f 

20 

d2 

ff 

a9 

9e 

60 

lc 

lOfO 

4d 

49 

54 

20 

d4 

41 

53 

54 

48 

1280 : 

20 

20 

20 

20 

20 

20 

c8 

4f 

81 

13 fO 

93 

12 

20 

20 

20 

20 

20 

20 

5c 

10f8 

45 

4e 

44 

52 

55 

43 

4b 

20 

9d 

1288 : 

45 

52 

45 

4e 

20 

45 

49 

4e 

ff 

13 f 8 

20 

20 

cd 

4f 

52 

53 

45 

4e 

f7 

1100 

53 

54 

4l 

52 

54 

45 

4e 

Od 

db 

1290 : 

45 

53 

20 

d4 

45 

58 

54 

45 

14 

1400 

20 

20 

4d 

49 

54 

20 

20 

c4 

fd 

1108 

Od 

28 

c6 

2d 

d4 

41 

53 

54 

ce 

1298 : 

53 

20 

20 

20 

20 

20 

20 

20 

cb 

1408 

45 

4b 

4f 

44 

49 

45 

52 

55 

02 

1110 

45 

4e 

20 

55 

4e 

44 

20 

27 

05 

12 aO : 

20 

20 

20 

20 

92 

Od 

20 

c2 

74 

1410 

4e 

47 

20 

20 

20 

20 

20 

20 

d2 

1118 

d2 

45 

54 

55 

52 

4e 

27 

20 

cl 

12a8 : 

49 

54 

54 

45 

20 

d4 

45 

58 

48 

1418 

20 

20 

92 

20 

c 2 

49 

54 

54 

61 

1120 

47 

45 

42 

45 

4e 

20 

4b 

45 

el 

12b 0 : 

54 20 45 49 4e 4? *5 

42 

48 

1420 

45 

20 

da 

45 

49 

43 

48 

45 

2f 

1128 

49 

4e 

45 

4e 

20 

d4 

4f 

4e 

36 

12b8 : 

45 

4e 

2e 

20 

28 

4d 

41 

58 

57 

1428 

4e 

20 

47 

45 

42 

45 

4e 

2e 

e5 

1130 

29 

Od 

00 

a9 

79 

aO 

12 

20 

3a 

12e0 : 

2e 

32 

35 

36 

20 

da 

45 

49 

9c 

1430 

20 

c4 

4l 

53 

20 

d3 

59 

53 

la 

1138 

le 

ab 

a2 

00 

aO 

10 

20 

3c 

58 

12c8 : 

43 

48 

45 

4e 

29 

00 

c4 

49 

83 

1438 

54 

45 

4d 

20 

50 

4l 

53 

53 

89 

1140 

Oc 

a9 

ce 

aO 

12 

20 

le 

ab 

da 

12d0 : 

45 

20 

cl 

55 

53 

47 

41 

42 

39 

1440 

54 

Od 

20 

20 

53 

49 

43 

48 

44 

1148 

a2 

ff 

a9 

20 

9d 

aO 

04 

a9 

9a 

12d8 : 

45 

20 

4d 

49 

54 

20 

27 

d3 

34 

1448 

20 

4l 

4e 

20 

44 

49 

45 

20 

84 

1150 

07 

9d 

aO 

d8 

ca 

dO 

O 

a9 

bf 

12e0 : 

48 

49 

46 

54 

2b 

d2 

45 

54 

fO 

1450 

c7 

45 

42 

45 

47 

45 

53 

43 

66 

1158 

aO 

8d 

aO 

04 

a9 

07 

8d 

aO 

b2 

12 e 8 : 

55 

52 

4e 

27 

20 

42 

45 

47 

97 

1458 

48 

57 

49 

4e 

44 

49 

47 

4b 

aa 

1160 

d8 

20 

lb 

Oa 

a2 

00 

86 

c6 

22 

12f0 : 

49 

4e 

4e 

45 

4e 

21 

Od 

28 

Of 

1460 

45 

49 

54 

20 

4l 

4e 

21 

Od 

88 

1168 

a6 

c6 

fO 

fc 

bd 

76 

02 

c9 

78 

12 f 8 : 

55 

53 

45 

20 

c3 

d2 

d3 

d2 

14 

1468 

Od 

00 

00 

eb 

34 

89 

cc 

4a 

4a 

1170 

8d 

dO 

16 

20 

45 

12 

a9 

2a 

cf 





















1178 

9d 

aO 

04 

20 

69 

Ob 

ae 

b3 

7c 





















1180 

Od 

a9 

aO 

9d 

aO 

04 

4c 

61 

5c 

Listing 

2. »MT-PROG«. 

Das Morse-TVainer-Hauptprogramm 







1188 

11 

c9 

14 

dO 

lb 

20 

45 

12 

89 

Bitte mit dem 

MSE (Seite 

159) eingeben. 
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GRUNDLAGEN 


C64 



Den C64 gibt es mit ver¬ 
schiedenen Betriebs¬ 
system-Versionen. Als 
Benutzer sollte man sich 
darauf einstellen, um bei 
der Programmierung 
vor bösen Überraschungen 
sicher zu sein. 


H at es Sie auch schon geärgert, daß ein Programm auf 
Ihrem C64 nicht läuft, aber auf dem Computer Ihres 
Freundes problemlos arbeitet? Schuld daran kann 
das Betriebssystem Ihres C 64 sein. Um Mißverständnissen 
gleich vorzubeugen: In diesem Artikel geht es nicht um Be¬ 
triebssysteme, mit denen sich der C 64 nachrüsten läßt, wie 
Speeddos, Prologic Dos oder ähnliches. Gemeint ist viel¬ 
mehr das Betriebssystem, das ab Werk mitgeliefert wird. Es 
befindet sich im ROM (Read Only Memory). 

Die ersten Produktionsserien neu entwickelter Computer 
werden mit Betriebssystem-Versionen ausgestattet, die 
beim täglichen Gebrauch noch kleine Schönheitsfehler 
aufweisen. So war es auch beim C64. Noch im deutschen 
Premierenjahr (1983) wurde das Kernel leicht geändert. Mit 
diesen Änderungen wollen wir uns beschäftigen. 


derungen in der Reihenfolge durchsprechen, in der sie 
auch im Speicher stehen. In Tabelle 1 finden Sie eine Ge¬ 
genüberstellung beider Versionen. Dazu haben wir die 
Kernel-Version Null und Drei ausgelesen und Byte für Byte 
verglichen. 

Der erste Unterschied betrifft nur eine einzige Speicher¬ 
zelle. Die Zelle 58540 ($E4AC) enthält bei älteren C64 den 
Inhalt 92 r 3i der neuen Version 129. Dieses Byte ist nicht 
Bestandteil eines Maschinen-Programms, wird auch nicht 
als Datentabelle verwendet. Daher können wir davon aus¬ 
gehen, daß es sich auch hierbei um eine Versionsnummer 


Null oder Diel? 


Zunächst sollten Sie herausfinden, welche Kernel-Version 
in Ihrem Computer eingebaut ist. Die Versionsnummer 
steht in der letzten Speicherzelle vor der Kernel-Sprungta¬ 
belle: In $FF80. Schalten Sie vor dem Auslesen alle Hard- 
und Software-Erweiterungen, vor allem geänderte Be¬ 
triebssysteme, ab und geben Sie ein: 

PRINT PEEK (65408) 

Nun erscheint die Betriebssystem-Version auf Ihrem Mo¬ 
nitor. Erhalten Sie den Wert Null, so ist Ihr Rechner (wie der 
des Autors dieses Artikels) ein sehr alter C64. Dieser ist 
noch mit der allerersten fehlerhaften Version bestückt. Die 
Zahl Drei hingegen weist auf das neue, verbesserte System 
hin. Auch auf dem C128 im 64’er Modus erscheint die Drei. 
Möglich ist auch, daß eine Eins oder Zwei erscheint. In die¬ 
sem Fall besitzen Sie eine echte Rarität. Bei allen von uns 
getesteten Modellen fanden wir nur die Versionsnummern 
Null und Drei. 

Nun wissen Sie, wie es um das Kernel Ihres Computers 
bestellt ist. Doch was haben Sie nun davon? Welche Fehler 
machen die Version Null zur schlechteren? 

Wenig isf oft viel 


handelt. 

Der Bereich von $E4D3 bis $E4D9 ist bei den älteren C 64 
nicht benutzt und daher mit dem Byte 170 (Assembler- 
Befehl TAX) aufgefüllt. Bei den neueren Modellen wurde 
hier eine neue Routine untergebracht - ein »Rucksack«. 

Von Fehlern und Rucksäcken 


Zum besseren Verständnis stellen Sie sich bitte vor, daß von 
einem funktionsfähigen Maschinenprogramm der Quell¬ 
text verlorengeht. Nun stellt man fest, daß das Programm 
noch einen kleinen Fehler enthält. Änderungen können 
jetzt nur noch am Objektcode (Maschinencode) vorgenom¬ 
men werden. An einer bestimmten Stelle fehlen die Be¬ 
fehle: 

LDA #0 
STA 2 

An dieser Stelle steht aber ein JSR-1234-Befehl. Noch 
vor dem JSR-Befehl sollen die beiden Befehle ausgeführt 
werden. Wie kann man die Befehle dennoch unterbringen? 
Zuerst sucht man im Maschinenprogramm einen Bereich, 
in dem sieben unbenutzte Byte stehen (hier genügt ein zu 
lang geratener Copyright-Vermerk). Dann ersetzt man die 
Adresse im JSR-Befehl durch die Adresse des Freiraumes, 
in welchen folgendes »Ausweichprogramm« geschrieben 
wurde: 


Der Unterschied ist nicht groß, aber entscheidend. So sind 
in der ROM-Version Drei nur 57 Byte abgeändert. Zum Ver¬ 
gleich: Dieses ROM hat 8K (=8192 Byte). Dennoch hat es 
dieser 0,7prozentige Unterschied in sich. Wir wollen die Än¬ 


LDA #0 
STA 2 
JMP 1234 

Der JMP-Befehl springt jetzt die Routine an, die vorher 
von dem JSR-Befehl angesprungen wurde. Der Fehler ist 
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und wird von $EF94 angesprungen. Bei $EF94 steht an 
Stelle von STA $A9 jetzt der JSR $E4D3-Befehl. 

Der folgende Unterschied gab den Anstoß für diesen Arti¬ 
kel. Er ist der schwerwiegendste Unterschied der beiden 
Versionen, da er alle Programme betrifft. Dabei handelt es 
sich um die Defaultfarbe. Die Farbe, mit welcher beim Bild¬ 
schirmlöschen das Farb-RAM gefüllt wird. Bei den älteren 
C64 ist das die Hintergrundfarbe der Speicherzelle 53281 
$E4DA LDA $D021 ; Hintergrundfarbe 

$E4DD STA ($F3),Y; ins Farb-RAM 
$E4DF RTS' ; Routine beenden 

Diese Routine wird vom Bildschirm- 
lösch-Programm bei $EA0B aufgerufen. 
Auch die gezeigte Routine ist ein Ruck¬ 
sack, der aber schon in den älteren Ver¬ 
sionen des ROMs enthalten ist. 


Immer Ärger mit der Farbe 


korrigiert. Vor dem Sprung nach 1234 wird zuerst das »Aus¬ 
weichprogramm« durchgeführt, das die Speicherzelle 2 auf 
Null setzt und dann die gewünschte Unterroutine ab 1234 
abarbeitet. Ein solches »Ausweichprogramm« nennt man 
einen »Rucksack«. 

Die Parität bekommt einen Rucksack 


/ Nach dem Bildschirmlöschen steht im 

' Farbspeicher der älteren C 64-Version die 

Hintergrundfarbe. Ein »A«, das beispiels¬ 
weise mit 

POKE 1024,1 

auf den Bildschirm gebracht wird, ist unsichtbar, das Farb- 
RAM (55296) dieser Stelle steht noch auf dem Wert der Hin¬ 
tergrundfarbe. Erst durch 

POKE 55296,1 

wird das »A« weiß und für uns sichtbar. 

Version Drei vereinfacht die Ausgabe. Die 
neue Routine 

$E4DA LDA $286 ; Cursorfarbe (!) 

$E4DD STA ($F3),Y; ins Farb-RAM 
. RTS ; Routine beenden 

üllt nach <SHIFT CLR/HOME> das Farb-RAM mit der 
Schriftfarbe (Speicherzelle 646). Das »A« ist so nach 

POKE 2023,1 


Wozu dieser Exkurs? Nun, genau dieses Problem steckte 
im alten Kernel des C64. Am Ende der Routine zum Verar¬ 
beiten des empfangenen RS232-Bits (ab $EF59) wurde 
vergessen, die Parität (Speicherzelle 171) auf eins zu set¬ 
zen. Im neuen ROM behebt ein Rucksack (ab $E4D3) den 
Fehler. Der Rucksack lautet disassembliert; 

$E4D3 STA $A9 ; der alte Befehl 
$E4D5 LDA #1 
$E4D7 STA $AB 
$E4D9 RTS 


sofort in der Schriftfarbe sichtbar. Probleme ergeben sich, 
wenn ein Programmierer davon ausgeht, daß sich nach 
dem Löschen die Schriftfarbe im Farb-RAM befindet, und 
in seinem Programm darauf verzichtet, nach direkten Bild¬ 
schirmausgaben mit POKE oder STA auch das Farb-RAM 
zu definieren. Teile des Bildes oder gar der gesamte Bild¬ 
schirm sind auf älteren C64-Modellen einfach unsichtbarl 
Die Besitzer älterer C64 sitzen vor einem leeren Bild¬ 
schirm. Daher unsere Bitte an alle Programmierer, ob Sie 
nun in Basic oder Maschinensprache arbeiten. Schreiben 
Sie Ihre Programme so, daß diese auch auf älteren Compu¬ 
tern funktionstüchtig sind. 


Adressen 

Bemerkung 

$E4AC 

Wurde von 92 auf 129 geändert. Vermutlich eine 
Versionsnummer. 

$E4D3-$E4D9 

ehemals unbenutzt (170), enthält Jetzt Rucksack 
von SEF94. 

$E4DA-$E4DC 

Farbe beim Blldschlrmlöschon, vorher LDA 53281, 
Jetzt LDA 646. 

$E57C-$E599 

Routine zum Cursorpositionieren wurde stark 
gekürzt und enthält ab $E591 jetzt einen Ruck¬ 
sack von $E621. Siehe auch Tabelle 2. 

$E621-$E623 

vorher JSR $E6ED, jetzt $E591. Ruit Rucksack auf 
und behebt Fehler im Blldschlrmedltor (DELete In 
der untersten Zelle) 

$EA07-$EA12 

Routine zum Löschen einer Bildschirmzelle, 
wurde umgestellt und schneller gemacht. 

Siehe Tabelle 3. 

$EF94-$EF96 

Vorher STA $A9, RTS; jetzt JSR $E4D3. Ruit 
neuen Rucksack auf. 

SFF80 

Vorher 0, jetzt 3. Die Versionsnummer. 


Tabelle 1. Die Unterschiede der beiden 
C64-Kernelversionen 


Crash durch DEL-Taste 


Der nächste Fehler der alten Version zieht die meisten Ver¬ 
änderungen nach sich. Besitzen Sie einen alten C64 (Ker¬ 
nel Version Null), dann schalten Sie den Computer einmal 
aus und wieder ein. Bewegen Sie nun den Cursor in die 
zweite Zeile von unten (Zeile 24) und drücken Sie 82mal ei¬ 
ne Zeichen- oder die SPACE-Taste, so daß der Bildschirm 
scrollt. Löschen Sie jetzt die letzten fünf Zeichen mit der 
DEL-Taste. Der Cursor erreicht den Zeilenanfang und sollte 
am rechten Rand der nächsthöheren Zeile erscheinen. 
Doch aufgrund dieses Fehlers reagieren die älteren Model¬ 
le des C 64 höchst sonderbar. Sie simulieren den Druck auf 
die Tasten <SHIFT RUN/STOP> und versuchen, ein Pro¬ 
gramm von Datasette zu laden. Ein Absturz ist die Folge. 

In einer Computerzeitschrift war zu lesen, daß dies am 
STA ($F3),Y-Befehl in $E76C liegt. Commodore hat diesen 
Fehler aber anders behoben - mit einem Rucksack. 
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C64 


Adresse 

alte Version 

neue Version 

$557C 

LDA $D9,X 

JSR $E9F0 

$S57E 

AND #3 


$E67F 


LDA #39 

$E580 

ORA $288 


$E581 


INX 

$E582 


LDY $D9,X 

$E583 

STA $D2 


$E584 


BMI $E58C 

$E585 

LDA $ECF0,X 


$E586 


CLC 

$E587 


ADC #40 

$E588 

STA $D1 


SE589 


INX 

$E58A 

LDA #39 

BPL $E582 

$E58C 

INX 

STA $D5 

$E58D 

LDY $D9,X 


$E58E 


JMP $EA24 

$E58F 

BMI $E597 


SE591 

CLC 

CPX $C9 

$E592 

ADC #40 


$E593 


BEQ $E598 

$E594 

INX 


$E595 

BPL$E58D 

JMP $6ED 

$E597 

STA $D5 


$E598 


RTS 

$E599 

RTS 

NOP 


Tabelle 2. Links die alte, rechts die neue Routine zum 
Plazieren des Cursors. 


Um Platz für diese Ausweichroutine zu schaffen, schrieb 
man die Routine zum Plazieren des Cursors ab $E57C um. 
Den Komplex von $E57C bis $E588 ersetzt ein einziger 
JSR $E9F0-Befehl. Die Routine wurde um 11 Byte kürzer, 
und schaffte Platz für den Rucksack von $E591 bis $E598. 
Das übriggebliebene Byte ($E599) ist mit einem NOP ge- 
füNt. 

Der neue Rucksack sieht disassembliert so aus: 

$E591 CPX $C9 ; Zeilennummer 

$E593 BEQ $E598 ; wenn gleich 

$E595 JMP $E6ED ; sonst weiter wie ohne Rucksack 

$E598 RTS ; wenn gleich, Ende 

$E599 NOP ; Ordnung muß sein 

Er wird von der Warteschleife (Beginn bei $E5CA) der Ta¬ 
statureingabe bei $E621 angesprungen. An die Stelle des 
JSR $E6ED-Befehl tritt in der neuen Version der Befehl JSR 
$E591. Der Fehler im Bildschirm-Editor ist damit behoben. 
Tabelle 2 zeigt die gesamte Routine disassembliert in der 
alten und der neuen Form. 

Auch die nächste Korrektur betrifft den Editor. Ab $E9FF 
steht eine Routine, welche Bildschirmzeilen, deren Num¬ 
mer im X-Register stehen, löscht. Diese Routine ruft auch 
den oben beschriebenen Rucksack bei $E4DA auf und 
sorgt damit für Inkompatibilität (das Farb-RAM betreffend). 

Schneller, kürzer, besser 


Die Routine zum Löschen einer einzelnen Zeile enthielt bei 
der alten Version in der Schleife bei $EA0E einen Faultier- 
Befehl (NOP). Die neue Routine im Bereich von $EA0F bis 
$EA12 wurde umgestellt und wanderte ein Byte nach vorn 
auf $EA0E. Dabei überschrieb sie das untätige NOP. Das 
Löschen des Bildschirms läuft so um ein paar Millisekun¬ 
den schneller ab. In Tabelle 3 ist der relevante Teil disas¬ 
sembliert dargestellt. 

Kniff mit Tücken 


Das waren alle Unterschiede der beiden Kernel-Versionen. 
Hier noch ein Tip für alle Programmierer: Wie auch im Son¬ 


derheft 30 (»Spieleprogrammierung in Assembler«) zu se¬ 
hen ist, kann man folgende Routine verwenden, um das 
Farb-RAM des Bildschirmes auf eine bestimmte Farbe zu 
setzen: 

LDA #2 ; zum Beispiel rot 

STA 646 ; Cursorfarbe 

JSR $E544 ; Bildschirmlöschen 

Beim Bildschirmlöschen wird auf neueren Modellen des 
C64 das gesamte Farb-RAM auf rot gesetzt. Der Program¬ 
mierer kann direkt in den Bildschirmspeicher POKEn. Das 
Farb-RAM ist in diesem Fall wie die Cursor-Farbe auf Rot 
gesetzt. Sollen die Programme auch auf einem alten C64 
laufen, muß man diesen Trick folgendermaßen anwenden: 
LDA #2 ; rot 

STA 646 ; Cursorfarbe (neue C 64) 

STA 53281 ; Hintergrund (alte C 64) 

JSR $E544 ; Bildschirmlöschen 

LDA # ... ; alter Wert der Hintergrundfarbe 

STA 53281 ; rücksetzen 

Der Bildschirm blitzt kurz rot auf. Die Version Null ist zum 
direkten POKE bereit. 

Aus alt mach neu 


Was können Sie tun, wenn ein altes ROM in Ihrem C64 ein¬ 
gebaut ist, Sie aber alle Programme verwenden möchten? 
Sie können sich selbst ein neues Betriebssystem erstellen. 
Dazu kopieren Sie das Kernel ins RAM ab 8192: 

FOR 1=0 TO 8191: POKE 8192+1, PEEK(57344+1): NEXT 
Dies dauert zirka 78 Sekunden, gedulden Sie sich also. 
Im RAM können Sie das System dann manipulieren. Den 
Fehler des Farb-RAM’s ändern Sie mit folgenden Befehlen: 



So können Sie auch alle anderen Unterschiede beseiti¬ 
gen. Die Tabellen 2 und 3 zeigen die Unterschiede im Editor 
disassembliert. Um die Einschaltfarben zu ändern, ver¬ 
wenden Sie folgende POKE-Befehle: 

POKE 11481, Rahmenfarbe 
POKE 11482, Hintergrundfarbe 
POKE 9525, Schriftfarbe 

Korrekterweise sollten Sie noch die Versionsnummer än¬ 
dern. Der POKE dazu: 

POKE 16256,4 

Sind alle Änderungen vorgenommen, brennen Sie den 
Bereich von $2000 bis $3FFF in ein geeignetes EPROM. 
Das genaue Vorgehen können Sie in Ausgabe 8/88 des 
64’er-Magazins nachlesen oder der Bedienungsanleitung 
des verwendeten EPROM-Brenners entnehmen. 

Trauen Sie sich diese Änderungen nicht selbst zu, tippen 
Sie einfach Listing 1 mit dem MSE ab und speichern das 
Programm auf einen Datenträger (Diskette oder Datasette). 
SAVE "AUS 0 MACH 3",8 (für Diskette) 

Schalten Sie Ihren C 64 (alte Kernel-Version!) aus. Entfer¬ 
nen oder deaktivieren Sie eventuelle Erweiterungen. 


Adresse 

alter Version 

neue Version 

$EA07 

LDA #32 

JSR $E4DA 

$EA09 

STA ($D1),Y 


$EA0A 


LDA #32 

$EA0B 

JSR $E4DA 


$EA0C 


STA ($D1),Y 

$EA0E 

NOP (1) 

DEY 

$EA0F 

DEY 

BPL $EA07 

SEA10 

BPL $EA07 


$EA11 


RTS 

$EA12 

RTS 

NOP 


Tabelle 3. Links die Version Null der Zeilenlöschroutine, 
rechts die Version Drei. 
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C64 


GRUNDLAGEN 


Schalten Sie Ihren Computer wieder ein und laden das Pro¬ 
gramm: 

LOAD "AUS 0 MACH 3 ",8 (für Diskette) 

NEW 

Starten Sie es mit 

SYS 49152 

Haben Sie in Ihrem C64 die alte Version (PEEK (65408) 
= 0), wird ab $2000 bis $3FFF die brennfertige Version 3 
des Betriebssystems erzeugt, alle beschriebenen Ände¬ 
rungen sind durchgeführt. Dies dauert nicht einmal eine 
Sekunde. Andernfalls erscheint eine Fehlermeldung. 


Das EPROM setzen Sie jetzt anstelle des Kernel-ROMs 
in Ihren Computer ein, der wird in Zukunft problemlos alle 
Programme verarbeiten. 

Denken Sie beim Programmieren aber auch an die Besit¬ 
zer älterer C64-Versionen. Schreiben Sie Programme so, 
daß alle C64-Fans diese nutzen können. 

Erhalten Sie bei PEEK (65408) einen anderen Wert als 
Null oder Drei, wenden Sie sich doch an die Redaktion. Es 
interessiert uns, ob außer den beiden beschriebenen Ver¬ 
sionen noch andere auf dem Markt sind. 

(N. Heusler/P. Baron/kn) 


Name ; aus 0 maoh 3 cOOO cl81 


C000 

: a5 

01 

29 

fO 

09 

07 

85 

01 

70 

c 008 

: ad 

80 

ff 

fO 

15 

29 

fO 

fO 

53 

C010 

: 08 

a9 

25 

85 

22 

a9 

cO 

dO 

fb 

c018 

: 06 

a9 

33 

85 

22 

a9 

cO 

4c 

7 b 

c020 

: 45 

a4 

4c 

Od 

cl 

49 

4c 

4c 

9c 

c028 

: 45 

47 

41 

4c 

20 

53 

59 

53 

93 

c030 

: 54 

45 

cd 

49 

4c 

4c 

45 

47 

8 e 

c038 

: 41 

4c 

20 

4b 

45 

52 

4e 

41 

b3 

c040 

: cc 

43 

4c 

52 

3a 

52 

45 

4d 

fl 

c048 

; Od 

85 

a9 

a9 

01 

85 

ab 

60 

63 

c050 

: ad 

86 

02 

20 

da 

e4 

a9 

20 

81 

c058 

: 91 

dl 

88 

10 

f 6 

60 

ea 

20 

54 

o060 

fO 

e9 

a9 

27 

68 

b4 

d9 

30 

90 

0 O 68 

: 06 

18 

69 

28 

e8 

10 

f 6 

85 

dO 

c070 : 

d5 

4c 

24 

ea 

e4 

c9 

fO 

03 

38 

C078 : 

: 4c 

ed 

e6 

60 

ea 

Od 

42 

45 

2 b 

c080 : 

49 

20 

24 

32 

30 

30 

30 

2 d 

c8 

c088 : 

: 24 

34 

30 

30 

30 

20 

42 

45 

70 

c090 : 

46 

49 

4e 

44 

45 

54 

20 

53 

b5 


c098 

49 

43 

48 

20 

4e 

55 

4e 

20 

a2 

oOaO 

44 

49 

45 

Od 

42 

52 

45 

4e 

e4 

c0a8 

4a 

46 

45 

52 

54 

49 

47 

45 

ec 

cObO 

20 

56 

45 

52 

53 

49 

4f 

4e 

fO 

c0b8 

20 

33 

20 

44 

45 

53 

20 

43 

f 8 

cOcO 

36 

34 

2 d 

4b 

45 

52 

4e 

41 

68 

c0c8 

4c 

53 

2 e 

Od 

Od 

28 

43 

29 

5d 

oOdO 

52 

45 

41 

54 

45 

44 

20 

42 

lb 

c0d8 

59 

20 

4e 

2 e 

48 

45 

55 

53 

45 

cOeO 

4c 

45 

52 

Od 

28 

2 f 

29 

20 

e6 

o0e8 

4e 

48 

2 d 

31 

35 

30 

37 

38 

ee 

cOf 0 

38 

2 d 

41 

52 

52 

3b 

20 

53 

80 

cOf 8 

4f 

4e 

44 

45 

62 

48 

45 

46 

31 

clOO 

54 

20 

36 

34 

27 

45 

52 

2 c 

b7 

cl08 

4d 

26 

54 

Od 

00 

a2 

20 

86 

c2 


ollO : 

05 

86 

38 

aO 

08 

84 

c 6 

b9 

aa 

Cll 8 i 

40 

cO 

99 

76 

02 

88 

dO 

f 7 

85 

cl 20 ; 

84 

02 

84 

04 

a9 

aO 

8 b 

03 

05 

cl28 : 

bl 

02 

91 

04 

88 

dO 

f 9 

06 

84 

Cl30 i 

03 

e 6 

05 

ca 

dO 

f 2 

a9 

81 

8 f 

cl38 : 

: 8 d 

ac 

24 

a9 

91 

8 d 

22 

26 

b4 

cl40 : 

a9 

e5 

8 d 

23 

26 

a9 

03 

Bd 

7a 

cl48 : 

: 80 

3f 

a9 

4c 

8 d 

94 

2 f 

a9 

e9 

cl50 : 

d3 

8 d 

95 

2 f 

a9 

e4 

8 d 

96 

5a 

cl58 : 

; 2 f 

a 2 

09 

bd 

49 

cO 

9d 

d3 

8 b 

cl60 : 

24 

ca 

10 

f 7 

a 2 

Ob 

bd 

53 

Oc 

C168 : 

: cO 

9d 

07 

2 a 

ca 

10 

f 7 

a 2 

50 

cl70 : 

ld 

bd 

5f 

cO 

9d 

7o 

25 

ca 

44 

cl78 : 

: 10 

f 7 

a9 

7d 

aO 

cO 

4c 

le 

lb 

cl80 : 

: ab 

75 

10 

e4 

00 

64 

10 

e4 

b4 


Llsting 1. Dieses Maschinenprogramm (bitte mit dem MSE 
eingeben) modifiziert die alte Version des Kernels 
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A uf einen Blick können Sie jetzt den für Ihren Zweck ge¬ 
suchten Kunstgriff finden. Eine unentbehrlich Hilfe 
bei der Entwicklung eigener Programme - für Einstei¬ 
ger, Fortgeschrittene und Profis. Die Tips & Tricks reichen 
von einfachen Hilfen, wie dem Disketten-Check, bis zu 
Super-Effekten mit Sprites und Farben. Nützliche Hinweise 
zu Ihren Peripherie-Geräten stehen in den Kapiteln 
»Drucker« und »Floppy«. Hier zeigen wir Ihnen beispiels¬ 
weise, wie ein Farbband neues Leben erhält. Tabelle 1 ent¬ 
hält eine Übersicht aller Rubriken und wo Sie diese finden. 

(M.Thomas/P. Baron/kn) 


Rubrik 

Tip-Nummer 

ab Seite 

Programmieren 

1 bis 38 

120 

Mathematik 

39 bis 45 

140 

Grafik 

46 bis 59 

142 

Sound 

60 und 62 

149 

Floppy 

63 bis 72 

150 

Drucker 

73 bis 79 

153 

Hardware 

80 bis 83 

155 


Tabelle 1. Die Tips nach Rubriken geordnet 


Tips und Tricks sind für jeden Computer-Fan das 
Salz in der Suppe. Deshalb haben wir für Sie 
intessante Tips & Tricks, die nach dem Sonder¬ 
heft 24 erschienen sind, gesammelt und über¬ 
sichtlich geordnet. 


1 Wo ist der Cureor? 


Dieses kleine Assemblerprogramm (Listing 1) schreibt die 
absolute Adresse der aktuellen Cursor-Position (Bild¬ 
schirmspeicher und Farb-RAM) in die rechte obere Ecke 
des Bildschirms. Das alles geschieht interrupt-gesteuert. 
Sie können also mit dem Cursor auf dem Bildschirm umher¬ 
fahren und sich die Werte dauernd anzeigen lassen. Vor al¬ 
lem bei der Programmierung von Spielen mit direkter Bild¬ 
schirmsteuerung ist das Programm äußerst hilfreich! 

Nach dem Laden mit »,8,1« wird die Routine mit SYS 
49152 
initialisiert. 
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TIPS&TRICKS 


Name 

cursorpos. 



cOOO c0b8 

eOOO 

78 

a9 

11 

a2 

cO 

8d 

14 

03 

b4 

c008 

8e 

15 

03 

a9 

05 

85 

fd 

58 

3c 

C010 

60 

c6 

fd 

fO 

03 

4c 

31 

ea 

9e 

c 018 

a9 

05 

85 

fd 

a2 

e9 

b5 

21 

f7 

c020 

9d 

aO 

cl 

ca 

dO 

88 

a9 

00 

52 

c028 

85 

ff 

a5 

d6 

85 

fe 

06 

fe 

57 

c030 

26 

ff 

06 

fe 

26 

ff 

a5 

fe 

ae 

c038 

18 

65 

d6 

85 

fe 

90 

03 

e6 

b7 

c040 

ff 

18 

06 

fe 

26 

ff 

06 

fe 

25 

c048 

26 

ff 

06 

fe 

26 

ff 

a5 

ff 

c8 

c050 

18 

69 

04 

85 

ff 

a5 

d3 

18 

7b 

c058 

65 

fe 

85 

fe 

90 

03 

e6 

ff 

3a 

c 060 

18 

a5 

d6 

85 

fb 

a5 

d3 

85 

f8 

c 068 

fo 

a2 

00 

aO 

lb 

18 

20 

fO 

9e 

c070 

ff 

a9 

3c 

20 

d2 

ff 

a5 

ff 

lb 

c078 

8d 

b5 

cO 

a6 

fe 

8e 

b6 

cO 

a5 

c080 

20 

cd 

bd 

a9 

2f 

20 

d2 

ff 

6b 

c088 

ad 

b5 

cO 

38 

ed 

52 

cO 

18 

ec 

c090 

69 

d8 

8d 

b5 

cO 

ae 

b6 

cO 

5d 

c098 

20 

cd 

bd 

a9 

3e 

20 

d2 

ff 

74 

cOaO 

a6 

fb 

a4 

fc 

18 

20 

fO 

ff 

53 

c0a8 

a2 

e9 

bd 

aO 

cl 

95 

21 

ca 

a5 

cObO 

dO 

f8 

4e 

31 

ea 

00 

00 

00 

e4 


Listing 1. »CURSOR-POS« zeigt Ihnen laufend 
die aktuelle Adresse des Cursors 



Wenn Sie den Bildschirmspeicher an eine andere Adres¬ 
se gelegt haben, können Sie das Programm daraufhin än¬ 
dern: In Adresse 49234 steht die Page-Nummer des Bild¬ 
schirms. Normalerweise steht hier der Wert 4 ($0400). Die 
Anzeige enthält dann die neuen Werte des Bildschirmspei¬ 
chers. Das Farb-RAM bleibt unverändert, da es nicht an ei¬ 
ne andere Position im Speicher gelegt werden kann. 

(S. Rother/rs) 

2 Das Geheimnis der SHIFT-Tasten 


Vielleicht haben Sie es schon einmal gehört: Die beiden 
SHIFT-Tasten des C 64 lassen sich getrennt abfragen. Li¬ 
sting 2 hilft Ihnen dabei. Nach dem Start mit SYS 49152 
steht in Adresse 2 der aktuelle Zustand der Tasten: 


Name 

: shift-logik 



cOOO c078 

cOOO 

: 78 

a9 

12 

a2 

cO 

8d 

14 

03 

f4 

e008 

: 8e 

15 

03 

a9 

05 

8d 

75 

cO 

2b 

cOlO 

: 58 

60 

ce 

75 

cO 

fO 

03 

4c 

33 

c 018 

: 31 

ea 

a9 

05 

8d 

75 

cO 

a9 

a4 

c020 

: 00 

85 

02 

8d 

77 

cO 

8d 

00 

c9 

c028 

: de 

ad 

01 

de 

c9 

ff 

fO 

42 

9c 

c030 

: 8d 

76 

cO 

a2 

00 

86 

02 

2c 

11 

c038 

: 76 

cO 

10 

23 

ad 

76 

cO 

29 

5b 

c040 

: 10 

dO 

19 

a9 

bf 

8d 

00 

de 

56 

c048 

: ad 

01 

de 

29 

10 

dO 

Od 

a9 

el 

c050 

: 02 

85 

02 

ad 

77 

cO 

10 

04 

11 

c058 

: a9 

03 

85 

02 

4c 

31 

ea 

a9 

72 

c060 

: fd 

8d 

00 

de 

ad 

01 

de 

30 

76 

c068 

: d3 

a9 

01 

85 

02 

a9 

80 

8d 

8b 

c070 : 

: 77 

cO 

4c 

3c 

cO 

00 

00 

00 

ee 


Listing 2. Mit »SHIFT-LOGIK« lassen sich die 
<SHIFT>-Tasten des C64 getrennt abfragen 


0 - keine SHIFT-Taste gedrückt, 

1 - linke SHIFT-Taste, 

2 - rechte SHIFT-Taste oder 

3 - beide SHIFT-Tasten gedrückt. 

Diese Abfrage läßt sich gut in eigenen Spielen zum Beispiel 
für die Steuerung eines Raumschiffes verwenden. 

(S. Rother/kn) 

in die 


3 Doppel-PEEK 


Wenn man zum Beispiel feststellen möchte, wo ein Basic- 
Programm im Speicher endet, gibt man normalerweise ein: 
PRINT PEEK(45)+PEEK(46)*256 
Als Ergebnis erhält man die erste Adresse nach dem Pro¬ 
gramm. Die Speicherzellen 45 und 46 enthalten diese 
Adresse. Im Handbuch sind im Anhang noch weitere nützli¬ 
che Speicherstellen beschrieben. 

Wenn man die DEF FN-Funktion trickreich einsetzt, kann 
man die oben genannte Zeile wesentlich kürzer schreiben. 
Zunächst definieren wir uns eine DEEK-Funktion: 

DEF FN DEEK(X) = PEEK(X) + PEEK(X+l) * 2% 

Um nun wieder die Endadresse des aktuellen Basic-Pro- 
gramms auszugeben, geben Sie ein: 

PRINT FN DEEK(45) (Bernd Wiedemann/rs) 


4 < RUN/STOP > abfangen 


Bei vielen professionellen Programmen möchte man aus 
Gründen der Bedienungssicherheit, daß das Programm 
nicht abgebrochen werden kann. Die untenstehenden Pro¬ 
grammzeilen bewirken, daß das Programm bei der ersten 
Programmzeile fortfährt, wenn man <RUN/STOP> 
drückt. 

DATA 165,145,201,127,208,3,32,142,166,96 
F0R 1=828 T0 837:READ A:P0KE I,A:NEXT:SYS 828 

Zwei Dinge muß man aber beachten: 
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TIPS&TRICKS 


C64, CI28 


1. Die erste Zeile des Programms sollte eine Variable 
testen, von der man sicher weiß, daß sie innerhalb des 
Programms ständig gebraucht wird, also niemals gleich 
Null ist. Zum Beispiel: 

10 IF A< >0 THEN GOTO xxx 
Für xxx sollte man die Zeilennummer einsetzen, ab 
der das Programm nach dem Drücken der 
< RUN/STOP>-Taste fortgesetzt werden soll (zum Bei¬ 
spiel eine entsprechende Meldung). 

Was bringt das? Auf diese Weise können Sie zum Bei¬ 
spiel vom Programm aus auf das Drücken der 
<RUN/STOP+RESTORE>-Taste reagieren. Ange¬ 
nommen, Sie haben eine Dateiverwaltung program¬ 
miert und möchten, daß der Benutzer mit der genannten 
Taste ins Hauptmenü zurückspringen kann. Nehmen wir 
weiter an, daß Sie in Ihrem Programm laufend die Varia¬ 
ble A verwenden und daß das Hauptmenü bei Zeile 100 
beginnt. Die erste Programmzeile muß dann so ausse- 
hen: 

10 IFAOO THEN GOTO 100 

2. Obwohl das Programm wieder mit der ersten Zeile 

des Programms fortgesetzt wird, bleiben alle Varia¬ 
blen erhalten. (Urs Pfister/rs) 


5 Fehler im IIST-Befehl umgangen 


Stößt der Computer beim LISTen auf das Zeichen 
<SHIFT+L>, so bricht er mit einem »SYNTAX ERROR« 
ab, da er durch diesen Code irrtümlich in die FOR-NEXT- 
Routine des Interpreters verzweigt. Da beim LISTen für ge¬ 
wöhnlich keine FOR-NEXT-Parameter angegeben werden, 
ist dieses Verhalten durchaus verständlich. Mit einem klei¬ 
nen Trick jedoch kann der Syntax Error umgangen werden. 
Man braucht nur beliebige FOR-NEXT-Parameter nach 
dem LIST-Befehl anzugeben! Das klappt allerdings nur, 
wenn vor den Parametern der Bindestrich aus dem Befehl 
»LIST a - b« steht. Die Befehlsfolge sieht dann so aus: 
LIST 10- A=1 TO 1 

Nach 12maligem LISTen erscheint allerdings ein OUT 
OF MEMORY ERROR, da zu viele FOR-NEXT-Schleifen 
ineinander verschachtelt und nicht geschlossen wurden. 
Hängt man also noch ein NEXT an obige Befehlsfolge, so 
kann dies vermieden werden. (Bernhard Wannke/sk) 


6 Turbo-POKE für den C 64/128 


Besitzen Sie einen C 128 mit dem Sie vorwiegend im C 64- 
Modus arbeiten? Wenn ja, können Sie sich freuen. Nach 
langem Wühlen in den Tiefen des Speichers können wir Ih¬ 
nen den POKE vorstellen, der den C 64-Modus um bis zu 
55 Prozent beschleunigt. Geben Sie ein: 

POKE 53296,1: POKE 53265,10 

Der Bildschirm wird abgeschaltet und der Prozessor wird 
nun mit 2 MHz statt bisher mit 0,94 MHz getaktet. 

Mit: 

POKE 53296, PEEK (53296) AND 254: POKE 53265, 27 
wird der Ausgangszustand wieder hercjestellt. Einige Ein¬ 
schränkungen sind allerdings zu machen: Es sind während 
des schnellen Modus keine Floppy-Zugriffe möglich. Die 
Tastatur wird jedoch noch abgefragt und auch Ausgaben 
auf dem Drucker sind möglich. Diese POKEs eignen sich 
besonders für langwierige Berechnungen in Programmen 
und andere zeitkritische Routinen, bei denen eine Bild¬ 
schirmausgabe nicht notwendig ist. (Florian Müller/sk) 


7 Absturz auf gekonnte Weise 


Wollen Sie Ihren C 64 einmal richtig durcheinander brin¬ 
gen? Wenn ja, dann geben Sie zuerst SYS 62391 ein. Da¬ 
nach wird jede mit < RETURN > bestätigte Eingabe, so 
richtig sie auch sein mag, mit »7SYNTAX ERROR« quittiert. 
Durch Betätigen der Tastenkombination <SHIFT + 
CLR/HOME> wird es sogar noch schlimmer. Der Cursor 
flackert hektisch in der linken oberen Ecke des Bildschirms. 
Nur noch einige wenige Tasten, zum Beispiel »E« sind über¬ 
haupt noch ansprechbar. Ansonsten stellt der Computer 
sich tot. Dies ist ganz interessant, wenn man zu Kopier¬ 
schutzzwecken ein Programm auf diese Weise beenden 
möchte. Dazu verwendet man folgende Zeile: 

100 SYS 62391:X 

Probieren Sie es aus, aber Vorsicht! Das im Speicher be¬ 
findliche Programm geht verloren. (Florian Müller/sk) 

8 Basic Programm-Start in Assembler 


Es wurde schon oft gefragt, wie man in Assembler ein Pro¬ 
gramm schreiben kann, das mit LOAD"name",8 und RUN 
gestartet werden kann. Hier ist die Lösung im Hypra-Ass- 
Format: 

10 -.ob "name,p,w" ;Objektcode auf Disk 
20 -.ba $0801 ;Startadresse $0801 

30 -.wo NZ ;Adresse nächste Basic Zeile 

40 -.wo ZN ;Zeilennummer (beliebig) 

50 -.by $9e ;lnterpretercode »SYS« 

60 -,tx" 2062" 


70 -.by 0 
80 -.wo 0 
90 -; 
xx -.en 


;Null für Zeilenende 
;Basic-Programm-Ende 
weiterer Assemblertext 

(Lars Jedinski/sk) 


9 Steuersequenzen 

per Basic-Erweiterung 


Es ist wahrscheinlich jedem C 64-Besitzer bekannt, wie lä¬ 
stig es ist, diverse Steuercodes mittels CHR$-Befehl an 
Floppy oder Drucker zu schicken. Dieser Befehl sendet je¬ 
weils ein Zeichen, was bei längeren Steuersequenzen, 
auch bei Verwendung einer FOR-NEXT-Schleife recht 
langsam vonstatten geht und den Druckkopf oftmals zu wil¬ 
den Zuckungen bringt. Dem kann abgeholfen werden. 
Nach dem Eintippen von »SEQUENZ« mit dem MSE und 
Abspeichern kann der geplagte Drucker- oder Floppy- 
Programmierer mittels dieses kleinen Programms (Listing 
3) sein spartanisches Basic durch SYS 828 um den Befehl 
»SEQ#« erweitern. Man geht folgendermaßen vor: 

LOAD "SEQUENZ'',8,1 <RETURN> 

NEW: < RETURN > 

SYS 828 < RETURN > 

In diesem Fall steht die Routine im Kassetten-Puffer. Wer 
darauf nicht verzichten möchte, sollte das Programm »SE¬ 
QUENZ II« (Listing 4) eingeben, das im Bereich 
$C000-$C0C0 steht und entsprechend mit SYS 49152 (ent¬ 
spricht dem hexadezimalen Wert C000) initialisiert wird. 
Die vollständige Syntax des neuen Befehls lautet: 
SEQ#n,(x,w:y,"d"„- ,z); 

Vor der Benutzung des. Befehls muß mit dem entspre¬ 
chenden OPEN-Kommando ein Kanal zum gewünschten 
Gerät (Drucker,Floppy,Bildschirm) geöffnet werden. Zum 
Beispiel »OPEN 1,8,15«, um Befehle zur Floppy-Station zu 
senden. Das »n« steht für die Filenummer, »x,y,z« stehen für 
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TIPS&TRICKS 


C 64, C 128 


die jeweiligen ASCII-Codes, die gesendet werden sollen. 
Getrennt werden die Codes durch Kommata. Den Zeichen 
kann noch der Wiederholungsfaktor »w« im Bereich von 1 
bis 255 vorangestellt werden, dem ein Doppelpunkt folgen 
muß. Das danach folgende Zeichen wird »w«-mal gesendet. 
Es können auch Strings wie»" d"«gesendet werden, die al¬ 
lerdings nicht wiederholt werden können. Das»;«am Ende 
der Befehlssequenz verhält sich wie bei einem PRINT- 


Befehl. Fehlt es, wird ein Carriage Return mit ausgegeben 
und bei Filenummern über 128 (n) wird noch ein Linefeed 
mit angehängt. Zur besseren Verständlichkeit der Syntax 
zeigt das Beispiel (Listing 5) einige Anwendungen des 
SEQ#-Befehls. Zuerst werden einige Zeichen am Bild¬ 
schirm ausgegeben, danach wird Spur 35 einer Diskette in 
der Floppy-Station mit »00« beschrieben (Vorsicht, keine 
wichtigen Disketten verwenden!) Anschließend werden 


Name : 

: Sequenz 




033c 03 fc 

033c : 

: aO 

47 

a9 

03 

8c 

08 

03 

8d 

7b 

0344 : 

: 09 

03 

60 

aO 

01 

20 

73 

00 

da 

034o : 

: c9 

53 

dO 

25 

48 

bl 

7a 

c9 

27 

0354 : 

: 45 

dO 

ld 

c8 

bl 

7a 

c9 

51 

la 

035c : 

: dO 

16 

c8 

bl 

7a 

c9 

23 

dO 

c4 

0364 : 

: Of 

68 

c8 

98 

18 

65 

7a 

85 

8e 

036c ; 

: 7a 

90 

09 

e6 

7b 

4c 

78 

03 

4f 

0374 : 

68 

4o 

e7 

a7 

20 

9e 

b7 

20 

07 


037c : 

: fd 

ae 

20 

c9 

ff 

20 

fa 

ae 

5c 

0384 : 

: 20 

d5 

03 

aO 

00 

bl 

7a 

c9 

6f 

038c : 

: 3a 

dO 

13 

86 

02 

20 

73 

00 

b3 

0394 : 

: 20 

9e 

b7 

8a 

20 

ec 

03 

c6 

45 

039c : 

: 02 

dO 

f9 

4c 

a6 

03 

8a 

20 

fb 

03 a4 : 

: ee 

03 

aO 

00 

bl 

7a 

c9 

2c 

a8 

03ac : 

: dO 

06 

20 

73 

00 

4c 

84 

03 

70 

03b4 : 

; c9 

29 

fO 

03 

4 c 

08 

af 

20 

b2 

03bc : 

: 73 

00 

aO 

00 

bl 

7a 

c9 

3b 

e4 

03 c4 : 

: fO 

06 

20 

d7 

aa 

4c 

cf 

03 

Od 


03cc : 

: 20 

73 

00 

20 

cc 

ff 

4c 

e7 

78 

03d4 : 

: a7 

20 

9e 

ad 

24 

Od 

30 

0a 

68 

03dc : 

: 20 

f7 

b7 

a6 

14 

a9 

00 

85 

54 

03e4 : 

: f7 

60 

20 

a6 

b6 

85 

f7 

60 

20 

03ec : 

: a6 

f7 

dO 

04 

20 

d2 

ff 

60 

9c 

03 f4 : 

: a6 

f7 

20 

25 

ab 

60 

00 

00 

00 


Llstlng 3. »SEQUENZ« im Bereich 
ab S033C 


Name : Sequenz II cOOO cOcO 


cOOO 

: aO 

Ob 

a9 

cO 

8c 

08 

03 

8d 

d8 

C008 : 

: 09 

03 

60 

aO 

01 

20 

73 

00 

9e 

C010 : 

: c9 

53 

dO 

25 

48 

bl 

7a 

c9 

eb 

c018 : 

: 45 

dO 

ld 

c8 

bl 

7a 

c9 

51 

de 

c020 : 

: dO 

16 

c8 

bl 

7a 

c9 

23 

dO 

88 

c028 : 

: Of 

68 

c8 

98 

18 

65 

7a 

85 

52 

c030 : 

: 7a 

90 

09 

e6 

7b 

4c 

3c 

cO 

9e 

c038 : 

: 68 

4c 

e7 

a7 

20 

9e 

b7 

20 

cb 


c040 

fd 

ae 

20 

c9 

ff 

20 

fa 

ae 

20 

c048 

20 

99 

cO 

aO 

00 

bl 

7a 

c9 

84 

c050 

3a 

dO 

13 

86 

02 

20 

73 

00 

77 

c058 

20 

9e 

b7 

8a 

20 

bO 

cO 

c6 

lf 

c060 

02 

dO 

f9 

4c 

6a 

cO 

8a 

20 

e9 

c068 

bO 

cO 

aO 

00 

bl 

7a 

c9 

2c 

Of 

c070 

dO 

06 

20 

73 

00 

4c 

48 

cO 

bf 

c078 

c9 

29 

fO 

03 

4c 

08 

af 

20 

76 

c080 

73 

00 

aO 

00 

bl 

7a 

c9 

3b 

a8 

c088 

fO 

06 

20 

d7 

aa 

4c 

93 

cO 

5b 


c090 : 

: 20 

73 

00 

20 

cc 

ff 

4c 

e7 

3c 

c098 : 

: a7 

20 

9e 

ad 

24 

Od 

30 

Oa 

2c 

cOaO 

: 20 

f7 

b7 

a6 

14 

a9 

00 

85 

18 

c0a8 : 

: f7 

60 

20 

a6 

b6 

85 

f7 

60 

e4 

cObO : 

: a6 

f7 

dO 

04 

20 

d2 

ff 

60 

60 

c0b8 . 

: a6 

f7 

20 

25 

ab 

60 

9d 

00 

3b 


Listing 4. »SEQUENZ« im Bereich 
ab SC000 


5 REM BEISPIEL 2 FUER EPSON FX-B0+/05 & VC 


110 

SEQ»2,(255:0) ; 

< 153> 

1541 <1B2> Q 

120 

CEGttl, ("U2 2 0 35 0") 5 

< 156> 

10 REM VERSCHIEDENE VARIANTEN DEN SEQ-BEFE 


130 

Ci_OSE IsCLDSE 2 

<208> 

HL ANZUWENDEN 

<025> 

140 

REM 

<202 > 

20 SEG#1,(65):REM 'A' AUF BILDSCHIRM 

<216> 

150 

OPEN 1,4,12:REM SEK.ADR.12 = LINEARKAN 


30 SEQ#1,(65,66,67,60,69)sREM 'ABCDE' AUF 



AL BOERLITZINTERFACE WIESEMAN=1 

< 1547 

BILDSCHIRM 

<020> 

160 

SEQttl, (" CCTRL-OK",255,0,255:255) :REM 


40 SEQttl, (80:66) : REM 00 * B' AUF BILDSCHI 



ZEICHNEN EINES BALKENS IM EPSONBRAFIKM 


RM 

<232> 


ODE 

< 143> 

50 SEQttl,(80:65,80:66) :REM 00 » 'A' 8< 80 * 


170 

SEQ#1, <" CCTRL-OL" , 12,0,1 ,3,7,15,31,63 


•B' AUF BILDSCHIRM 

<035> 


,63,31,15,7,3,1):REM DREIECK ZEICHNEN 

< 172> 

60 SED#1,("ABCDEF”):REM ABCDEF AUF BILDSCH 


100 

SEQ#1,("{CTRL-1 >&",0,"AA",139,30,11,64 


IRM 

< 117> 


,73,240,137,64,73,30,0,0,0,” {CTRL—07." 


70 A*="ABCDEF":A=90:5EQ#1,(MID*(A*,2,3),SI 



,1,0,“AAAA") 

<225> 

N < A*£/ 180 > *4 : 14»4) 

<207> 

101 

REM NEUES ZEICHEN DEFIENIEREN & AUSDRU 


00 REM * BCD008' AUF BILDSCHIRM 

<065> 


CKEN 

< 154> 

05 REM 

< 147> 

190 

CLOSE 1 

<201 > 

90 OPEN 1,0,15:OPEN 2,8,2,:REM BLOCK 35 





00 AUF DISKETTE MIT 00 VOLLSCHREIBEN 

<022> 




100 SEQttl,(“Ul 20350"); 

<128> 

Listing 5. Beispielprogramm zu »SEQUENZ« 



100 REM ZEILENMARKER <021> 
110 REM BY <0S3> 
120 REM ALEXANDER <095> 
130 REM PIEL <145> 
140 REM <202> 
150 REM <C> 1906 <250> 
160 KOR 1=49156 TO 49266s READ AsPOKE I,A <072> 
170 S=S+A:NEXT <005> 
100 IF S=12640 THEN 510 <120> 
190 PRINT“DATA~FEHLER":END <17B> 
200 DATA 120,169, 35,141, 20, 3,169 <159> 
210 DATA 192,141, 21, 3,173, 17,200 <191> 
2?ÜI DATA 41,127,141, 17,200,169, 0 <169> 
2t5(S DATA 141, 10,200,169,129,141, 26 <055> 
240 DATA 200, 00, 96,173, 25,20B,141 <162> 
,350 DATA 25,208, 48, 7,173, 13,220 <220> 
260 DATA 00, 76, 49,234,165,214,197 <007> 
270 DATA 2,240, 21,133, 2,165,214 <027> 
200 DATA 141, 0,192, 24, 42, 42, 42 <034> 
290 DATA 105, 49,141, 0,192,105, 9 <186> 
300 DATA 141, 1,192,173, 18,200,205 <164> 
310 DATA 1,192,176, 15,173, 2,192 <018> 


320 

DATA 

141, 33,200,173, 1,192,141 

< 146> 

330 

DATA 

18,200, 76,112,192,173, 3 

< 220 > 

340 

DATA 

192,141, 33,200,173, 0,192 

<246> 

350 

DATA 

141, 10,200, 76,180,254 

< 106> 

400 

REM 

EINSCHALTEN MIT 

<209> 

410 

REM 

SYS 49156 

<143> 

420 

REM 

FARBE DES BALKENS s 

< 192> 

430 

REM 

POKE 49154,C FARBCODE 3 

<070> 

440 

REM 


<24B> 

450 

REM 

HINTERGRUNDFARBE NICHT MEHR 

<231> 

460 

REM 

POKE 53281,C FARBCODE 3 

< 212 > 

470 

REM 

SONDERN 

<014> 

400 

REM 

POKE 49155,C FARBCODE 3 

< 120 > 

490 

REM 


<042> 

500 

REM 

DEMO 

<038> 

510 

POKE 

49154,IsPOKE 49155,PEEK(532B1> 

<094> 

520 

SYS 49156 

<072> 


6 G4'er- 

Listing 6. »ZEILENMARKER« markiert die Zeile, in der 
sich der Cursor befindet, mit einer anderen Farbe 
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über den Linearkanal des Druckers ein Balken und vei> 
schiedene Sonderzeichen ausgegeben. Mit Hilfe dieses 
Beispiels dürfte es ein Einfaches sein, die »SEQUENZ«- 
Routine für eigene Programme zu verwenden. 

(Alexander Lazarevic/sk) 


10 Das Zeilenlineal 


Kennen Sie diese Szene? Man hat ein Listing aus dem 
64’er-Magazin abgetippt und offensichtlich irgendwo noch 
eineh Tippfehler gemacht. Sie lassen sich also mit dem 
LIST-Befehl die ersten Programmzeilen auf dem Bild¬ 
schirm ausgeben. Nun wird Zeile für Zeile mit dem Listing 
im Heft verglichen. Wie leicht kann man aber um eine Zeile 
verrutschen. Auf der Heftseite können Sie ja noch ein Line¬ 
al zur Merkhilfe anlegen, aber auf dem Bildschirm...? 

Hier hilft Ihnen der »Zeilenmarker« (siehe Listing 6) wei¬ 
ter: Er hebt die Zeile, in der gerade der Cursor steht, durch 
eine andere Farbe hervor. Eine nicht zu unterschätzende 
Hilfe. 

Als erstes müssen Sie Listing 6 abtippen. Wenn Sie dazu 
unsere Eingabehilfe »Checksummer« verwenden, sollten 
Sie nach dem Abtippen < RUN/STOP RESTORE> 
drücken. Speichern Sie nun den Zeilenmarker auf Diskette 
oder Kassette. Nach der Eingabe von RUN wird der Zeilen¬ 
marker aktiviert. 

Wenn Sie ihn nicht mehr brauchen, drücken Sie einfach 
< RUN/STOP RESTORE >. Danach kann er mit SYS 49156 
wieder eingeschaltet werden. (Gregor Alexander Piel/rs) 


11 RAM-Version EXOS 


Eine kleine Erweiterung ermöglicht es, EXOS, Listing des 
Monats im 64’er-Magazin, Ausgabe 12/86, ohne EPROM zu 
betreiben. Eine Verschieberoutine kopiert das EPROM- 
fertige Betriebssystem von $2000 bis $3FFF nach $E000 
bis $FFFF. Dazu wird noch das Basic-ROM in das darunter¬ 
liegende RAM kopiert, so daß wie bei Hypra-Load mit PO- 
KE 1,55 auf Original-ROM und mit POKE 1,53 auf EXOS- 
ROM geschalten wird. 

Der Basic-Lader (Listing 7) erwartet EXOS V3 auf Disket¬ 
te und generiert nach dem Start das im RAM lauffähige 
»NEXOS«. 


0 REM ERWEITERUNG ZU EXOS <021> 
1 REM BY TIMO LANGEMANN 1986 <149> 
10 FOR 1=4471 TO 4540:READ X>C=C+X.’POKE I, 

X!NEXT <248> 
20 PRINT CHR$<147)sIF C <> 8921 THEN END <062> 
30 PRINT"CDOWNJO.K. LADE JETZT DAS ORIGINA 

L EXOS BE-" <243> 
40 PRINT 11 CDOWNITRIEBSSYSTEM UND GEBE FOLGE 

NDES EIN =" <242> 


47 PRINT"C3DOWN1NEW" <191> 

50 PRINT"C2DOWNH986 SYS4471" <087> 

60 PRINT"C2DOWNJPOKE 45,190:POKE 46,17:SAV 

E"CHR$<34>"NEXOS"iCHR$(34);",8,1" <206> 

32000 DATA 32,13,8,160,160,169,0,133,95,13 
2,96,160,192,169,0,133,90,132,91,160 <014> 

32001 DATA 192,169,0,133,88,132,89,32,191, 
163,160,32,169,0,133,95,132,96,160,6 

3 <253> 

32002 DATA 169,255,133,90,132,91,160,255,1 

69,255,133,88,132,89,32,191,163,173 <255> 

32003 DATA 255,63,141,255,255,169,53,133,1 

,32,248,252 <058> 

© 64'er 

Listing 7. »EXOS« als RAM-Version 


Name 

uncover v3. 



e200 c2d7 

c200 

aO 

00 

b9 

50 

00 

99 

34 

03 

bc 

c208 

c8 

cO 

07 

dO 

f5 

18 

20 

33 

13 

c210 

a5 

aO 

00 

b9 

2b 

00 

85 

50 

a6 

c218 

c8 

b9 

2b 

00 

85 

51 

88 

bl 

fO 

c220 

50 

85 

54 

c8 

bl 

50 

85 

55 

bf 

c228 

bl 

54 

fO 

0c 

48 

88 

bl 

54 

f9 

c230 

85 

54 

c8 

68 

85 

55 

dO 

fO 

47 

c238 

aO 

01 

bl 

50 

fO 

73 

aO 

04 

04 

c240 

bl 

50 

fO 

Of 

aO 

01 

bl 

50 

bl 

0248 

48 

88 

bl 

50 

85 

50 

68 

85 

d2 

c250 

51 

dO 

e5 

c8 

c8 

bl 

50 

c9 

8b 

c258 

3a 

18 

fO 

f8 

c9 

00 

dO 

01 

db 

c260 

88 

84 

56 

18 

a5 

50 

85 

52 

5b 

c 268 

a5 

51 

85 

53 

a4 

56 

bl 

52 

ea 

c270 

aO 

04 

91 

52 

c6 

52 

dO 

f4 

ef 

c278 

a5 

53 

c5 

55 

fO 

04 

e6 

53 

54 

c280 

dO 

ea 

38 

98 

e5 

56 

65 

54 

36 

c288 

bO 

02 

c6 

55 

18 

85 

54 

a9 

e8 

c290 

20 

20 

0c 

el 

aO 

02 

bl 

50 

81 

c298 

aa 

c8 

bl 

50 

20 

cd 

bd 

a5 

cf 

c2a0 

d3 

c9 

21 

18 

30 

05 

a9 

Od 

8f 

o2a8 

20 

0c 

el 

20 

33 

a5 

b8 

50 

2f 

c2b0 

93 

a9 

02 

65 

50 

90 

02 

e6 

a4 

c2b8 

51 

18 

85 

2d 

85 

2f 

85 

31 

67 

c2c0 

a5 

53 

85 

2e 

85 

30 

85 

32 

8a 

c2c8 

aO 

00 

b9 

34 

03 

99 

50 

00 

9b 

c2d0 

c8 

cO 

07 

dO 

f5 

18 

60 

20 

b6 


Listing 8. Entfernt den Schutz vom 
HIDE und SECURE: »UNCOVER« 


Leider sind nicht alle Funktionen erhalten geblieben. So 
mußten wir auf die RAM-Disk verzichten, die jetzt im Be¬ 
reich von Basic und Betriebssystem läge. Außerdem kann 
EXOSniH, nit < RUN/STOP RESTORE> deaktiviert wer¬ 
den. Sonst hat sich an den Funktionen von Exos nichts ge¬ 
ändert. 

(T. Langemann/rs) 

12 HIDE geknackt 


»UNCOVER« (Listing 8) dient zum Entfernen eines List¬ 
schutzes, der von HIDE oder SECURE (Simons Basic) er¬ 
zeugt wurde. Gestartet wird Uncover mit SYS 49152. Es gibt 
dann die jeweils bearbeitete Zeilennummer aus. Nach dem 
READY läßt sich das Programm ganz normal LISTen. 

Da innerhalb der Routine nur relative Sprünge benutzt 
werden, kann sie an jeder beliebigen Stelle im Speicher 
stehen. Insgesamt belegt Uncover 215 Byte. Benutzer von 
Simons Basic müssen beachten, daß die Grafik-Befehle 
den $C000-Bereich überschreiben. Uncover sollte also vor 
dem Start neu geladen oder in einen anderen Bereich ver¬ 
schoben werden, zum Beispiel durch folgenden Einzeiler: 
F0RI=0T0215:POKE30000+I,PEEK(49152+I):NEXT 

Uncover kann auch nach dem geschützten Programm 
geladen werden. Es korrigiert die Basic-Zeiger auf das im 
Speicher befindliche Basic-Programm. Somit kommt kein 
OUT OF MEMORY ERROR vor. Die Funktion wird durch 
SYS 49664 aufgerufen. 

Uncover benutzt verschiedene ROM-Routinen. Diese 
sind: 

$A533, Basic-Zeilen neu binden, 

$BDCD, Integer-Zahl ausgeben, 

$E10C, Zeichen ausgeben. 

Wie arbeitet nun Uncover und was wird im Basic- 
Speicher verändert? Dazu muß man zuerst die Funktions¬ 
weise des Schutzes kennen: Zwischen die zwei Byte der 
Zeilennummer der geschützten Basic-Zeile und den nor- 
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malerweise folgenden Token wurden ein Null-Byte und vier 
Doppelpunkte eingefügt. Normalerweise signalisiert die¬ 
ses Null-Byte das Ende einer Basic-Zeile. Der Interpreter 
gibt daraufhin ein Return aus und setzt das LISTen in der 
folgenden Zeile fort. In unserem Fall wird dann nur die Zei¬ 
lennummer sichtbar. Der Ablauf des Programmes wird da¬ 
bei nicht behindert, lediglich bei Fehlern ist die Zeilennum¬ 
mernangabe immer dieselbe: 

...ERROR in 14906 (=58+58*256; 58 ist der ASCII-Code 
des Doppelpunktes). 

HIDE mußte also den restlichen Teil des Programms um 
fünf Byte nach oben verschieben, um Platz für den List¬ 
schutz zu schaffen. 

Uncover testet nun jede Programmzeile auf ein vorhan¬ 
denes Null-Byte anhand des Link-Pointers. Ist dies der Fall, 
wird eine Routine angesprungen, die die Anzahl der Dop¬ 
pelpunktefeststellt und dann den Rest des Programms wie¬ 
der entsprechend weit nach vorne schiebt, direkt anschlie¬ 
ßend an die Zeilennummer. Je mehr geschützte Zeilen es 
gibt, desto länger dauert natürlich das Entschützen. Jede 
freigegebene Zeile wird ausgegeben und der Link-Pointer 
neu eingerichtet. Zum Schluß richtet Uncover noch die 
Basic-Zeiger korrekt ein. (G. Stumpenhausen/rs) 


13 Sortieren mit Doublebubble 


Hier etwas Neues zum Thema Sortieren. Die Sortierroutine 
nennt sich »Doublebubble«. Warum, das werden Sie gleich 
sehen. Diese Routine eignet sich besonders zum Sortieren 
von einem bereits teilweise vorsortierten Feld. Dabei bewe¬ 
gen sich die »Bubbles« abwechselnd auf- und abwärts. Die 
Vorteile: 64ER c 

Nehmen wir an, wir hätten ein Feld, das so aussieht: 
912356478 

Bubblesort sortiert so: (Beachten Sie die 9!) 

192345678 

129345678 

123945678 

123495678 

1 23459678 

1 23456978 

1 23456798 

123456789 

Es braucht also 8 Durchläufe, nur weil das ganze Feld 
über das eine Falsche »drübergehievt« werden muß. 

Und hier Doublebubble: 

Zu Beginn: 

912356478 

Nach dem ersten Durchlauf: 

123456789 
Nun aber zum Aufbau: 

Nehmen wir an, die Daten (numerisch) befinden sich im 
Feld A () mit der Dimension AN. Z soll als Zwischenspeicher 
beim Vertauschen dienen, FLAG soll signalisieren, ob ein 
Tausch stattgefunden hat oder nicht. 

1. Teil: 

Bubblesort wie gewohnt, absteigend sortiert, das heißt 
die kleinen Blasen steigen auf. 

1000 FOR N=AN TO 2 STEP -1 

1010 IF A(N)<A(N-l) TUEN Z=A(N):A(N)=A(N-1) 

:A(N-1)= Z:FLAG=1 
1020 NEXT 

Anschließend wird der Vorgang umgekehrt, das heißt 
aufsteigend sortiert, nur daß die großen Blasen abwärts sin¬ 
ken. 

1030 FOR N=1 TO AN-1 

1040 IF A(N)>A(N+1) THEN Z=A(N) :A(N)=A(N+l) 


100 

REM ***********1********** 

<115> 

110 

REM * * 

<159> 

120 

REM * BOOT-GENERATOR * 

<006> 

130 

REM * * 

<179> 

140 

REM * * 

<189> 

150 

REM * THOMAS NELLESSEN * 

<228> 

160 

REM * * 

<209> 

170 

REM * * 

<219> 

160 

REM * APRIL '86 * 

< 102> 

190 

REM * * 

<239> 

200 

REM ********************* 

<215> 

210 


< 186> 

220 

PRINT"CCLR,5SPACEIBOOT-GENERATOR EINGA 



BEDATEN“ 

<174> 

230 

PRINT"<5SPACE1************************ 



***"•• PRINT 

<067> 

240 

INPUT" NAME DES 1. PROGSA$:PRINT 

<051 > 

250 

A$=LEFT$(A$,16) 

< 145> 

260 

INPUT" NAME DES 2. PROGS.";B$:PRINT 

<113> 

270 

IF A$=B$THEN PRINT"KEINE GLEICHEN NAME 



N"■FOR 1 = 1 TO 500 ; NEXT tRUN 

< 193> 

200 

B$ = LEFT$< B$,16):LB=LEN(B$) 

<003> 

290 

PRINT" GIB STARTADRESSE DES MASCH.PROG 



S EINC4SPACE!" 

< 171 > 

300 

PRINT LB+48"BYTES AB STARTADRESSE ERFO 



RDERLICHC2SPACE!" 

<105> 

310 

INPUT" STARTADRESSE"iAD 

<003> 

320 

AD$=MID$< STR$ < AD+LB),2):LA=LEN(AD$) 

<069> 

330 

PRINT"CCLR,3 DOWN!NEW C 2DOWN!“ 

<252> 

340 

PRINT"10 FORI ="AD"TO"AD+47 + LB":READA:P 



OKEI,A = NEXT" 

<172> 

350 

PRINT"15 FORI=631TO"634+LA":READA:POKE 



I.A:NEXT” 

<078> 

360 

PRINT"20 POKE198,"4+LA":LOAD”CHR$<34)A 



$CHR$ < 34)",8,1 

<153> 

370 

PRINT"25 DATA": 

<156> 

380 

FOR 1 = 1 TO LB:PRINT(ASC(MID$(B$,I,1))) 



"CLEFT!,"::NEXT:PRINT“CLEFT,SPACE!" 

<235> 

390 

PRINT“30 DATA162,8,160,1,32,186,255,16 



9,"LB",162,0,160,192,32" 

<036> 

400 

PRINT"35 DATA189,255,169,0,32,213,255, 


’34,45,132,46,32,94" 

<169> 

410 r::XNT''40 DATA166,169,82,162,213,160,13 



,141,119,2,142,120" 

< 115 > 

420 

PRINT"45 DATA2,140,121,2,169,4,133,198 



,96,83,89,83, 

<050> 

430 

FOR 1 = 1 TO LA = PRINT ASC < MID$(AD$,1,1)) 



"CLEFT!,"::NEXT:PRINT"13" 

<243> 

440 

PRINT:PRINT"SAVE"CHR$(34)LEFT$< B$,11)" 



.BOOT"CHR$(34)".8CH0ME!" 

<108> 

450 

FOR 1=631 TO 640:POKE I,13:NEXT:POKE 1 



98,10 

<172> 

S 64 

er 


Listing 9. Erst die Erweiterung, dann das Programm: 

Der Bootgenerator ist ein optimaler Lader 



:A(N+1)= Z:FLAG=1 
1050 NEXT 

Die letzte Zeile schließlich lautet: 

1060 IF FL THEN FL=D:G0T0 1000 
Das war’s auch schon, in vorsortierten Feldern dürfte 
sich kaum eine ebenso kurze und schnelle Methode finden. 

(Ernst Kofler/og) 


14 


Boot-Generator 


Häufig möchte man beim Programmieren in Basic auf die 
Befehle einer Erweiterung zurückgreifen (zum Beispiel Hy- 
pra-Basic). Bei der Benutzung des fertigen Programms ist 
aber die Arbeitsfolge — Erweiterung laden und starten, ei¬ 
genes Programm laden und starten — umständlich und 
fehlerträchtig. Es kann sogar passieren, daß man bei dem 
großen Angebot an Erweiterungen allein in der 64'er ver¬ 
gißt, welches Programm welche Erweiterung benötigt. Ide¬ 
al wäre ein Lader, der diese Arbeit übernimmt. Da die Er¬ 
weiterungen nach dem Start mit eigenem Reset in den Di- 
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rektmodus springen, kann man weitere Aktionen nicht im 
Voraus veranlassen. Der Tastaturpuffer bleibt zwar nach 
dem Starten der meisten Erweiterungen erhalten, ist aber 
zu kurz, um den kompletten Nachlade- und Startbefehl auf¬ 
zunehmen. Über ihn kann aber ein Maschinenprogramm 
gestartet werden, das vorher in einem geschützten Bereich 
abgelegt wurde. Das vorgestellte Programm ist ein Pro¬ 
grammgenerator, der einen Basic-Lader erzeugt, der diese 
Arbeiten übernimmt (Listing 9). 

Programmbedienung 

1. »BOOT-GENERATOR« laden und starten 

2. Name des 1. Programms (der Erweiterung) eingeben 

3. Name des 2. Programms (der eigenen Anwendung) ein¬ 
geben 

4. Startadresse eingeben. 

Hier wird ein Speicherbereich benötigt (die Länge wird 
angezeigt), der durch Laden und Starten der Erweiterung 
nicht überschrieben wird. Der Tastaturpuffer oder der Be¬ 
reich ab $C000 bieten sich an. Im Zweifelsfall hilft Auspro¬ 
bieren. Der Boot-Generator wird nun gelöscht und der La¬ 
der erzeugt. Zum Schluß wird ein SAVE-Befehl vorgeschla¬ 
gen, der durch < RETURN > übenommen werden kann. 
Funktionsweise des Boot-Generators 

Nach Berechnung einiger variabler DATAs wird nach ei¬ 
nem NEW-Befehl das Listing des Laders auf den Bild¬ 
schirm geschreiben. Der Tastaturpuffer wird mit ASCII- 
Code 13 (= RETURN) geladen und der BOOT¬ 
GENERATOR endet. Durch Abarbeitung des Tastaturpuf¬ 
fers wird der BOOT-GENERATOR gelöscht und der Lader 
übernommen. Er kann nun gespeichert werden. 
Funktionsweise des Laders 

Nach dem Starten des Laders wird als erstes das Maschi¬ 
nenprogramm aus den DATAs gelesen und in den Speicher 
gePOKEt. Dann wird der SYS-Befehl in den Tastaturpuffer 
geschrieben. Schließlich wird das erste Programm gela¬ 
den, wobei der BASIC-Teil des Laders überschrieben wird. 
Aufgrund des programmierten LOAD-Befehls wird die Er¬ 
weiterung gestartet, das heißt aktiviert und springt in den 
Direktmodus. Darauf wird der Tastaturpuffer abgearbeitet, 
also das Maschinenprogramm gestartet. Dieses lädt nun 
das zweite Programm nach und startet es.(T. Nellessen/rs) 


15 


Zahlenübergabe 
in Maschinensprache 


JSR $B79E ;Byte ins X-Register holen 

STX $8002 ;merken 

RTS 

Diese Routine können Sie an jede beliebige Stelle im 
Speicher setzen. Danach steht in den Adressen $8000 und 
$8001 die eingegebene Zahl im Lo-/Hi-Byte-Format. $8002 
enthält die zweite Zahl. (rs) 


16 


Formatierte Zeilen 


Der folgende Einzeiler verändert den Editor des C 64 der¬ 
art, daß Leerzeichen, die direkt nach einer Zeilennumer 
stehen, nicht ignoriert weiden. Somit kann ein Basic- 
Listing noch während der Eingabe formatiert werden. 

F0R 1=131 to 128 STEP-1:P0KEI,234:NEXT 
Nun sind nach einer Zeilennumer beliebig viele Leerzei¬ 
chen erlaubt. Um das Programm zu starten, ist vor dem 
RUN ein SYS 58303 nötig, da das Programm sonst außer 
einem SYNTAX ERROR nichts mehr zustande bringt. 

(T. Brandt/rs) 


17 


Bitsetter statt POKEs 


Nun ein kleiner Trick für Maschinensprache-Einsteiger: Si¬ 
cher haben Sie schon öfters gelesen, daß man mit dem 
SYS-Befehl auch Zahlen an ein Maschinenprogramm über¬ 
geben kann (zum Beispiel SYS49152,2000,10). 

Wie wird das gemacht? Es geht einfacher, als Sie viel¬ 
leicht annehmen werden, da alle dafür benötigten Routi¬ 
nen im Betriebssystem schon vorhanden sind. Konkret: Wir 
benötigen eine Routine ab der Adresse 49152 ($C000), die 
zuerst einen 16-Bit-Wert (Zahlen zwischen 0 und 65535) 
und dann einen 8-Bit-Wert einliest (0 bis 255). Sie wird mit 
SYS49152,X,Y aufgerufen, wobei für X und Y die oben ge¬ 
nannten Werte eingesetzt werden müssen. Sie können 
aber auch Variablen verwenden. 

‘Ävl! 

JSR $0073 jnächstes Zeichen (Komma) tot 

JSR $AD8A jholt numerischen Wert 

JSR $B7F7 jdiesen ins Adreßformat wandeln 

LDA $14 jhier steht jetzt das Lo-Byte 

STA $8000 ;merken 

LDA $15 jHI-Byte der eingelesenen Zahl 

STA $8001 ;merken 

JSR $AEFD ;auf Komma prüfen, sonst error 


Bitsetter (Listing 10) ist eine Befehlserweiterung für den C 
64. Es erweitert das Commodore-Basic um den Befehl BIT, 
welcher dazu dient dem Einsteiger das Löschen und Set¬ 
zen einzelner Bits zu erleichtern. 

Ein Beispiel: 

Das Umschalten in den Blockgrafik-Multicolormodus 
funktionierte bisher so... 

P0K.E 53440+22,PEEK (53248+22) 0R 16 
Im Grafikregister 22 wurde Bit 4 gesetzt. Mit dem BIT- 
Befehl geht das einfacher: 

BIT,53248+22,4 

Damit ist ein Problem vieler Einsteiger, das Beherrschen 
der logischen Operatoren, behoben. Man gibt nur noch das 
Byte an und das Bit welches verändert werden soll, das ist 
alles. 

Nach dem Eingeben wird das Programm mit »LOAD 
"BITSETTER.OBJ", 8,1« geladen. Gestartet wird es mit 
SYS 49152. Vorher sollten Sie aber NEW eingeben. 

Der neue Befehl ist sowohl im Direktmodus als auch im 
Programm zu verwenden. 

Syntax: BIT,Speicherstelle,Bit 
Beispiel: 

Sie wollen Sprite 5 einschalten. Dies ging bisher mit 
P0KE53248+21,PEEK(53248+21)0R32 
Der entsprechende BIT-Befehl sieht so aus: 

BIT,53248+21,5 


Ti 


Name : 

bitsetter.obj 


c000c05f 

cOOO : 

a9 

Ob 

8d 

08 

03 

a9 

cO 

8d 

2f 

c008 : 

09 

03 

60 

20 

73 

00 

c9 

42 

92 

C010 : 

fO 

06 

20 

79 

00 

4c 

e7 

a7 

8c 

c018 : 

20 

le 

cO 

4c 

ae 

a7 

20 

73 

90 

c020 : 

00 

c9 

49 

dO 

2f 

20 

73 

00 

33 

c028 : 

c9 

54 

dO 

28 

20 

73 

00 

20 

32 

c030 : 

fd 

ae 

20 

eb 

b7 

bd 

57 

cO 

52 

c038 : 

8d 

50 

c3 

a6 

14 

8e 

4c 

cO 

lb 

c040 : 

8e 

52 

cO 

a6 

15 

8e 

4d 

cO 

79 

c048 : 

8e 

53 

cO 

ad 

00 

cO 

4d 

50 

41 

c050 : 

c3 

8d 

00 

c0 

a9 

20 

60 

01 

11 

c058 : 

02 

04 

08 

10 

20 

40 

80 

c6 

f4 

Listing 10. 

»Bitsetter«. 

Bitte mit 


MSE (Seite 159) 

eingeben 
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Ist Bit 5 gesetzt, wird es gelöscht, ist es gelöscht, wird es 
gesetzt. Auf diese Weise benötigt man für beide Operatio¬ 
nen nur einen Befehl. Das angegebene Bit wird jeweils um¬ 
geschaltet. Wollen Sie das Sprite also wieder ausschalten 
genügt es, denselben Befehl nochmals einzugeben. 

(A. Schilling/rs) 

18 Interrupt managen in Basic 


Das Programm »IRQ-Manager« (Listing 11) ist eine 
Basic-Erweiterung für den C 64, die eine komfortable 
Interrupt-Behandlung in Basic ermöglicht.Die Befehle sind 
so gewählt, daß auch Interrupt-Verschachtelungen möglich 
sind. 

Die Anwendung ist recht einfach. So läßt sich auf einfa¬ 
chem Weg zum Beispiel eine Hintergrundmusik, Sprite¬ 
steuerung oder ähnliches realisieren. Aber auch kompli¬ 
zierte Verschachtelungen sind leicht möglich. 

Doch nun zum Programmaufbau. Tritt ein Interrupt auf, 
so wird der Zähler für die IRQs(IRQ-Pointer) um eins erhöht 


und stellt sicher, daß während des IRQ-Programms kein 
weiterer stattfindet. Es gibt zwei Möglichkeiten, den IRQ zu 
realisieren: den Softmodus und den Hardmodus. 

Im Softmodus wird der IRQ immer nach einer bestimm¬ 
ten Anzahl von Basic-Befehlen ausgeführt. Er kann mit ei¬ 
nem automatischen GOSUB verglichen werden und kann 
daher nur im Programm angewendet werden. In vielen Fäl¬ 
len reicht dieser Modus aus oder ist sogar sinnvoller, denn 
man kann immer genau bestimmen, an welchen Stellen in 
das IRQ-Programm gesprungen wird. Wem das nicht 
reicht, für den gibt es den Hardmodus. Im Hardmodus kann 
der IRQ auch während eines Befehls ausgeführt werden. 

Auslöser für den IRQ ist der System-Interrupt. Nach einer 
bestimmten Anzahl von Interrupts wird in das IRQ- 
Programm gesprungen. Der System-Interrupt wird wäh¬ 
rend dem IRQ-Programm nicht blockiert. Daher ist der IRQ 
im Hardmodus auch im Direktmodus möglich. 

Anders als im Softmodus muß im Hardmodus ein großer 
Teil der Zeropage zwischengespeichert und beim Rück¬ 
sprung wieder zurückgeschrieben werden, damit das vor¬ 
herige Programm (das unterbrochen wurde) ohne Schäden 


Befehl/Spelcherstelle 

Aktion/Inhalt der Speicherstelle 

IRQCLR: 

Setzt alle wichtigen IRQ-Polnter in den definierten Anfangswert. Dieses wird auch beim RUN-Befehl ge¬ 
macht. Zusätzlich wird beim IRQCLR noch in den Softmodus geschaltet. 

IROO: 

Schaltet in den Softmodus 

IRQ1: 

Schaltet in den Hardmodus 

IRQGOTO Zeilennummer: 

Legt den IRQ auf eine gewünschte Zeilennummer. Tritt ein IRQ auf, so wird in die angegebene Zeilennum¬ 
mer gesprungen. Für die Zeilennummer kann auch eine Variable gesetzt werden. 

USR(O): 

Liest die Zeilennummer, die bei IRQGOTO gesetzt wurde. Dieser Wert kann in eine Variable gelesen (zum 
Beispiel A=USR(0)) oder über PRINT ausgegeben werden. 

IRQSTEP Zahl: 

Legt im Softmodus fest, nach wieviel Befehlen ins IRQ-Programm gesprungen wird. Legt im Hardmodus 
fest, nach wieviel System-Interrupts ins IRQ-Programm gesprungen wird. Die Zahl kann von 0 bis 255 groß 
sein. IRQSTEPO führt einen IRQ erst na,.f. 256 IRQ-Auslösungen aus. 

IRQRUN: 

Mit diesem Befehl wird der IRQ gestartet (der IRQ-Pointer wird auf 0 gesetzt). Alles sollte vor diesem Befehl 
definiert sein (IRQGOTO, IRQSTEP, IRQ-Modus). 

IRQOFF: 

Ist der Gegenbefehl zu IRQRUN, Von diesem Befehl an wird kein IRQ erlaubt. Er kann nur durch IRQRUN 
aufgehoben werden. 

IRQRETURN: 

Erniedrigt den IRQ-Pointer um eins und kehrt ins vorherige Programm zurück. Ist der IRQ-Pointer danach 

0, dann Ist der IRQ wieder freigegeben. 

IRQEND: 

Hat die gleiche Funktion wie IRQRETURN, jedoch wird der IRQ-Pointer Immer auf 0 gesetzt. 

IRQSTOP: 

Erhöht den IRQ-Pointer um eins. Dadurch wird es möglich, daß nach einem IRQRETURN das vorherige 
Programm bis zum Ende (ohne Unterbrechung) läuft. Hinter IRQSTOP kann auch eine Zahl von 0 bis 255 
oder eine Variable stehen. IRQSTOPO führt dabei keinen IRQSTOP aus. 

IRQCONT Zahl: 

Wird im Hauptprogramm definiert. Der Befehl bewirkt, daß eine bestimmte Anzahl von IRQ-Befehlen igno¬ 
riert werden. Die Zahl kann von 0 bis 255 groß sein. IRQCONTO hebt den Befehl auf. Sonst wird bei jedem 
Rücksprung Ins Hauptprogramm der konstante Wert in den Zähler geschrieben, der dann bis 0 zurück¬ 
zählt. 

IRQTO: 

Tauscht die Zeilennummer, die mit IRQGOTO definiert wurde, mit dem Zwischenspeicher. Dieser Befehl 
geht viel schneller als das Zwischenspeichern in einer Variablen mit USR(O) und reicht in vielen Fällen aus. 
Nun noch die wichtigsten Adressen im Bereich $CAF0 bis CAFD, die von dem Programm benutzt werden 
und deren Bedeutung: 

$CAF0: 

Zähler. Zählt, nach wlevielen Befehlen oder System-Interrupts ins IRQ-Programm gesprungen wird. 

$CAF1: 

IRQ-Polnter 

$CAF2: 

Stackpointer für den zusätzlichen Stack von $CB00 bis $CFFF. 

$CAF3: 

Zellonnummer Low-Byte, das bei IRQGOTO definiert wird. 

$CAF4: 

Zeilennummer High-Byte, das bei IRQGOTO definiert wird. 

$CAF5: 

Bestimmt, ob der IRQ-Pointer bei einem Rücksprung erniedrigt werden darf. Ist der Wert ungleich 0, dann 
wird der IRQ-Pointer nicht verändert (Zustand nach IRQOFF). Ist der Wert 0, dann ist ein IRQ erlaubt (nach 
IRQRUN). 

SCAF6: 

Konstanter Wert für den Zähler $CAF0. Der Zähler wird mit diesem Wert neu gesetzt, wenn er auf 0 ist. 

SCAF7: 

Wird nur bei Programmeingabe für verschiedene Zwischenwerte benutzt. 

SCAF8: 

Wird bei IRQCONT definiert und zählt bei jedem IRQSTOP einen herunter (bis 0). 

SCAF9: 

Konstanter Wert für Zähler $CAF8. 

SCAFA: 

Zählt die IRQ-Verschachtelungen. Ist der Wert 0, so wird das momentane Programm als Hauptprogramm 
behandelt. 

$CAFB/$CAFC: 

Zwischenspeicher von $CAF3/$CAF4 (wird bei IRQTO benutzt). 

$CAFD: 

IRQ-Modus (Softmodus=0, Hardmodus=1). 


Tabelle 1. Diese Befehle stellt der »RQ-Manager« zur Verfügung (zusätzlich: Inhalte der Speicherstellen) 
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weiterlaufen kann. Dadurch ergeben sich Einschränkun¬ 
gen. Es sind daher nicht mehr als sieben Verschachtelun¬ 
gen möglich, da jeweils 256 Bytes vor das Programm ge¬ 
speichert werden (sieben sind in den meisten Fällen mehr 
als genug). Das Programm liegt im Bereich $C700-CADF. 
Wenn siebenmal 256 Bytes vor das Programm gespeichert 
werden, ist der Bereich von C000 bis CADF voll. 

Hinter dem Programm sind die Zeiger für die Zeilennum¬ 
mer und die Programmzeiger gespeichert. Daher sind im 
Softmodus 255 Verschachtelungen möglich, abzüglich der 
GOSUBs während des IRQ-Aufrufs, denn auch die GO- 
SUBs werden gezählt, damit es keinen RETURN- 
Mischmasch gibt. Dieser würde dann mit RETURN WITH- 
OUT GOSUB quittiert. Wichtig ist auch, daß während ei¬ 
ner PRINT-Anweisung der Cursor nicht blinkt. Eine vorhan¬ 
dene Routine zum Ausschalten des Cursors kann mit SYS 
51746 aufgerufen werden. Eingeschaltet wird er mit POKE 
204,0. Wichtig ist bei allen Befehlen, die in einer IF-THEN- 
Anweisung hinter THEN stehen, daß vor dem ersten Befehl 
erst ein Doppelpunkt steht, da sonst ein Fehler entstehen 
kann. 


Das Mischen des Soft- und Hardmodus ist auch möglich. 
Man muß allerdings darauf achten, daß vor dem Rück¬ 
sprung wieder der Modus eingestellt ist, mit dem auch der 
IRQ ausgelöst wurde. Wird dies nicht beachtet, kann es 
zum Systemabsturz kommen. Die Befehle: 

Das Programm IRQ-MANAGER (Listing 11) wird an den 
Basic-Start geladen und mit RUN gestartet. Es schreibt 
sich dann in den Bereich $C700 bis $CB00. Dabei wird 
auch ein IRQCLR ausgelöst. Nach einem Reset kann das 
Programm mit SYS50960 erneut gestartet werden (es wird 
dann kein IRQCLR ausgelöst). 

Das Programm besitzt eine eigene zusätzliche Eingabe¬ 
routine, die die neuen Befehle IRQ (=$D0) und OFF (=$D1) 
in einen eigenen Interpretercode wandelt und eine zusätzli¬ 
che Listroutine. 

Ist das Programm nicht aktiviert, kann ein seltsames Li¬ 
sting entstehen. Bei der Eingabe von Programmen muß 
das Programm aktiviert sein, damit es später fehlerfrei 
läuft. 

Auf die IRQ-Programmierung wird man nach kurzer Zeit 
gar nicht mehr verzichten wollen. (Kurt Zenker/rs) 


Name 

irq-manager 



0801 0c49 

0979 

20 

8a 

ad 

20 

f7 

b7 

c9 

fa 

a8 

ObOl 

: c9 

ae 

fl 

ca 

dO 

09 

ae 

fO 

e9 











0981 

bO 

ad 

8c 

f3 

ca 

8d 

f4 

ca 

2c 

0b09 

: ca 

ca 

fO 

06 

8e 

fO 

ca 

4c 

69 

0801 

lc 

08 

c2 

07 

9e 

20 

28 

32 

a3 

0989 

4c 

4e 

c8 

a9 

00 

8d 

fl 

ca 

2d 

Obll 

: 31 

ea 

a9 

01 

8d 

fl 

ca 

58 

86 

0809 

30 

38 

30 

29 

20 

20 

20 

49 

9d 

0991 

8d 

f5 

ca 

4c 

73 

00 

68 

68 

ff 

0bl9 

: ad 

Od 

de 

20 

de 

c9 

20 

ed 

00 

0811 

52 

51 

20 

4d 

41 

4e 

4l 

47 

d8 

0999 

ad 

fd 

ca 

dO 

08 

4c 

42 

c7 

8d 

0b21 

: c9 

4c 

53 

c7 

ad 

fa 

ca 

Oa 

dO 

0819 

45 

52 

00 

00 

00 

00 

00 

a9 

db 

09al 

20 

73 

00 

68 

68 

4c 

ae 

a7 

7b 

0b29 

: aa 

bd 

00 

c7 

85 

fc 

e8 

bd 

Oa 

0821 

c7 

a2 

00 

86 

49 

85 

4a 

a9 

47 

09a9 

20 

73 

00 

fO 

04 

c9 

3a 

dO 

ba 

0b31 

: 00 

c7 

85 

fb 

60 

aO 

00 

b9 

74 

0829 

08 

82 

49 

86 

4b 

85 

4c 

aO 

f9 

09b 1 

04 

a9 

01 

dO 

07 

20 

9e 

b7 

40 

0b39 

: 00 

00 

91 

fb 

c8 

dO 

f8 

60 

d5 

0831 

00 

bl 

4b 

91 

49 

c8 

dO 

f9 

21 

09b9 

eO 

00 

fO 

Oe 

ac 

f8 

ca 

fO 

37 

0b4l 

: aO 

2a 

bl 

fb 

99 

00 

00 

88 

8d 

0839 

e6 

4a 

e6 

4c 

a5 

4a 

c9 

cc 

f5 

09cl 

Oe 

88 

8c 

f8 

ca 

eO 

01 

fO 

ef 

0b49 

: 10 

f8 

aO 

35 

bl 

fb 

99 

00 

05 

0841 

dO 

ef 

20 

10 

c7 

4c 

9d 

e3 

30 

09c9 

01 

ca 

dO 

fO 

4c 

4e 

c8 

8a 

fl 

0b51 

: 00 

c8 

cO 

90 

dO 

f6 

aO 

c7 

ce 

0849 

c6 

00 

c5 

00 

c4 

00 

c3 

00 

de 

09dl 

18 

6d fl ca 8d fl ca 4 - 

a2 

Ob 59 

: bl 

fb 

99 

00 

00 

c8 

cO 

CC 

51 

0851 

e2 

00 

cl 

00 

cO 

00 

ea 

ea 

11 

09d9 

4e 

c8 

20 

73 

00 

20 

9e 

b7 

ed 

0b6l 

: dO 

f6 

aO 

c8 

bl 

fb 

99 

00 

4f 

0859 

a9 

c7 

a2 

39 

8e 

08 

03 

8d 

06 

09el 

8e 

f6 

ca 

8e 

fO 

ca 

4c 

4e 

a2 

0b69 

: 00 

60 

78 

a9 

01 

85 

CC 

a4 

a5 

0861 

09 

03 

a9 

ca 

a2 

ea 

8e 

04 

73 

09e9 

c8 

a9 

01 

8d 

f5 

ca 

8d 

fi 

48 

0b71 

: d3 

46 

cf 

ae 

87 

02 

bl 

dl 

24 

0869 

03 

8d 

05 

03 

a9 

ca 

a2 

al 

93 

09fl 

ca 

ad 

f6 

ca 

8d 

fO 

ca 

4c 

cd 

0b79 

: 90 

05 

49 

80 

20 

lc 

ea 

58 

2d 

0871 

8e 

06 

03 

8d 

07 

03 

a9 

c9 

38 

09f9 

4b 

c8 

4c 

eO 

a8 

78 

ad 

fa 

d2 

0b81 

: 60 

Ob 

a2 

00 

aO 

00 

bd 

00 

10 

0879 

a2 

6a 

8e 

11 

03 

8d 

12 

03 

01 

OaOl 

ca 

fO 

f7 

ae 

f2 

ca 

ca 

bd 

43 
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19 Supei^LIST-Routine 


»LIST 64« (siehe Listing 12) ist ein kurzes Maschinenpro¬ 
gramm, das den herkömmlichen LIST-Befehl um einen 
neuen Ausgabe-Modus erweitert. Dieser neue Modus dient 
dazu, vor allem längere Listings wesentlich übersichtlicher 
zu gestalten. Dies kommt vor allem der Fehlersuche zugu¬ 
te. Am Listing selber werden aber natürlich keine Verände¬ 
rungen vorgenommen. 

Sobald der LIST-Befehl eingetippt wurde, kann man 
durch kurzen Druck auf die < - >-Taste auf den neuen Mo¬ 
dus umschalten. Ab dann werden alle Basic-Befehle in ei¬ 
ner anderen (natürlich frei wählbaren) Farbe dargestellt. 
Nach jedem Basic-Befehl wirdzusätzlich ein Leerzeichen 
eingefügt, was vor allem der Übersichtlichkeit dient. Wei¬ 
terhin teilt LIST 64 Programmzeilen, die aus mehreren, 
durch einen Doppelpunkt getrennten Befehlen bestehen, 
in mehrere Zeilen auf. Schließlich können Texte, die inner¬ 
halb von Anführungszeichen stehen, ebenfalls durch eine 
andere Farbe hervorgehoben werden. Erneutes Drücken 
von < - > schaltet den Modus wieder aus. 

Datasettenbesitzer aufgepaßt: Da das Programm norma¬ 
lerweise den Kassettenpuffer belegt, sollten Sie als Start¬ 
adresse nicht, wie von Listing 2 vorgeschlagen, eine 830, 
sondern 49152 wählen. 

Achtung: Ein in diesem neuen Modus ausgegebenes Li¬ 
sting kann natürlich nicht mehr editiert werden, da der 
Basic-Interpreter des C 64 keine Programmzeilen akzep¬ 
tiert, die länger als zwei Bildschirmzeilen sind. 

Besonders geeignet ist LIST 64 auch zum formatierten 
Ausgeben von Listings auf einem Drucker. Dazu geben Sie 
einfach »OPEN 4,4:CMD 4:LIST« ein. 

Die Farben können auch nachträglich geändert werden: 
POKE Startadresse+92, Farbe der Befehlswörter 
POKE Startadresse+160, Farbe des Textes 

Beachten Sie bitte, daß Sie die fertig generierte LIST- 
Routine immer mit LOAD "Name" ,8,1 laden und danach 
NEW eingeben müssen. (Bernd Pfeiffer/rs) 


5 REM ** LIST 64 - GENERATOR »* <151> 

10 INPUT"STARTADRESSE:<2SPACE><020> " s SA 

sREM STARTADRESSE <124> 

12 INPUT"FARBE WOERTER: C3SPACE)(7) " ; FW <107) 

14 INPUT"FARBE STRINGS:<3SPACE>(5) "sFS <133> 

20 FOR X=0 TO 104:READ Q:POKE SA+X,Q:NEXT <200> 

22 POKE SAH 102, FW-.POKE SA+170.FS <000> 

25 IF SAO020 THEN HB=INT ( (SA+15) 7256) : LB= 
(SA+15)-HB*256:POKE SA+1,LB:POKE SA+3,H 
B <054> 

30 PRINT"ABSPEICHERN <J> ?" <001> 

40 GET TA#:IF TA*="" THEN 40 <207> 

50 IF TA#< >"J" THEN 95 <018> 

60 OPEN 1,0,2,"LIST 64"+STR#<SA>+",P,W" <029> 

70 SH=INT(SA/256):SL=SA-SH*256 <061> 

00 PRINT#1,CHR#(SL);:PRINT#1, CHR#(SH)s <139> 

90 FOR X=0 TO 104:PRINT#1,CHR#(PEEK(SA+X)) 

;:NEXT:CLOSE 1 <179> 

95 PRINT"STARTADRESSE: "SA:SYS SA:END <1B1> 

100 DATA 169,67,160,3,141,6,3,140,7,3,169, 

0,133,247,96,72,165,203,201,60,240 <066) 

110 DATA 250,201,57,200,14,230,247,169,1,3 

7.247.133.247.165.203.201.57.240 <144> 
120 DATA 250,165,247,200,4,104,76,26,167,1 

73,134,2,133,2,192,4,20B,14,169 <133) 

130 DATA 32,166,211,224,6,240,6,232,32,71, 

171.200.246.104.16.60.201.255.240 < 226) 
140 DATA 56,36,15,40,52,56,233,127,170,132 

,73,160,255,202,240,0,200,105,150 <071> 

150 DATA 160,16,250,40,245,169,7,141,134,2 

,200,105,150,160,4B,5,32,71,171 <252> 

160 DATA 200,245,164,73,41,127,32,71,171,7 

2,169,32,32,71,171,104,24,144,43 <144) 

170 DATA 201,34,240,6,166,15,224,1,200,25, 

201,58,20B,15,72,32,215,170,169 <248> 

180 DATA 32,162,6,32,71,171,202,208,250,10 

4,32,71,171,24,144,13,162,5,142 <206> 

190 DATA 134,2,32,71,171,166,2,142,134,2,7 

6,246,166 <242> 

© Irl'tH' 


Listing 12. «LIST 64« zum übersichtlichen Listen von 
längeren Basic-Programmen (bitte Anleitung beachten) 


20 Renumber mit Komfort 


Wer kennt das nicht: Hat man am Anfang noch schöne Zeh¬ 
nerabstände zwischen den Zeilennummern, wird der Platz 
schnell durch das Einfügen diverser Extrazeilen aufge¬ 
braucht. Um neuen Freiraum und auch mehr Übersicht zu 
schaffen, hilft nur noch das Umnumerieren des Pro¬ 
gramms oder des kritischen Abschnittes. 

Das Programm geht, nach dem Einlesen der Parameter, 
in der Hauptschleife ($C059 - $C0BC) den Basic-Text von 
Anfang bis Ende durch und sucht nach Befehls-Token, die 
auf Sprünge hinweisen. Von dieser Suche werden natürlich 
REM- sowie DATA-Zeilen und Texte in Anführungszeichen 
ausgenommen. Wird ein solcher gefunden, muß das alte 
Sprungziel gegebenenfalls gegen eine neue Zeilennum¬ 
mer ausgetauscht werden. Gegebenenfalls deshalb, da 
man ja eventuell nur einen bestimmten Bereich umnume¬ 
riert und der Sprung vielleicht unverändert bleibt. Die Zei¬ 
lennummern des Basic-Programms werden nun mit dem 
Sprung verglichen und wenn dann die Zielzeile gefunden 
wurde, wird das alte Sprungziel mit dem neuen Sprungziel 
belegt, welches parallel berechnet wurde. Es kann nun 
sein.daßdieneueZeilennummerdiegleiche Länge hat wie 
die alte, dann kann sie direkt überschrieben werden (wenn 
beispielsweise G0T0348 durch GOTO550 ersetzt wird). 
Oder aber die Längen sind unterschiedlich. Ist die neue 
Zeilennummer größer, muß der Programmtext, der dahinter 
steht, um die Differenz der beiden Längen nach hinten ver¬ 


schoben werden. Dies kann bequemerweise die schon vor¬ 
handene Blockverschieberoutine des Interpreters für uns 
erledigen. Wenn aber die neue Zeilennummer kleiner ist, 
muß das Programm entsprechend nach vorne verschoben 
werden. Da sich jedoch Quell- und Zielbereich überschnei¬ 
den, versagt die Blockverschieberoutine hier schmählich. 
Diese Arbeit muß dann eine eigene kleine Kopierroutine 
übernehmen. Wenn nun die neue Zeilennummer einen 
Platz in ihrer Länge zur Verfügung hat, wird das alte 
Sprungziel mit dem neuen überschrieben, 
sogleich dann die Zeiger des Interpreters auf das Pro¬ 
grammende initialisiert und in die Hauptschleife zurückge¬ 
sprungen. Ist dies beendet, werden nur noch die Zeilen¬ 
nummern selbst ordnungsgemäß durchnumeriert, schließ¬ 
lich erfolgt dann nach einem abschließenden CLR der 
Rücksprung zum Basic-Warmstart, denn sinnvolle Varia¬ 
blenwerte sind nach den Verschiebungen nicht mehr vor¬ 
handen. 

Um Zeit zu sparen, wurden alle Routinen in ihrer Arbeits¬ 
weise optimiert und zusätzlich der Interrupt ausgeschaltet. 
Aber RENUMBER ist auch ein Befehl, den man nicht alle 
fünf Minuten auf ein Basic-Programm anwendet, und falls 
man wirklich ein mit GOTO gespicktes 30-KByte-Programm 
umnumeriert, braucht man ja nicht die ganze Zeit auf den 
Bildschirm zu starren. Denn gerade bei langen Program¬ 
men kann durch den Einsatz dieses neuen Befehls das Pro- 
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grammieren leichter und vor allen Dingen übersichtlicher 
geschehen. 

Bedienungsanleitung 

Um in den Genuß des neuen RENUMBER-Befehls zu 
kommen, geben Sie bitte Listing 13 »Renumber« mit dem 
MSE ein und speichern es. Geladen wird das Programm 
mit »,8,1«. 

Der Befehl wird folgendermaßen genutzt: 

SYS 49152,Anfangszeile, Schrittweite, (Bereich) 
Anfangszeile ist die neue Zeilennummer, mit der der um¬ 
zunumerierende Bereich neu beginnen soll (Werte von 0 
bis 63999). 


Schrittweite gibt die neuen Zeilenabstände an (Werte 
von 1 bis 255). 

Bereich gibt an, welcher Programmteil neu numeriert 
werden soll. Dies kann weggelassen werden, dann wird au¬ 
tomatisch das gesamte Programm umnumeriert. Der Zei¬ 
lenbereich wird, durch Komma getrennt, genau wie beim 
LIST-Befehl angegeben. 

Der SYS-Befehl ändert nun auch alle Befehle innerhalb 
des Programms um, die sich auf Zeilennummern beziehen. 
Bei sinnvoller Eingabe kann man verschiedene Programm¬ 
blöcke auch durch jhre Zeilennummer voneinander ab¬ 
grenzen und so die Übersichtlichkeit eines Programms be¬ 
trächtlich erhöhen. (F. Kauff/rs) 


Namo : renumber .obj oOOO c228 
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cl 

85 

t 


#9# 

& 

et 

a6 

d8 

cl78 

85 

5b 

69 

00 

85 

59 

a5 

2d 

19 

cl80 

85 

5a 

a5 

7a 

85 

5f 

18 

65 

69 

cl88 

ab 

48 

a5 

7b 

85 

60 

69 

00 

31 


cl90 

: 48 

20 

bf 

a3 

68 

85 

7b 

68 

be 

cl98 

: 85 

7a 

a4 

8f 

88 

b9 

00 

01 

ce 

claO 

: 91 

8d 

88 

10 

f8 

20 

33 

a5 

c5 

cla8 

: a5 

22 

18 

69 

02 

85 

2d 

a5 

de 

clbO 

: 23 

69 

00 

85 

2e 

60 

20 

f2 

85 

clb8 

: cl 

aO 

01 

bl 

5f 

dO 

07 

58 

89 

clcO . 

: 20 

60 

a6 

4c 

9d 

e3 

c8 

20 

aO 

clc8 

: 21 

c2 

c5 

3e 

dO 

04 

e4 

3d 

bf 

cldO : 

: fO 

02 

bO 

eb 

a5 

8c 

91 

5f 

2f 

Cld8 : 

: 88 

a5 

8b 

91 

5f 

18 

65 

02 

98 

cleO : 

: 85 

8b 

90 

02 

e6 

8c 

aO 

00 

e5 

cle8 : 

: 20 

21 

c2 

86 

5f 

85' 

60 

4c 

56 

clfO : 

: b9 

cl 

a5 

fd 

85 

8b 

a5 

fe 

fc 

clf8 : 

: 85 

8c 

a5 

a7 

85 

14 

a5 

a8 

02 

c200 : 

: 85 

15 

4c 

13 

a6 

c9 

8f 

fO 

5e 

c208 : 

: Ob 

c9 

22 

fO 

09 

c9 

83 

dO 

2d 

c210 : 

: Of 

a9 

3a 

2c 

a9 

00 

aa 

20 

8d 

c 218 : 

: Ob 

a9 

20 

fb 

a8 

20 

79 

00 

fl 

c220 : 

: 60 

bl 

5f 

aa 

c8 

bl 

5f 

60 

de 


Listing 13. Ein komfortabler 
Renumber-Befehl erleichtert das 
Umstrukturieren Ihrer Programme. 
Bitte mit dem MSE (Seite 159) 
eingeben. 


21 Der langsamste 

Computer der Welt 


Wer bis jetzt immer auf die Arbeitsgeschwindigkeit seines 
C 64 stolz war, sollte einmal folgenden POKE probieren: 

POKE 56325,0 

An dieser Adresse befindet sich ein kontinuierlich ab¬ 
wärtslaufender Zähler. Immer, wenn er bei Null angelangt 
ist, wird ein Interrupt ausgelöst. Durch den POKE werden 
so oft Interrupts ausgelöst, daß für andere Aufgaben nur 
noch sehr wenig Zeit bleibt — der Computer wird scheinbar 
langsamer. Den Normalzustand erreichen Sie durch POKE 
56325,53 oder durch Drücken von < RUN/STOP 
RESTORE>. 

Mit POKE 56325,1 wird die Uhr, die den Interrupt aufruft 
verstellt, so daß dieser jetzt häufiger auftritt. 

POKE 788,90 leitet den IRQ-Vektor auf $EA5A um. Dort 
steht nur noch der Rest der normalerweise vollständig 
durchlaufenen Cursor-Steuerungsroutine. Es wird ledig¬ 
lich noch das Zeichen unter dem Cursor geholt (normaler¬ 
weise ein Leerzeichen) und invertiert. Dann wird auch 
schon in die Routine gesprungen, die die Farbe unter dem 
Cursor setzt. Normalerweise wird hier der Farbwert im X- 
Register übergeben. Da dieser Teil der IRQ-Routine über¬ 
gangen wurde, befindet sich im X-Register ein mehr oder 
weniger zufälliger Wert. Immer beim PRINT-Befehl fährt 
der Cursor zum nächsten Tabulator (0,10,20,30). Da die 


Interrupt-Routine so oft angesprungen wird, setzt sie wäh¬ 
rend des Tabulierens die reversen Leerzeichen. 

(Mike Lubbers/T. Strasser/rs) 

22 Array-Dump 


Die Ausgabe der Feldinhalte erfolgt bei »Array-Dump« 
(Listing 14) durch die Eingabe von SYS 52442,0 (gibt alle 
Felder aus) oder SYS 52442,Variable (gibt das entspre¬ 
chende Array aus). 

Auf der Leserservice-Diskette zu diesem Sonderheft fin¬ 
den Sie zusätzlich noch den Quellcode zu Array-Dump. 

(A. Dettke/rs) 


Name 

array-dump ccOO ce73 

ccOO 

a9 28 2c a9 29 2c a9 3d 

13 

cc08 

2c a9 Od 2c a9 2c 2c a9 

d2 

cclO 

24 2c a9 25 2c a9 20 2c 

42 

ccl8 

a9 3a 2c a9 22 2c a9 93 

70 

cc20 

4c d2 ff 20 el ff fO 09 

cd 

cc28 

20 68 ce 20 el ff fO 01 

18 

cc30 

60 68 68 4c 34 a8 a5 2f 

e5 

Listing 14. »Array-Dump«. Bitte mit 
dem MSE (Seite 159) eingeben. 
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cc38 

85 

20 

85 

5f 

a5 

30 

85 

21 

4f 

cdOO 

cd 

20 

43 

CC 

20 

09 

cc 

dO 

67 

cdc8 

20 

le 

ab 

20 

23 

CC 

20 

09 

11 

cc40 

85 

60 

60 

aO 

02 

18 

bl 

5f 

88 

cd08 

e9 

aO 

00 

bl 

20 

85 

45 

30 

lb 

cddO 

cc 

a5 

af 

Oa 

85 

02 

aa 

aO 

fO 

oo48 

65 

5f 

aa 

c8 

bl 

5f 

65 

60 

8d 

cdlO 

13 

20 

d2 

ff 

20 

61 

ce 

bl 

94 

cdd8 

00 

fe 

cO 

02 

dO 

03 

fe 

cl 

6c 

cc50 

85 

60 

85 

21 

8a 

85 

5f 

85 

e8 

cdl8 

20 

85 

46 

30 

39 

20 

d2 

ff 

72 

cdeO 

02 

bd 

cO 

02 

d9 

cO 

02 

dO 

7e 

oc58 

20 

60 

20 

95 

b3 

20 

df 

bd 

9a 

cd20 

a9 

00 

fO 

16 

29 

7f 

20 

d2 

7d 

cde8 

18 

bd 

cl 

02 

d9 

cl 

02 

dO 

e5 

cc60 

4c 

le 

ab 

20 

00 

CC 

20 

75 

7c 

cd28 

ff 

20 

61 

ce 

bl 

20 

85 

46 

28 

cdfO 

10 

a9 

00 

9d 

cO 

02 

9d 

cl 

9f 

ec68 

cc 

20 

03 

CC 

20 

06 

cc 

20 

44 

cd30 

29 

7f 

20 

d2 

ff 

20 

12 

cc 

5e 

cdf8 

02 

e8 

e8 

c8 

c8 

c4 

02 

dO 

le 

cc70 

09 

cc 

4c 

09 

cc 

20 

61 

ce 

05 

cd38 

a9 

80 

85 

Oe 

20 

63 

CC 

20 

d5 

ceOO 

d8 

60 

85 

45 

a2 

00 

20 

73 

a4 

cc78 

20 

61 

ce 

20 

61 

ce 

bl 

20 

94 

cd40 

94 

bl 

20 

23 

cc 

a5 

bl 

85 

e5 

ce08 

00 

90 

05 

20 

13 

bl 

90 

Ob 

ad 

cc80 

85 

Ob 

85 

af 

0a 

85 

02 

a2 

fc 

cd48 

bO 

20 

8c 

cd 

a2 

00 

86 

Od 

43 

celO 

aa 

20 

73 

00 

90 

fb 

20 

13 

37 

cc88 

ff 

86 

bO 

a4 

02 

bl 

20 

aa 

Oe 

cd50 

20 

c2 

cd 

dO 

ed 

60 

29 

7f 

e4 

cel8 

bl 

bO 

f6 

c9 

24 

fO 

Oa 

c9 

9e 

cc90 

88 

bl 

20 

ca 

eO 

ff 

dO 

03 

a9 

cd58 

20 

d2 

ff 

20 

Of 

cc 

20 

63 

84 

ce20 

25 

dO 

Oa 

a9 

80 

05 

45 

85 

b5 

cc98 

38 

e9 

01 

20 

cd 

bd 

a4 

02 

6b 

cd60 

cc 

20 

94 

bl 

20 

23 

cc 

a5 

31 

ce28 

45 

8a 

09 

80 

aa 

86 

46 

20 

3d 

ccaO 

a6 

bO 

e8 

bl 

20 

9d 

cO 

02 

05 

cd68 

bl 

85 

bO 

20 

8c 

cd 

a2 

ff 

ce 

ce30 

09 

cc 

20 

36 

cc 

a5 

21 

c5 

78 

cca8 

88 

e8 

bl 

20 

9d 

cO 

02 

86 

0a 

cd70 

86 

Od 

20 

2b 

af 

20 

lb 

cc 

ec 

ce38 

32 

dO 

06 

a5 

20 

c5 

31 

fO 

df 

ccbO 

bO 

86 

bl 

c6 

02 

c6 

02 

fO 

29 

cd78 

aO 

02 

bl 

64 

c9 

08 

90 

03 

37 

ce40 

lb 

aO 

00 

bl 

20 

c5 

45 

dO 

c8 

ccb8 

05 

20 

0c 

cc 

dO 

cd 

e6 

bO 

e2 

cd80 

20 

21 

ab 

20 

lb 

CC 

20 

cb 

50 

ce48 

07 

c8 

bl 

20 

c5 

46 

fO 

06 

82 

cccO 

a5 

bO 

aa 

0a 

85 

02 

a9 

00 

b8 

cd88 

cd 

dO 

d9 

60 

a5 

af 

85 

02 

32 

ce50 

20 

43 

cc 

4 c 

35 

ce 

20 

09 

2b 

cco8 

9d 

cO 

02 

e8 

e4 

02 

30 

f8 

74 

cd90 

85 

Ob 

Oa 

85 

bO 

a6 

bO 

bd 

4d 

ce58 

cd 

4c 

dl 

cc 

a2 

lc 

6c 

00 

16 

ccdO 

60 

4c 

73 

00 

4c 

2a 

82 

20 

94 

cd98 

cO 

02 

a8 

e8 

bd 

cO 

02 

48 

lb 

ce60 

03 

e6 

20 

dO 

02 

e6 

21 

60 

95 

ccd8 

n 

82 

20 

fd 

ae 

20 

13 

bl 

70 

cdaO 

aa 

98 

48 

8a 

e6 

bO 

e6 

bO 

eb 

ce68 

20 

e4 

ff 

fO 

05 

20 

e4 

ff 

fd 

coeO 

90 

03 

4c 

02 

ce 

c9 

30 

fO 

23 

cda8 

20 

5a 

CC 

c6 

02 

fO 

05 

20 

fd 

ce70 

fO 

fb 

60 

ff 

00 

ff 

00 

ff 

76 

cce8 

03 

4c 

08 

af 

20 

09 

CC 

20 

c7 

cdbO 

Oc 

cc 

dO 

el 

20 

15 

CC 

20 

bl 











ccfO 

36 

cc 

a5 

21 

c5 

32 

dO 

06 

57 

cdb8 

18 

cc 

20 

15 

CC 

aO 

04 

4c 

5c 











ccf8 

a5 

20 

c5 

31 

fO 

d3 

20 

09 

85 

cdcO 

ea 

b2 

20 

2b 

af 

20 

dd 

bd 

60 

Listing 14 

»Array Dump« (Schluß) 


23 Kurze Funktionstusten-Abfrage 


Listing 15 zeigt eine wirklich einfache und kurze Möglich¬ 
keit, in einem Programm die Funktionstasten abzufragen. 

Wenn Sie mit der Funktionsweise nicht ganz klarkommen 
sollten, lesen Sie sich den Abschnitt über den 
ON-GOTO-Befehl im Handbuch Ihres C 64 durch. 

(Andreas Stürtz/rs) progrän,.n wieder in seinen ursprünglichen Speicherbe¬ 
reich gebracht und gestartet. (Hua Phuoc/rs) 


24 Der Basic-Line-Maker 


Oft möchte man Maschinenprogramme einfach mit RUN 
starten können. Um dies zu erzielen, muß man vorher das 
Programm mit einem Monitor ein bißchen manipulieren. 
Natürlich gibt es auch schon Programme, die diese Arbeit 
übernehmen. Aber die meisten von ihnen erzeugen eine 
Basic-Zeile, die bei allen Programmen gleich aussieht. Vie¬ 
le stolze Programmautoren werden enttäuscht sein, weil 
sie nicht die Möglichkeit haben, in dieser Zeile zu signieren 
oder ein Datum einzutragen. Mit dem »Basic-Line-Maker: 
(siehe Listing 16) ist das kein Problem mehr. 
Programmbeschreibung: 

Nach dem Start des Programms müssen Sie folgende 
Eingaben machen: 

1. ) Zeilennummer der Basic-Zeile (zum Beispiel 1986) 

2. ) Kommentar (zum Beispiel »(C) 64’er«) 

3. ) Anfangsadresse des Maschinenprogramms (zum Bei¬ 
spiel 49152) 

4. ) Endadresse + 1 (zum Beispiel 49300) 

5. ) Startadresse beziehungsweise Einspruchadresse (zum 
Beispiel 49160) 


100 REM ******************** <094> 
110 REM * HUA PHUOC CAN * <240> 
120 REM * ALTE JOSEFSTR.15 * <123> 
130 REM * 4450 LINGEN * <055> 
140 REM * TEL.0591/74567 * <004> 

150 REM *-* <030> 

160 REM * BASIC-LINE MAKER * <249> 
170 REM * 17.10.86 * <020> 
180 REM ******************** <174> 
190 DIM D(80):B%=2049:POKE 53280,0:POKE 53 

281,0 <0B4> 
200 FOR 1=0 TO 7:READ Q:POKE 704+1,0:NEXT <090> 
210 INPUT"CCLR,YELLOIOZEILENNUMMER:":ZE <093> 
220 INPUT"KOMMENTAR;K$ <249> 
230 INPUT"ANFANGSADRESSE:";AN <026> 
240 INPUT“ENDADRESSE+1C2SPACE5:";EN <051> 
250 INPUT"STARTADRESSEC2SPACE3=“;SA <030> 
260 PRINT“CDOWN,RVSON,SPACE5FEHLERFREI 7 " <176> 
270 GET A$ : IF A$=“"GOTO 270 <144> 
280 IF A$<>"J"GOTO 210 <229> 
290 : <012> 
300 REM === BASIC-ZEILE 'BAZ'=== <120> 
310 K$=STR$ (B54+14+LEN(K$ >) +": " + K$ <108> 
320 FOR 1=1 TO LEN(KS)=D(1+4)=ASC<MID$(K*, 

I,1)>:NEXT:10=1 <078> 
330 H=LEN(K$)+B%+6 <071> 
3&0 D(l)=INT(H/256):D(0)=H-D(1>*256 <171> 
350 D(3)=INT(ZE/256 > = D< 2 >=ZE-D(3)*256 <218> 
360 D(4)=158 <013> 
370 FOR I=B7.TO B%+I0+6:POKE I ,D(I-B%):NEXT <120> 
380 : <102> 
390 REM === COPY-ROUTINE ’COR’=== <041> 
400 REM === 'BAZ'+'COR’ === <091> 
410 FOR II = I TO I+29--READ Q = POKE II,Q:NEXT <088> 


Listing 16. »Basic-Line-Maker«. Maschinenprogramme 
mit RUN starten. Bitte benutzen Sie den Checksummmer 
(Seite 159) zur Eingabe. 


10 A=PEEK(203)=ON A GOTO 60,70,50,20,30,40 


:GOTO 10 <133> 

£ 20 PRINT“Fl":GOTO 10 <101> 

-30 PRINT"F3":GOTO 10 <175> 

S 40 PRINT"F5":GOTO 10 <249> 

© 50 PRINT“F7":GOTO 10 <067> 

60 PRINT"RETURN":GOTO 10 <080> 

70 PRINT“CURSOR RECHTS“:GOTO 10 <129> 


Listing 15. »F-TASTEN«, eine schnelle Funktionstastenabfrage 


Die Basic-Zeile würde dann so aussehen: 

1986 SYS 2072 : (C) 64'ER 

Nachdem man alles eingegeben hat, fragt das Programm, 
ob die Eingaben fehlerfrei sind. Um das zu bestätigen, 
drücken Sie die Taste (J). Dann wird eine mit RUN startbare 
Version Ihres Maschinenprogramms erzeugt. 

Danach kann man das Programm mit »SAVE 6 ,8« spei¬ 
chern. Wenn man es mit RUN startet, wird das Maschinen- 



SONDERHEFT 33 


131 

















TIPS&TRICKS 


C 64, C 128 


420 PL=II+EN-AN <193> 

430 POKE 1+3.INT(11/256)=POKE I+1,II-PEEK< 

1 + 3 > *256 <050> 

440 POKE 1+11,INT(PL/256>=POKE 1+9.PL-PEEK 

(1+11)*256 <031> 

450 POKE 1 + 19 . INT (EN/256) ’-POKE I + 17.EN-PEE 

K(1 +19) *256 <037> 

460 POKE 1 + 29.INT(SA/256>:POKE I+28.SA-PEE 

K(1 + 29 > *256 <245> 

470 : <192> 

400 REM === 'BAZ’+’COR'+'MCP' === <012> 

490 POKE 7B1.INT(AN/256):P0KE 700,AN-PEEK( 

701)*256 <022> 

500 POKE 91.PEEK(1+19):POKE 90,PEEK(1+17) <203> 

510 POKE 09,PEEK<1 + 11)= POKE 88,PEEK(I + 9> <103> 

520 REM = = = BASIC-ENDADRESSE = = = <164> 

530 POKE 46.PEEK<09):POKE 45.PEEK100) <135> 

540 SYS 704 <220> 

550 DATA 133,95,134,96,32.191,163. <061> 

560 DATA 169,255,160,255,133,95,132,96,169 

,255,160,255,133,90,132,91,169,255 <225> 

570 DATA 160,255,133,08,132,09,32,191,163. 

76,, <100> 


© 64'er 

Llsting 16. »BASIC-LINEMAKER« (Schluß) 


25 Titelzeilen 


Bei manchen Programmen ist es nützlich, wenn nicht im¬ 
mer der ganze Bildschirm gescrollt wird, sondern zum Bei¬ 
spiel nur eine Hälfte. Normalerweise müßte man nun neue 
Scrollroutinen schreiben, wozu allerdings Kenntnisse in 
Maschinensprache notwendig sind. Doch es geht auch an¬ 
ders: Man kann durch einen kleinen POKE-Befehl das Be¬ 
triebssystem so ändern, daß eine bestimmte Anzahl von 
Zeilen am oberen Bildschirmrand nicht mehr gescrollt wer¬ 
den. 

Als erstes muß man das Betriebssystem in den 
RAM-Speicher kopieren, damit man es später verändern 
kann. Das geschieht am besten am Programmanfang (hier 
Zeile 10). 

Dann muß in die Speicheradresse 59639 die Anzahl der 
am oberen Bildschirmrand geschützten Zeilen minus eins 
geschrieben werden. Wollen Sie also die ersten zehn Zei¬ 
len vor dem Scrollen schützen, geben Sie »POKE 
59639,10-1« ein. Der Normalzustand kann mit POKE 
59639,255 oder POKE 1,55 wieder hergestellt werden. 
Hier das kleine Listing: 

10 x=l6384:for 1=40960 to 49151:poke i,peek(i):poke 
i+x,peek(i+x):next:poke 1,53 

17 : 

18 rem beispiel : die ersten 5 Zeilen schützen 
20 poke 59639,5-1 

(Fabian Braun/rs) 


26 ON RESET GOTO 


Daß ein Reset auf der Maschinensprache-Ebene abgefan¬ 
gen werden kann, dürfte bekannt sein. Daß dies aber auch 
für Basic nützlich und möglich ist, zeigt mein Programm 
»ON RESET GOTO« (Listing 17). 

Sie können es innerhalb Ihrer eigenen Basic- 
Programme verwenden. Wenn es einmal gestartet wurde, 
bewirkt 

SYS 828,Zeilennummer 

daß beim Auslösen eines Resets Ihr Basic-Programm ab 
der angegebenen Zeilennummer gestartet wird (wirkt wie 
»RUN 


<Zeilennummer>« mit vorausgehendem Bildschirm- 
Reset). 

Achtung: Es ist notwendig, daß die Speicherstellen 
$8000 bis $8008 nicht von Programmen oder Variablen 
überschrieben werden. Daher wird automatisch der Basic- 


Speicher um 2 KByte RAM gekürzt. (Dirk Meier/rs) 


100 FOR 1=828 TO 962:READ Q:POKE I,Q:NEXT <103> 

101 DATA 32 ,253,174,32,130,173,32,247,183 

,165,43,166,44,32,23,166 <170> 

102 DATA 176 ,3,76,227,160,165,20,141,147, 

3,165,21,141,140,3,162 <191> 

103 DATA "5 ,109,109,3,157,3,120,202.208,24 

7,32,116,3,169,149,141 <178> 

104 DATA 0 ,120,169,3,141,1,120,96,32,231, 

255,169,120,133,56,133 <102> 

1Ö5 DATA 51 .169,0,133,55,133,52,165,45,13 

3.47.165.46.133.40.32 <051> 

106 DATA 29 ,160,169,25,133,22,96,0,0,32,1 

63.253.32.21.253.32 <027> 

107 DATA 91 ,255,80,32,03,228,32,191,227.3 

2,96,166,162,251,154,173 <202> 

100 DATA 147 ,3,133,20.173,148,3,133,21,32 

,163,160,32,116,3,76 <197> 

109 DATA 174 .167,195,194,205,56,40 <168> 


© 64'er 

Listing 17. »ON RESET GOTO«. 

Bitte Eingabehinweise auf Seite 159 beachten. 


27 Abfrage beliebiger 

Tastenkombinationen 


Mit Hilfe der beiden Speicherstellen 56320 ($DC00) und 
56321 ($DC01) kann jede beliebige Tastenkombination ab¬ 
gefragt werden. Als Besonderheit bietet diese Abfrage 
auch die Möglichkeit, die linke und die rechte SHIFT-Taste 
getrennt abzufragen (siehe auch »Das Geheimnis der 
SHIFT-Tasten«). 

Um das Prinzip der Abfrage der Tasten zu verstehen, 
muß man wissen, daß der CIA-Chip indirekt mit der Tastatur 
verbunden ist. Dort sind die Tasten in einer 8’8-Matrix an¬ 
geordnet (Bild 1), wobei die Spalte in 56320 und die Zeile 
in 56321 angegeben wird. Da diese Form der Darstellung 
aber ziemlich unübersichtlich ist, zeigt Tabelle 2 das Ganze 
in tabellarischer Auflistung. 

Jeder Spalte beziehungsweise Zeile ist je ein Bit zuge¬ 
ordnet, das bei Tastendruck auf 0 gesetzt, also gelöscht 
wird. 

Wie man sich nun diese Tatsachen zunutze machen 
kann, zeigt folgendes Beispiel, in dem eine Kombination 
aus den Tasten <CTRL> und <F1> abgefragt werden 
soll. 

Man sucht zunächst in der unten abgebildeten Tastatur¬ 
matrix <CTRL> und <F1>. <CTRL> befindet sich bei¬ 
spielsweise in Spalte 7, < Fl > in Spalte 0. Nun werden die 
Spalten, in denen sich die beiden Tasten befinden, mit 
P0KE56320,PEEK( 56320 )AND(255-2 17-210) festgelegt, also 
durch Löschen der entsprechenden Bits. Wenn nun in 
Adresse 56321 die entsprechenden Zeilen-Bits (hier 4 und 
2) gelöscht sind, wurde die gewünschte Tastenkombination 
gedrückt. 

Da aber nun jede 60stel Sekunde ein Interrupt ausge¬ 
löscht wird, würde in die beiden Speicherstellen sofort wie¬ 
der der Normalwert 127 beziehungsweise 255 geschrie¬ 
ben. Um dies zu verhindern, muß bei einer Abfrage in Basic 
der Interrupt vor einer Abfrage mit POKE 56334,0 aus- und 
nach der Abfrage mit POKE 56334,1 wieder eingeschaltet 
werden. 

Eine Routine zur Abfrage der Tastenkombination < Fl > 
und <CTRL> würde also folgendermaßen aussehen: 
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10 P0KE56334,0: POKE56320,PEEK(56320)AND(255-t7-tO) 
20 IF PEEK(56321)=(255-14-12)THEN40 
30 GOT020 

40 P0KE56334.1: PRINT"OK!.": END 

Als Beweis dafür, daß es auch möglich ist, mehr als zwei 
Tasten auf einmal abzufragen, soll die nächste Routine die¬ 
nen. Werden die Tasten <C=>, <SHIFT LINKS>, 
< RETURN > und <F1 > gedrückt, so wird wieder der Text 
»OKI.« auf dem Bildschirm ausgegeben. 

10 P0KE56334,0: P0KE56320,PEEK(56320)AND(255-27-2 
1 - 20 ) 

20 IF PEEK(56321)=255-25-21-24)THEN40 
30 G0T020 

40 P0KE56334.1: PRINT"0K!.": END 

Die erste Routine (< Fl > + <CTRL>) würde in Assem¬ 
bler, eingebunden in den IRQ, wie folgt aussehen (statt der 
Textausgabe wird jedoch ein Reset ausgelöst): 


9000 78 

sei 

Interrupt sperren 

9001 a9 Od 

lda #0d 


9003 8d 14 03 

sta 0314 

Interruptvektor 

9006 a9 90 

lda #90 

»verbiegen« 

9008 8d 15 03 

sta 0315 


900b 58 

cls 

Interrupt 


freigeben 

900c 60 

rts 



900d a9 7e 


lda #7e 

J 

900f 8d 00 

de 

sta dcOO 

f 

9012 ad 01 

de 

lda dcOl 

} 

9015 c9 eb 


emp #eb 

jsind (CTRL) und 
(Fl) gedrückt, 

9017 fO fe 


beq 901c 

jdann nach $901c. 

9019 4c 31 

ea 

jmp ea31 

;zur Interrupt- 
Routine 

901c 4c e2 

fc 

jmp fce2 

;Reset ausführen 


Praktische Anwendungen: 


56320 

Bit 7 

Bit 6 

Bit 5 

Bit 4 

Bit 3 

Bit 2 

Bit 1 

BitO 

bbazi 

BitO 

1 

£ 

+ 

9 

7 

5 

3 

DEL 

Bit 1 

- 

• 

P 

1 

Z 

R 

W 

RET 

Bit 2 

CTRL 

; 

L 

J 

G 

D 

A 

CRSRLR 

Bit 3 

2 

CLR 

— 

0 

8 

6 

4 

F7 

Bit 4 

SPACE SHIFTR 


M 

B 

C 

Z 

Fl 

Bit 5 

C= 

= 

.* 

K 

H 

F 

s 

F3 

Bit 6 

Q 

1 


0 

U 

T 

E 

F5 

Bit 7 

RUN¬ 

STOP 

/ 

• 

N 

V 

X 

SHIFTL CRSROU 


RET = <RETURN> 

CRSRLR = Cursor-llnks/rechts-Taste 
CRSROU = Cursor-oben/unlen-Taste 
SHIFTL = linke SHIFT-Tasle 
SHIFTR = rechte SHIFT-Taste 
C= Commodore-Taste 


Bild 1. Die 8 x 8-Matrix der Tastaturabfrage 

28a Der totale Absturz 


Die Preisfrage: Wie bringt man einen C 64 unter Verwen¬ 
dung von reinstem Basic zum Absturz, ohne POKE, WAIT 
oder SYS? Wer jetzt sagt, dies sei nicht möglich, der gebe 
bitte folgendes ein: 

PRINT 5+"A"+-5 

Sie werden lachen, auch < RUN/STOP RESTORE> hilft 
hier nicht mehr! Dieser Fehler existiert sogar beim C 128, 
C 16, C 116, Plus/4, sowie auf den alten Commodore-Rech- 
nern «*»- CBM-Serie. 

(Harald Görl/rs) 

28b Die Lösung 


(Sven Jarius/rs) 


TASTE BIT BIT 

56320 56321 
A 1 2 

B 3 4 

C 2 4 

D 2 2 

E 1 6 

F 2 8 

G 3 2 

H 3 B 

I 4 1 

I 4 2 

K 4 8 

L 8 2 

M 4 4 

N 4 7 

O 4 6 

P 8 1 

0 7 6 

R 2 1 

S 1 8 

T 2 6 

U 3 6 

V 3 7 

W 1 1 

X 2 7 

Y 3 1 

Z 1 4 


TASTE BIT BIT 
56320 56321 

1 7 0 

2 7 3 

3 1 0 

4 1 3 

8 2 0 

6 2 3 

7 3 0 

8 3 3 

9 4 0 

0 4 3 

7 1 

+ 80 

- 8 3 

£ 6 0 

@86 
* 6 1 

: 5 8 

; 6 2 

= 68 

, 5 7 

5 4 

/ 6 7 


TASTE 

<SPACE> 

<DELETE> 

<HOME> 

< CRSRLR > 

< CRSROU > 

< CTRL > 
<C=> 

<SHIFTL> 

< SHIFTR > 
<F1 > 

<F3> 

<FS> 

<F7> 

<RETURN> 
<STOP> 


BIT BIT 

56320 56321 
7 4 

0 0 

6 3 

0 2 

0 7 

7 2 

7 8 

1 7 

6 4 

0 4 

0 8 

0 6 

0 3 

0 1 

7 7 


wobei 

SHIFTL = linke SHIFT-Taste 
SHIFTR = rechte SHIFT-Taste 
CRSRLR = Cursortaste links/rechts 
CRSROU = Cursortaste oben/unten 


Tabelle 2. Eine übersichtliche Darstellung von Bild 1 


Haben Sie die Lösung herausgefunden? Warum läßt ein 
bestimmter Ausdruck den C 64 völlig abstürzen? Für die Lö¬ 
sung des Absturzausdruckes »PRINT 5+”A”+-5« müssen 
wir zunächst etwas weiter ausholen, bevor wir den Compu¬ 
ter dann an der Speicherstelle $0008 seinen Geist aufge¬ 
ben lassen. 

Zwei Eigenschaften der Routine, die für die Auswertung 
beliebiger Basic-Ausdrücke zuständig ist (FRMEVL ab 
$AD9E), bilden die Grundvoraussetzung für den Absturz: 

1. Sie wertet einen Ausdruck bis zum Ende aus, solange 
kein offensichtlicher Syntax- oder Type-Mismatch-Error 
erkannt wird (und noch Platz auf dem Stack ist). 

2. Alle zur schließlichen Berechnung des Ergebnisses nö¬ 
tigen Informationen werden auf dem Stack abgelegt. 
Diese Informationen haben folgenden Aufbau: 


Byte 

Inhalt 

Herkunft 

1 

Hl Operator- 

SA080 

2 

LO adresse -1 


3 

Vorzeichen 

FAC: $66 

4 

Mantisse des 

$65-$62 

5 

Wertes 


6 



7 



8 

Exponent 

$61 

9 

Flag für »=« 

$4D 

10 

Hierarchiecode der 

Operatoren 

$A080 
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Sie werden vor dem Ausführen der Operation von oben 
(Byte 10) nach unten (Byte 3) wieder nach ARG ausgele¬ 
sen. Durch den Maschinenbefehl RTS erfolgt dann der 
Sprung auf die jeweilige Operation, wobei Byte 2 und 1 das 
Sprungziel bereitstellen. 

Zum Einlesen der einzelnen Elemente des auszuwerten¬ 
den Ausdrucks benutzt FRMEVL die Unterroutine EVAL 
($AE83). In ihr werden Funktionen, Variablen und Konstan¬ 
ten erkannt, gemäß ihres Typs verarbeitet und letztlich im 
FAC zur Verfügung gestellt. Gegebenenfalls, wenn Klam¬ 
merausdrücke vorliegen, ruft EVAL noch einmal FRMEVL 
auf und tritt so in eine Rekursion ein, In unserem Beispiel 
kommt das jedoch nicht vor. 

Die einzelnen Elemente eines Ausdrucks unterliegen bei 
der Auswertung folgenden Prüfungen: 

1. Alle Klammern geschlossen? 

2. Genügend Platz auf dem Stack? 

3. Eingelesenes Element numerisch (bei arithmetischen 
Operatoren)? 

Und bei Stringverkettungen: 

4. Eingelesenes Element ein String? 

5. String zu lang? 

6. Genügend Platz im Speicher? 

7. Zu viele Strings? 

Sehr viele Sicherungen, doch alle vergebens. Warum? 
Dies passiert im einzelnen, bevor der Computer abstürzt: 

1. Ebene 

Der Interpreter erkennt den PRINT-Befehl und verzweigt 
nach $AAA0 zur Bearbeitung. Er stellt fest, daß auf das Be¬ 
fehlswort noch Argumente folgen und schreitet zu deren 
Auswertung. 

2. Ebene 

FRMEVL beginnt mit der Arbeit: Die Ziffer »5« wird einge¬ 
lesen und in den FAC geschrieben. Der folgende Operator 
»+« wird erkannt. Da danach noch etwas kommen muß, legt 
der Interpreter das erste 10-Byte-lnfo (siehe oben) auf dem 
Stack ab. Anschließend kümmert er sich um den String »A«. 

3. Ebene 

Noch fällt dem Interpreter nicht auf, daß man Äpfel 
(Strings) und Birnen (Zahlen) nicht zusammenzählen kann 
und deshalb schreibt er in EVAL das »A« ordentlich ans 
RAM-Ende, richtet einen Deskriptor ein und legt alles im 
Stringstack ab (nicht im oben erwähnten Prozessorstack). 
Weiter geht’s mit dem Auswerten des Ausdrucks: Es folgt 
>•+«, der String ist noch nicht zu Ende. Der Interpreter ver¬ 
zweigt in die Routine $B63D, um eine String-Addition vor¬ 
zunehmen. Ein Typtest (Zahl oder String?) wird hier nicht 
vorgenommen. Statt dessen merkt der Interpreter sich jetzt 
den Deskriptor des ersten Strings, und schreibt diese bei¬ 
den Bytesauf den Prozessorstack. Damit hat der Computer 
sein Todesurteil - noch ahnungslos - bereits unterzeichnet. 

4. Ebene 

In gutem Glauben, daß ein weiterer String für die Ver¬ 
knüpfung folgt, wird nun wieder nach EVAL verzweigt, um 
auch für diesen nicht existenten String einen Deskriptor zu 
erzeugen, mit dessen Hilfe dann der endgültige String ab¬ 
gelegt werden könnte. Aber es kommt nicht mehr dazu: Der 
Interpreter entdeckt das Minuszeichen. Stur wie er ist, deu¬ 
tet er das als Vorzeichen und bricht jetzt alle Brücken hinter 
sich ab. Er entfernt korrekterweise den Rücksprung zur 
Stringverknüpfung aus dem Stack ($AF0D), vergißt aber 
den ebenfalls auf dem Stack liegenden Deskriptor und 
setzt die Auswertung des Ausdrucks fort. 

Damit hat er sich zwei Selbstmordwaffen zurechtgelegt: 
a) Eine Bestimmung des Typs wird nicht mehr vorgenom¬ 
men. 


b) Es liegen zwei Bytes - nämlich der Deskriptor des ersten 
Verknüpfungsstrings - als tödliche Stolpersteine auf 
dem Stack. 

Noch läuft jedoch alles ganz normal weiter. Die zweite »5« 
wird aufbereitet und schließlich das Ende des Ausdrucks 
erkannt. Jetzt kann mit der Ausgabe des Gesamtergebnis¬ 
ses begonnen werden. 

5. Ebene 

Jetzt also alles wieder herunter vom Stack (»minus 5« als 
erstes) und die Operationen ausführen. Der String muß ad¬ 
diert werden - und es würde auch irgendwie gutgehen, 
wenn da nicht die beiden Byte-Brocken im Weg lägen. In 
Zeitlupe: 

- Der Vorzeichenwechsel wird durchgeführt,»+ 5« wird zu 
»-5«. Auf dem Stack liegt nun das erste Byte des verges¬ 
senen Stringdeskriptors. 

- Der Interpreter will nun aber das nächste 10-Byte-lnfo ho¬ 
len, also 

Hierarchiecode aber: LO-Stringdeskriptor 
Flag für »=« Hl-Stringdeskriptor 

Exponent Hierarchiecode 

vier Mantissen-Bytes Flag für »=«, 

Exponent 

Vorzeichen zwei Mantissen-Bytes 

Übrig bliebe im Normalfall die Rücksprungadresse (-1) 
des Operators. Hier folgt tatsächlich aber das vierte 
Mantissen-Byte (beim Wert 5 ist das eine Null) und das 
Vorzeichen (auch Null), so daß der Interpreter als Rück¬ 
sprungadresse $0000 findet. 

- Sprung nach $0001, um die vermeintliche Operation aus¬ 
zuführen. Dort steht: 37 00 AA Bl 91 B3 22 22 

mit der eigentlichen Bedeutung: 

enthält die Speicher¬ 
konfiguration des C64 
unbenutzt 

Vektor einer Betriebs¬ 
systemroutine ($B1AA, 

FAC nach INT) 
ebenso ($B391, INT nach 
FAC) 

Überbleibsel von der Übertra¬ 
gung des Strings »A« ins freie 
RAM, diente zur Erkennung 
des Stringendes 
Der Prozessor muß diese Byte-Folge jetzt als Maschinen¬ 
programm verdauen. Er findet - die Assemblernotierung 
der illegalen Befehlscodes kann in Ausgabe 12/85 des 
64'er-Magazins nachgeschlagen und mit einem für solche 
Befehle modifizierten SMON auch disassembliert werden 


dieses Programm: 


0001 37 00 

RLA 00,X 

j illegaler 
; Rotationsbefehl 

0003 AA 

TAX 

; Akku nach X 

0004 Bl 91 

LDA 
(91),Y 

; hole Wert in den 
; Akku, der von der 
; Stelle, auf die 
; der Vektor in 91 
; zeigt, Y-Stellen 
; entfernt ist 

0006 B3 22 

LAX 
(22),Y 

; lade Akku und X 

0008 22 

CRASH 

; totaler Absturz! 


Sie können die Richtigkeit dieser Behauptungen über¬ 
prüfen, wenn Sie — am besten mit einem für illegale Op- 
codes ausgerüsteten SMON — folgende Monitoroperatio¬ 
nen ausführen: 

.M 0200 0209 


37 

00 

AA Bl 

91 B3 
22 22 
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Geben Sie hinter der Adressenangabe ein 

99 30 AA 22 22 AA AB 30 

und schließen Sie das Ganze in 0208 mit 00 ab. Nun 

.M 007A 

Hier geben Sie in die ersten Bytes hinter der Adresse 

FF 01 

ein. Sie haben jetzt die Eingabe der Basic-Zeile »PRINT 
0+ * "+-0« simuliert, die den gleichen Effekt erzeugt wie 
der veröffentlichte Trick. Gleichzeitig haben Sie den Pro¬ 
grammzeiger des Interpreters auf diese Zeile gerichtet. Ei¬ 
ner Bearbeitung der Zeile steht nun nichts mehr im Wege. 
Da der Computer ja nicht abstürzen soll, gehen Sie nun so 
vor: 

.TB 0008 00 
.TQ A7E4 

Der SMON blendet jetzt kurz das Bild weg und meldet 
sich an Speicherstelle $0008 mit dem Befehl *CRA zurück. 
Probieren Sie’s ausl Im übrigen bringt jeder Ausdruck, bei 
dem auf einen String »+« und »—«folgen, den Interpreter 
ins Schleudern. (Arndt Dettke/rs) 


10 INPUT "ZAHL VON 0 BIS 2 EINGEBEN" 
20 X=A-t40: PRINT "SIE HABEN" 

30 SYS 828,X 

40 PRINT "0 GEDRUECKT":END 

41 PRINT "1 GEDRUECKT":END 

42 PRINT "2 GEDRUECKT":END 


(Jörg Piller/rs) 


30 


Seltsamer SYS-Beffehl 


29 


GOTO X 


Beim »strukturierten Programmieren« in Basic kann der Be¬ 
fehl GOTO X (Sprung zu einer variablen, berechneten Zei¬ 
lennummer) gute Dienste leisten. Doch leider versteht der 
Basic-Interpreter des C 64 diesen nützlichen Befehl nicht. 
Dieses nur 12 Byte lange Maschinenprogramm (Listing 18) 
erlaubt es, nun auch zu berechneten Zeilennummern zu 
springen. Im Gegensatz zu vielen anderen GOTO X- 
Routinen wird hierbei jedoch nicht das gesamte Basic- 
ROM kopiert (Listing 19). Daher die sparsame Nutzung des 
eh so knappen Speicherplatzes. 

Aufgerufen wird das Programm mit »SYS 28, Zeilennum¬ 
mer«. 

Verwendete Kernel-Routinen: 

$AEFD prüft, ob ein Komma folgt. 

$AD8A holt einen Ausdruck (hier die Zeilennummer). 
$B7F7 wandelt den Ausdruck in Low- und High-Byte um. 
$A8A3 ist die Adresse des GOTO-Befehls. 

Ein kurzes Beispielprogramm: 


Name 

goto x .obj 033c 0348 

033c 

20 fd ae 20 8a ad 20 f7 91 

0344 

b7 4c a3 a8 01 20 73 00 fe 

Listing 18. Berechneter GOTO-Sprung in nur 12 Byte 
Länge. Bitte Eingabehinweise auf Seite 159 beachten. 


100 

110 

-5 

“5 

goto x 


120 

_ ■ — 
5 



130 

—; au-fruf : sys B2S,zei lennummer 

140 

200 

“5 

ba 

828 


220 

-.eq 

ckcom =$aefd 


230 

-.eq 

frmnum=*ad8a 


240 

-.eq 

goto =$a8a3 


250 

-.eq 

change=$b7f7 


260 

270 

”5 

jsr ckcom 

;komma ? 

280 

— 

jsr frmnum 

;zeile 

290 

- 

jsr change 

;format 

300 

— 

jmp goto 

;zu goto 

Listing 19. Dokumentierter Queiltext zu Listing 18 


Auf meinem C 64 habe ich auch durch einen Tippfehler ei¬ 
nen merkwürdigen SYS-Befehl entdeckt. Um dessen Wir¬ 
kung am besten zu erkennen, gehe man folgendermaßen 
vor: 

Man schreibe auf den Bildschirm so viele beliebige Zei¬ 
chenfolgen, bis ereinigermaßen gefüllt ist. Dann gebe man 
in die unterste Zeile »SYS 60738« ein. Und jetzt fahre man mit 
dem Cursor immer nach unten. Bis zur drittletzten Zeile ver¬ 
schwinden alle vorher aufgeschriebenen Zeichenfolgen 
und tauchen erst ab der drittletzten etwas durcheinander 
wieder auf. Fährt man mit dem Cursor langsam nach oben, 
erscheint er, nachdem er in der vorletzten Zeile war, in der 
zweiten Zeile von oben, und erst dann geht er, nachdem er 
wieder nach unten gekehrt ist, nach oben. Dies mag etwas 
verwirrend klingen, aber man sieht die Wirkung des Be¬ 
fehls sehr schnell, wenn man ihn einfach ausprobiert. 

Folgendes Beispielprogramm hat eine ähnliche Wir¬ 
kung: 

10 F0R 1=1 to 50 
20 PRINT 5 HALL0 (3SPACE); 

30 NEXT I 

40 SYS 60738 : REM DER MERKWÜRDIGE SYS-BEFEHL 

nrr 1 

Bei dem rätselhaften SYS 60738 geschieht folgendes: 

Zuerst liest die Routine, die für den SYS-Befehl zuständig 
ist, aus den Adressen 780 bis 783 ($030C bis $030F) die Re¬ 
gisterinhalte, von denen für das Problem nur die ersten 
drei, der Akku und die Indexregister interessant sind. Dann 
erst wird in die Routine mit der Adresse 60738 ($ED42) ver¬ 
zweigt. 

Dies ist eine Adresse in der Routine zum Senden eines 
Bytes auf den lEC-Bus, doch steht an der besagten Adres¬ 
se leider ein Undefinierter Opcode, nämlich $97. 

Dieser hat (zumindest bei meiner Prozessorversion) fol¬ 
gende Funktion: Das Ergebnis der UND-Verknüpfung von 
Akku und X-Register wird Zeropage-absolut, Y-indiziert ge¬ 
speichert, also ein »STORE AKKU AND X-REGISTER TO 
$MM,Y«. 

Die nachfolgende (Zeropage-)Adresse ist 238 ($EE), die 
zusammen mit den Adressen 217 bis 242 ($D9 bis $F2) die 
MSBs der Bildschirmzeilenanfänge angibt. Ist das Y- 
Register also kleiner als vier, so wird in diese sogenannten 
Link-Adressen geschrieben. Werden dort die Bits 0 bis 2 
verändert, so nimmt der Videocontroller eine andere Page 
als die ursprüngliche als Basisadresse für die Zeile an, de¬ 
ren Link-Adresse verändert wurde. Dabei kann die Zeile 
nicht aus dem Bereich des Bildschirmes rutschen, da sich 
die mögliche Veränderung nur auf vier Pages beschränkt 
und der Bildschirmspeicher nur vier Pages umfaßt. 

Weil alle LSBs der Zeilenanfänge voneinander verschie¬ 
den sind und sich außerdem im ROM ab 60656 ($ECF0) be¬ 
finden, kann eine Veränderung eines dieser beschriebe¬ 
nen Bits nur zum Bildschirmchaos führen. 

Eine sinnvolle Verwendung für den beschriebenen SYS 
60738 ist kaum vorstellbar, da die Wirkung auf die Verände¬ 
rung einer Speicherzelle zurückgeht, und die Veränderung 
einer Speicherzelle einfacher und gezielter mittels POKE 
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möglich ist. Die gezielte Veränderung einer Speicherzelle 
durch diesen SYS-Befehl würde zuerst die Veränderung 
dreier Speicherzellen (780 bis 782) bedingen, ganz zu 
schweigen von dem vorherigen Rechenaufwand. 

(Dietrich Lüerßen/Christian Schmidkonz/rs) 


31 Komfortabler INPUT-Ersatz 


Bei dem Programm »INSTRING« (siehe Listing 20) handelt 
es sich um einen sehr komfortablen Input-Befehl. Der An¬ 
wender kann ein vorher festgelegtes Eingabefeld dabei 
nicht verlassen. Trotzdem kann wie beim Basic-Editor edi¬ 
tiert werden. Auch Tasten wie (INST), (DEL) und (CLR) be¬ 
ziehen sich ausschließlich auf das Eingabefeld. Es gibt 
zwar schon einige solcher Input-Befehle, »Instring« hat je¬ 
doch noch einige Extras mehr: 

So kann vorher definiert werden, welche Tasten bei der 
Eingabe angenommen werden sollen. Nicht-definierte Ta¬ 
sten bleiben bei der Eingabe dann einfach unbeachtet. Au¬ 
ßerdem kann angegeben werden, mit welchen Tasten die 
Eingabe außer (RETURN) noch abgeschlossen werden 
kann. In einem besonderen Flag wird dem aufrufenden 
Programm anschließend mitgeteilt, welche Taste der An¬ 
wender am Ende der Eingabe verwendet hat. So können 
ganz einfach größere Tabellen editiert und sogar mit weni¬ 
gen Befehlen eigene Texteditoren erstellt werden. Zu den 
bestehenden Editier-Tasten kommt bei Instring noch eine 
dazu: Mit (Commodore, CRSR right) springt der Cursor hin¬ 
ter das letzte Zeichen im Eingabefeld. 
Befehls-Beschreibung 

Der Aufruf der neuen Eingabe-Routine erfolgt so: 

SYS 2132, Y, X, LEN, DEF$, ZIEL$ (,END$, FL*) 

Die Parameter bedeuten im einzelnen: 

Y: y-Koordinate des Eingabefeld-Beginns. Bereich: 0 bis 24 
X: x-Koordinate. Bereich: 0 bis 39 
LEN: Länge des Eingabefeldes (Anzahl Zeichen). Das Ein¬ 
gabefeld darf auch über den rechten Rand in die nächste 
Zeile hinausgehen. Bereich: 1 bis 127 
DEF$: Definitions-String: Hier müssen alle Tasten definiert 
werden, die bei der Eingabe angenommen werden sollen. 
Um zu lange Kolonnen zu vermeiden, kann man folgende 
Abkürzungen innerhalb des Strings verwenden: 

(CTRL K) (CHR$(11)): für alle Buchstaben ohne Shift (a...z) 
(CTRL G) (CHR$(7)): für alle Buchstaben mit Shift (A...Z) 

Diese Tastenkombinationen können ganz normal inner¬ 
halb des Strings angegeben werden. Es erscheint ein Steu¬ 
erzeichen dafür. 

ZIELS: Name des Strings, in den die Eingabe nach Ab¬ 
schlußgeschrieben werden soll. Leerzeichen am Ende des 
Eingabefeldes werden automatisch abgeschnitten. 

Die folgenden Parameter sind optional. Sie sind jedoch 
aneinander gebunden, das heißt wenn END$ angegeben 
wird, so muß FL% folgen. 

END$: Hier können die Tasten angegeben werden, mit de¬ 
nen die Eingabe außer (RETURN) noch abgeschlossen 
werden kann, zum Beispiel Funktionstasten oder die Ta¬ 
sten (CRSR up/down). 

FL%: Name der Integer-Variable, in die geschrieben wer¬ 
den soll, mit welcher Taste der Benutzer die Eingabe been¬ 
det hat. Eine 0 bedeutet (RETURN), eine Zahl größer/gleich 
1 gibt die Position des betreffenden Zeichens im 
END$-String an. 

Wenn der Cursor zu Beginn der Eingabe nicht auf der er¬ 
sten Position des Eingabefeldes stehen soll, kann die Rou¬ 
tine auch bei der Adresse 2137 aufgerufen werden. Die Pa¬ 
rameter ändern sich nicht. Die Cursor-Position muß dann 
vorher mit POKE 820,x festgelegt werden. Wird dies nicht 


getan, steht der Cursor an der Position, an der das letzte 
Eingabefeld verlassen wurde. Dies kann zum Beispiel für 
selbsterstellte Texteditoren auch ganz sinnvoll sein. 

Editiermöglichkeiten 

Mit den Tasten (CRSR right/left) kann der Cursor frei in¬ 
nerhalb des Eingabefeldes bewegt werden. Auch (INST) 
und (DEL) beziehen sich ausschließlich auf das Eingabe¬ 
feld. Mit (CLR) wird das gesamte Eingabefeld gelöscht; 
(HOME) befördert den Cursor an die erste Position im Ein¬ 
gabefeld. Mit der Tastenkombination (CBM, CRSR right) 
bringt man den Cursor hinter das letzte gesetzte Zeichen 
im Eingabefeld. 

Da »Instring« bildschirmorientiert arbeitet, kann das Ein¬ 
gabefeld auch vorher mit beliebigem Text vorbelegt wer¬ 
den. 

Hinweise zum Programm 

Damit die Instring-Routine nicht störend im Speicher 
»herumliegt«, habe ich sie an den Basic-Anfang gesetzt. 
Nach dem Laden wird sie ganz normal mit RUN gestartet. 
Nun wird der Basic-Anfang hochgesetzt und ein eventuell 
dort befindliches Basic-Programm gestartet. Befindet sich 
hier noch kein Basic-Programm, so kann nach einem NEW 
ein eigenes Programm nachgeladen (mit Sekundäradres¬ 
se 01) oder »per Hand« eingegeben werden. Vor dem Spei¬ 
chern dieses Programmes sollte jedoch der Basic-Start 
wieder heruntergesetzt werden, damit die Instring-Routine 
mitgespeichert wird. Dazu sind folgende Befehle nötig: 
POKE 43,1:POKE 44,8 

Dadurch muß Instring nicht jedesmal umständlich vor 
der Benutzung geladen werden. 

Um nicht unnötig viel Speicherplatz zu verbrauchen, 
werden nicht alle Fehler abgefangen. So kann zum Beispiel 
ein Eingabefeld rechts unten über den Bildschirm hinaus in 
die Sprite-Pointer definiert werden. Ich glaube jedoch 
kaum, da" ,emand auf die Idee kommt, in der letzten Zeile 
ein 120 Zeichen langes Feld einzurichten... 

Vor der Instring-Routine steht noch eine Print-At-Routine. 
Aufruf mit SYS 2101,Y,X,TEXT (bzw. Variable(n)). 

(Frank Hempel/rs) 


Name : 

: Instrlng 




0801 0a9c 

0801 : 

: 20 

08 

c3 

07 

9e 

20 

32 

30 

Ob 

0809 : 

: 38 

32 

20 

28 

43 

29 

20 

42 

ea 

0811 : 

: 59 

20 

46 

52 

41 

4e 

4b 

20 

4 a 

0819 : 

: 48 

45 

4d 

50 

45 

4c 

00 

00 

18 

0821 : 

: 00 

a9 

7f 

85 

2b 

a9 

0a 

85 

ba 

0829 : 

: 2c 

a9 

00 

8d 

7e 

0a 

20 

59 

47 

0831 : 

: a6 

4c 

ae 

a7 

20 

fd 

ae 

20 

8b 

0839 : 

: eb 

b7 

8a 

a8 

a6 

14 

e0 

19 

78 

0841 : 

: bO 

Oe 

cO 

28 

b0 

0a 

18 

20 

29 

0849 : 

: fO 

ff 

20 

fd 

ae 

4c 

aO 

aa 

26 

0851 i 

: 4c 

48 

b2 

a9 

00 

8d 

34 

03 

e6 

0859 : 

: a9 

00 

8d 

37 

03 

8d 

38 

03 

dO 

0861 : 

: 85 

f8 

20 

a6 

b3 

a5 

d6 

48 

94 

0869 : 

20 

fd 

ae 

20 

9e 

b7 

eO 

19 

95 

0871 : 

bO 

de 

8a 

85 

f7 

0a 

0a 

18 

0c 

0879 : 

: 65 

f7 

85 

f7 

aO 

03 

06 

f7 

64 

0881 : 

26 

f8 

88 

dO 

f9 

20 

fd 

ae 

55 

0889 : 

20 

9e 

b7 

eO 

28 

bO 

cl 

8a 

26 

0891 : 

18 

65 

f7 

85 

f7 

90 

02 

e6 

e4 

0899 : 

f8 

18 

ad 

88 

02 

65 

f8 

85 

54 

08al : 

f8 

20 

fd 

ae 

20 

9e 

b7 

ca 

6a 

08a9 : 

eO 

7f 

bO 

a4 

8e 

35 

03 

20 

e8 

08bl : 

fd 

ae 

20 

9e 

ad 

20 

a3 

b6 

b9 

08b9 : 

8d 

36 

03 

86 

f9 

84 

fa 

20 

e3 

08cl : 

fd 

ae 

20 

8b 

bO 

20 

79 

00 

81 

08c9 : 

c9 

2c 

dO 

10 

20 

fd 

ae 

20 

cb 


Listing 20. Der komfortable INPUT-Ersatz »instrlng« 
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C 64, C 128 


TIPS&TRICKS 


08dl 

9e 

ad 

20 

a3 

b6 

8d 

37 

03 

7d 

0971 

34 

03 

4c 

dd 

08 

ac 

34 

03 

b2 

Oall : 

dO 

00 

a9 

00 

85 

c6 

ac 

35 

f7 

08d9 

86 

fb 

84 

fc 

ac 

34 

03 

bl 

f9 

0979 

fO 

35 

bl 

f7 

88 

91 

f7 

c8 

f6 

0al9 : 

03 

bl 

f7 

c9 

20 

dO 

05 

ce 

66 

08el 

f7 

30 

04 

09 

80 

dO 

02 

29 

fb 

0981 

c8 

cc 

35 

03 

90 

f4 

fO 

f2 

b7 

0a21 : 

35 

03 

10 

f2 

ee 

35 

03 

ad 

3a 

08e9 

7f 

91 

f7 

aO 

78 

a2 

ff 

a5 

2b 

0989 

ac 

35 

03 

a9 

20 

91 

f7 

dO 

d6 

0a29 : 

35 

03 

fO 

21 

20 

f4 

b4 

aO 

fe 

08fl 

c6 

dO 

08 

ca 

dO 

f9 

88 

dO 

lb 

0991 

cO 

ac 

35 

03 

bl 

f7 

c9 

20 

97 

0a31 : 

00 

bl 

f7 

c9 

20 

90 

Ob 

c9 

87 

08 f 9 

f4 

fO 

el 

a9 

00 

85 

c6 

ac 

b3 

0999 

dO 

15 

fO 

06 

bl 

f7 

c8 

91 

12 

0a39 : 

60 

bO 

07 

c9 

40 

90 

06 

18 

bd 

0901 

34 

03 

bl 

f7 

29 

7f 

91 

f7 

e7 

09al 

f7 

88 

88 

30 

05 

CC 

34 

03 

92 

0a4l : 

69 

40 

18 

69 

40 

91 

33 

c8 

ed 

0909 

ad 

77 

02 

c9 

Od 

dO 

03 

4c 

28 

09a9 

bO 

f2 

c8 

a9 

20 

91 

f7 

4o 

41 

0a49 : 

cc 

35 

03 

dO 

e4 

aO 

00 

ad 

39 

0911 

13 

0a 

c9 

20 

fO 

lb 

c9 

ld 

e9 

09b 1 

dd 

08 

ac 

35 

03 

bl 

f7 

c9 

95 

0a51 : 

35 

03 

91 

47 

c8 

a5 

33 

91 

ff 

0919 

fO 

29 

c9 

9d 

ro 

33 

c9 

93 

bb 

09b9 

20 

dO 

03 

88 

10 

f7 

CC 

35 

72 

0a59 : 

47 

c8 

a5 

34 

91 

47 

ad 

37 

6d 

0921 

fO 

4l 

c9 

13 

fO 

47 

c9 

14 

lf 

09cl 

03 

fO 

01 

c8 

8c 

34 

03 

4c 

a5 

0a6l : 

03 

fO 

12 

20 

fd 

ae 

20 

8b 

52 

0929 

fO 

4b 

c9 

94 

fO 

63 

4c 

cb 

b7 

09c9 

dd 

08 

aO 

00 

48 

bl 

f9 

aa 

22 

0a69 : 

bO 

a9 

00 

aO 

00 

91 

47 

c8 

3d 

0931 

09 

c9 

40 

90 

09 

c9 

cO 

90 

44 

09dl 

68 

eO 

Ob 

dO 

Ob 

c9 

41 

90 

ab 

0a71 : 

ad 

38 

03 

91 

47 

68 

aa 

aO 

dl 

0939 

02 

e9 

40 

38 

e9 

40 

ac 

34 

03 

09d9 

19 

c9 

5b 

bO 

15 

4c 

32 

09 

52 

0a79 : 

00 

18 

4c 

fO 

ff 

00 

9a 

Oa 

35 

0941 

03 

91 

f7 

ad 

34 

03 

cd 

35 

bd 

09el 

eO 

07 

dO 

Oa 

c9 

cl 

90 

Oa 

bb 

0a81 : 

Oa 

00 

50 

52 

b2 

32 

31 

30 

cc 

0949 

03 

fO 

03 

ee 

34 

03 

4c 

dd 

ab 

09e9 

c9 

db 

bO 

06 

90 

ef 

dl 

f9 

50 

0a89 : 

31 

3a 

49 

4e 

b2 

32 

31 

33 

db 

0951 

08 

ad 

8d 

02 

c9 

02 

fO 

5a 

f9 

09fl 

fO 

eb 

c8 

cc 

36 

03 

dO 

d4 

Ob 

0a91 : 

32 

3a 

50 

4f 

b2 

38 

32 

30 

f4 

0959 

ad 

34 

03 

fO 

03 

ce 

34 

03 

7d 

09 f 9 

ac 

37 

03 

fO 

Oc 

aO 

00 

dl 

89 

0a99 : 

00 

00 

00 

4e 

fl 

9e 

d4 

de 

84 

0961 

4c 

dd 

08 

ac 

35 

03 

a9 

20 

86 

OaOl 

fb 

fO 

09 

c8 

cc 

37 

03 

dO 

04 











0969 

91 

f7 

88 

10 

f9 

a9 

00 

8d 

22 

0a09 

f6 

4c 

dd 

08 

c8 

8c 

38 

03 

76 

Listing 2G 

. (Schluß) 






32 Multitasking auf dem C 64 


Dieses Programm (Listing 21) ist eine Hilfe für die C 64-Be- 
sitzer, die öfter eigene Interrupt-Routinen schreiben. Man 
kann mit »Pseudo MultiTask« zum Beispiel Musik, Scrol¬ 
ling, Bewegung und Animation von Sprites scheinbar 
gleichzeitig ablaufen lassen. Nach dem Abtippen des Ma¬ 
schinenprogramms mit dem MSE stehen dem Benutzer 
vier neue Routinen bereit: 

1. Task on ($c00c-$co2d) 

2. Task off ($c02e-$c03f) 

3. Irq on ($c043-$c05b) e^sr c 

4. Irq off ($c05d-$c069) 

»Task on« wird mit »SYS 49152, Adresse, Nr.« aufgerufen. 
»Adresse« steht für die dezimale Einsprungadresse und 


»Nr.« steht für die Nummer des Tasks, die das Programm 
belegen soll. 

»Task off« dient dazu, einen Task abzuschalten. Dieser 
Programmteil wird mit »SYS 49155, Nr.« aufgerufen. 

Mit »Irq on« wird der Interrupt initialisiert. Die Routine 
wird mit »SYS 49158« aufgerufen (löscht Sprungtabelle). 
»Irq off« wird mit »SYS 49161« angesprungen. 

Wer einen Absturz verhindern möchte, sollte den Spei¬ 
cher von $c000 bis $c100 nicht verwenden. Alle Routinen 
müseen mit einem RTS abgeschlossen sein, und alle Routi¬ 
nen soiiien zusammen nicht länger als % Sekunde dauern, 
da sonst ein neuer Irq ausgelöst werden würde, bevor der 
alte zu Ende bearbeitet wurde. (Oliver Mittenzwei/rs) 


Name : pseudo-m.task cOOO cOff 


cOOO : 

; 4c 

Oc 

cO 

4c 

2e 

cO 

4c 

43 

ad 

c008 : 

: cO 

4c 

5d 

cO 

20 

73 

00 

20 

3c 

cOlO : 

; 8a 

ad 

20 

f7 

b7 

20 

fd 

ae 

4a 

c018 : 

: 20 

9e 

b7 

20 

e6 

cO 

a9 

20 

d5 

c020 : 

: 9d 

6a 

cO 

a5 

14 

9d 

6b 

cO 

34 

c028 : 

a5 

15 

9d 

6c 

cO 

60 

20 

fd 

d8 

c030 : 

: ae 

20 

9e 

b7 

20 

e6 

cO 

a9 

lc 

c038 : 

ea 

9d 

6a 

cO 

9d 

6b 

cO 

9d 

17 

c040 : 

6c 

cO 

60 

78 

a2 

cO 

aO 

6a 

bb 

c048 : 

8e 

15 

03 

8c 

14 

03 

a9 

ea 

89 


c050 : 

a2 

00 

9d 

6a 

cO 

e8 

eO 

70 

5f 

c058 : 

dO 

f8 

58 

60 

ea 

78 

a2 

ea 

99 

c060 : 

aO 

31 

8e 

15 

03 

8c 

14 

03 

ca 

c068 : 

58 

60 

ea 

ea 

ea 

ea 

ea 

ea 

90 

c070 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

6f 

c078 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

77 

c080 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

7f 

c088 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

87 

c090 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

8f 

c098 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

97 

cOaO : 

; ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

9f 

c0a8 : 

; ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

a7 


cObO : 

; ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

af 

c0b8 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

b7 

cOcO : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

bf 

c0c8 : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

c7 

cOdO : 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

cf 

c0d8 . 

: ea 

ea 

ea 

ea 

ea 

ea 

ea 

ea 

d7 

cOeO 

: ea 

ea 

ea 

4c 

31 ea 

8a 

18 

48 

c0e8 

: 8d 

ed 

cO 

2a 

69 28 

aa 

ad 

bf 

cOfO 

: ed 

cO 

c9 28 

bO 

01 

60 

4c 

e2 

c0f8 

: 08 

af 

00 

00 

00 

00 

00 

20 

18 


Listing 21. Keine Probleme mit 
Interrupts: »pseude m.task« 


33 Verbesserter Einzelschritt 


ln Listing 22 sehen Sie eine stark verbesserte Version des 
Programms »Einzelschritt« aus der 64’er, Ausgabe 5/87. 
Ich habe das Programm dahingehend erweitert, daß 

1. die aktuelle Zeilennummer in der linken oberen Ecke er¬ 
sichtlich ist und 

2. nach einem Tastendruck wirklich nur ein Befehl ausge¬ 
führt wird. 

Das Programm wird absolut (.8,1) geladen und durch 
»SYS 49152« gestartet. Man muß nun auch im Direktmodus, 
also auch bei zum Beispiel LOAD und RUN, eine Taste (am 
besten < Commodore >) drücken, damit der Befehl ausge¬ 
führt wird. 

Links oben wird jetzt die aktuelle Zeilennummer ausge¬ 
geben. Nun wartet das Programm auf einen Tastendruck. 


Danach wird eine Warteschleife abgearbeitet, um nicht 
gleich mehrere Befehle abzuarbeiten. Die Wartezeit kann 
durch die Speicherstellen 49204 und 49206 (Zähler High-/ 
Low-Byte) eingestellt werden. (Franz Schinagl/rs) 


Name : 

: single Step 



cOOO c042 

cOOO : 

: a9 

Ob 

8d 

08 

03 

a9 

cO 

8d 

2f 

c008 : 

: 09 

03 

60 

a5 

d6 

a6 

d3 

8d 

6d 

cOlO : 

: 40 

cO 

8e 

4l 

cO 

a2 

00 

aO 

de 

c018 : 

: 00 

20 

Oc 

e5 

20 

c9 

bd 

a9 

83 

c020 : 

: 20 

20 

ca 

fl 

20 

ca 

fl 

ae 

bf 

c028 : 

: 40 

cO 

ac 

4l 

cO 

20 

Oc 

e5 

25 

C030 : 

: 20 

eO 

e4 

a2 

c8 

aO 

ff 

88 

fO 

C038 ; 

: dO 

fd 

ca 

dO 

f8 

4c 

e4 

a7 

a8 

c040 : 

: 00 

00 

60 

78 

a2 

cO 

aO 

6a 

ef 


Listing 22. Verbesserter Einzelschrittmodus für Basic 
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TIPS&TRICKS 


C64, CI28 


Name : 

freemem 

53100 


cf6c cfc7 

cf6o : 

78 

ad 

14 

03 

8d 

a5 

cf 

ad 

cl 

cf74 : 

15 

03 

8d 

a6 

cf 

a9 

85 

8d 

be 

cf7c : 

14 

03 

a9 

cf 

8d 

15 

03 

58 

b4 

cf84 : 

60 

78 

ba 

8a 

a2 

ff 

20 

a7 

la 

cf8c : 

cf 

a9 

20 

e8 

9d 

21 

04 

38 

b8 

cf94 : 

a5 

33 

e5 

31 

a8 

a5 

34 

e5 

c7 

cf9c : 

32 

20 

a7 

cf 

98 

20 

a7 

cf 

8b 

cfa4 : 

4c 

00 

00 

48 

4a 

4a 

4a 

4a 

ae 

efae : 

e8 

20 

b8 

cf 

68 

29 

Of 

e8 

aa 

cfb4 : 

20 

b8 

cf 

60 

c9 

0a 

bO 

03 

e6 

cfbc : 

69 

30 

2c 

e9 

09 

09 

80 

9d 

9c 

cfo4 : 

21 

04 

60 

3f 

00 

fO 

ff 

00 

6f 

Listing 

23 

»Freemem« 






34 Holzauge sei wachsam 


Wer kennt das nicht: Ein Programm gibt keinen Mucks 
mehr von sich. Ist es jetzt abgestürzt oder hängt es in ir¬ 
gendeiner Berechnungsschleife? 

Das Programm »Freemem« (Listing 23) zeigt interrupt¬ 
gesteuert den Stackpointer und den freien Basic-Speicher 
in der rechten oberen Bildschirmecke. Vor allem die Anzei¬ 
ge des Stackpointers, die bei einem normalen Programm¬ 
lauf ständig wechselt, ist eine tolle Einrichtung zum Auste¬ 
sten von kritischen Programmen. Auch können Sie mit Hilfe 
der Anzeige des freien Speichers nun jederzeit feststellen, 
wann der Computer gerade eine Garbage-Collection 
durchführt. 

»Freemem« wird mit SYS 53100 gestartet und mit 
<RUN/STOP RESTORE> wiederabgeschaltet. 

(Henning Müller-Zauleck/rs) 

35 GET — mal anders 


Statt der Tastaturabfrageroutine 

10 GET A$: IF A$="" THEN 10 

kann man auch eine FOR-NEXT-Schleife benutzen: 

10 F0R A=0 T0 0: GET A$: A=A$="": NEXT A 
Der Trick besteht darin, daß die Laufvariable A innerhalb 
der FOR-NEXT-Schleife verändert werden kann. Die Lauf¬ 
variable erhält den Wert -1, wenn keine Taste gedrückt ist — 


Name 

: kopfzellen 



cOOO c095 

cOOO 

: 4c 

0a 

cO 

4c 

62 

cO 

4c 

74 

51 

c008 

: cO 

02 

78 

a9 

2d 

a2 

cO 

8d 

23 

C010 

: 14 

03 

8e 

15 

03 

ae 

09 

cO 

37 

c018 

: bd 

90 

oO 

8d 

12 

d0 

ad 

11 

80 

c020 

: dO 

29 

7f 

8d' 

11 

dO 

a9 

81 

58 

c028 : 

: 8d 

la 

dO 

58 

60 

ad 

19 

dO 

7b 

c030 : 

: 8d 

19 

dO 

30 

07 

'ad 

Od 

de 

50 

c038 : 

: 58 

4c 

31 

ea 

78 

ae 

09 

,o0 

03 

c040 : 

: bd 

8u 

cO 

aa 

bd 

94 

cO 

9d 

86 

c048 : 

: 00 

04 

bd 

0c 

Ol 

9d 

00 

d8 

f6 

c050 : 

: ca 

10 

fl 

ae 

09 

cO 

ad 

12 

g6 

c058 : 

: dO 

dd 

8d 

cO 

90 

f8 

58 

4c 

5d 

c060 : 

: 81 

ea 

78 

a9 

00 

■8d 

la 

dO 

20 

c068 : 

a9 

31 

a2 

ea 

8d 

14 

03 

8e 

52 

c070 : 

15 

03 

58 

60 

ae 

09 

cO 

bd 

db 

c078 : 

8a 

cO 

aa 

bd 

00 

04 

9d 

94 

84 

c080 : 

c0 

bd 

00 

d8 

9d 

Oc 

cl 

ca 

11 

c088 : 

10 

fl 

60 

27 

4f 

77 

3b 

43 

b2 

c090 : 

4b 

le 

0a 

00 

00 

ea 

ea 

ea 

46 


Listing 24. »Kopfzeilen« per Rasterzeilen-Interrupt 


die Schleife wird wiederholt. Ist eine Taste gedrückt, erhält 
A den Wert 0, die Schleife wird beendet. 

Der Vorteil der FOR-NEXT-Schleife: sie muß nicht allein 
in einer Zeile stehen. Beispiel: 

10 PRINT"WEITER(J/N) ? ":FORA=OTOO:GET$:A=A$() *N* 
ANDA$() "J": 

NEXT A: IF A$="N" THEN END 
20 PRINT"OK.":END 

Die Schleife kann aber auch anders heißen: 

10 PRINT"WEITER(J/N)?":FORA=OTO-1STEPO:GETA$:A=A$=" 
N"0RA$= "J": NEXTA: IF A$="N" THEN END 
-20 PRINT "OK.": END 

Hier wird die Schleife beendet, wenn die logische Opera¬ 
tion wahr ist. 

Anwendungen: 

— Warten, bis Drucker angeschaltet ist 

1 PRINT"DRUCKER EINGESCHALTET?": G0SUB 10: PRINT 
"OK.": END 

10 FORA=OTOO:P0KE768,61:0PEN1,4:PRINT # 1:CL0SE1: 
P0KE768,139:A=ST=-128: NEXTA: RETURN 

— Warteschleife (z.B. 10 Sekunden) 

10 A$==TI$: F0RA=0T0-1: A=VAL(TI$)=10: NEXT A 

(V. A. Schmidt/rs) 

36 Kopfzeilen per Raster-Interrupt 


Dieses Programm (Listing 24) bietet dem Programmierer in 
Basic oder Maschinensprache bis zu drei Statuszeilen am 
oberen Rand des Bildschirms. 

Besonderheiten: 

»Kopfzeilen« arbeitet mit Rasterzeilen-Interrupt. Dadurch 
ist es nicht nötig, das Betriebssystem ins RAM zu kopieren, 
wie es die üblichen Statuszeilen-Programme machen. So 
bleibt das HAM unter dem ROM frei und kann für sinnvolle¬ 
re Zwecke verwendet werden. 

Das Programm ist in Maschinensprache geschrieben 
und belegt den Speicher von 49152 bis 49301 ($C000 bis 
$C095). Weiterhin werden noch 240 Byte als Speicher be¬ 
nötigt. 

Bei der Arbeit mit »KOPFZEILEN« geht man folgender¬ 
maßen vor: 

1. Durch »POKE 49152 + 9, ZL« stellen Sie die Anzahl der 
Statuszeilen ein (ZL: 1 bis 3). Falsche Angaben werden 
nicht überprüft. 

2. Durch »SYS 49152+6« werden die oberen Zeilen (je nach 
ZL eine bis drei) in den Zwischenspeicher gerettet, auch die 
Farbbytes. 

3. Durch »SYS 49152« wird das Programm gestartet. Ab 
jetzt wird bei jedem Durchlauf des Elektronenstrahls der In¬ 
halt des Zwischenspeichers in den Bildschirm- und Farb- 
speicher geschrieben. 

4. Mit Hilfe von »SYS 49152+3« können Sie das Programm 
wieder ausschalten. 

Das Demoprogramm in Listing 25 zeigt die Möglichkei¬ 
ten von »KOPFZEILEN«. (Bernd Schuller/rs) 


37 Joystick glasklar 


Durch diese kleine Maschinenroutine (siehe Listing 26) 
wird ein an den Computer angeschlossener Joystick abge¬ 
fragt und der Schaltzustand in einer Basic-Variablen (!) ab¬ 
gelegt. 

Der Aufruf erfolgt über »SYS 49152,Port-Nummer«, wo¬ 
bei für Port-Nummer entweder 1 oder 2 angegeben werden 
kann. Das Maschinenprogramm legt automatisch zwei 
Basic-Variablen an. Je nach gewählter Port-Nummer lau- 
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TIPS&TRICKS 


10 REM DEMO FUER ’KOPFZEILEN’ <227> 

20 REM <082> 

30 REM (W) BERND SCHÜLLER 1987 <201> 

40 REM <102> 

50 IF A=0 THEN A=1:LOAD"KOPFZEILEN".8,1 <128> 

60 XN=49152:OF=49152+3 <179> 

70 GT=49152+6:ZL=49152+9 <195> 

80 POKE ZL.3 <149> 

90 POKE 53280,0:POKE 53281,0:SYS OF <014> 

100 PRINT"CCLR,LIG.BLUE>DEMO FUER DAS PROG 

RAMMCSPACE,RED>-KOPFZEILEN'” <058> 

110 PRINT“CLIG.BLUEOBIS ZUCSPACE,YELLOWODR 
EICLIG. BLUE, SPACE.1STATUSZEILEN MOEGLlC 
H |" <018> 

120 FOR T=0 TO 39:PRINT"*"IsNEXT <138> 

130 SYS GT=SYS IN <091> 

140 POKE 198,0 <046> 


150 PRINT"CDOWN,RVSONOA)CRVOFF,SPACEODURCH 
RASTER-IRQ KEINE SPEICHER-C5SPACEJPLA 


TZVERSCHWENDUNG" <103> 
160 GOSUB 230 <160> 
170 PRINT"CRVS0N3B)CRVOFF,SPACE5BETRIEBSSY 

STEM KOPIEREN UNNOETIG !!" <230> 
180 GOSUB 230 <180> 
190 PRINT"CRVS0N5OCRVOFF,SPACE>1-3 STATUS 

ZEILEN,C2SPACE5FLACKERFREI" <011> 
200 GOSUB 230 <200> 
210 IF PEEKf198>=0 THEN 150 <120> 
220 SYS OFsEND <155> 
230 FOR T=0 TO 100:NEXT:RETURN <128> 


© 64'er 

Listing 25. Demonstration der Fähigkeiten von Listing 24 


Name 

Joystick cOOO c073 

c028 

Of aO 08 d9 65 cO fO 03 

eb 

c060 : 7b 68 85 7a 60 Of Oe Od 

91 




c030 

88 10 f8 98 20 47 cO a9 

a4 

c068 : Ob 07 Oa 06 09 05 4a 31 

7f 

cOOO 

20 fd ae 20 9e b7 ca eO 

63 

c038 

46 8d 6e cO 68 29 10 c9 

9c 

c070 : b2 30 00 60 ae 09 cO bd 

f8 

c008 

02 90 05 a2 Oe 4c 37 a4 

51 

c040 

00 fO 02 a9 01 49 01 18 

fd 



cOlO 

e8 a9 31 eO 02 dO 04 a2 

31 

c048 

69 30 8d 71 cO a5 7a 48 

Of 



c018 

00 a9 32 8d 6f cO a9 4a 

63 

c050 

a5 7b 48 a9 6e 85 7a a9 

4a 

Listing 26. Geniale Joystick- 


c 020 

8d 6e cO bd 00 de 48 29 

26 

c058 

cO 85 7b 20 a5 a9 68 85 

12 

Abfrage in Maschinensprache 



. apt p4 
#= $cOOO 

; *«* ma.joy «»* 

: andreas wendker 
; gojenbergsweg 112 d 
; 2050 hamburg BO 
; tel. (040) 720 6B 04 

1 
t 

; aufruf -> sys 49152, nummer 
S 

: funktion - joystick-abfrage 


lda M"f" ;variablen-namen ab text umbenennen 

sta text jin fl* bzw. f2* 

pla ;joystick-register zurueckholen 

and M7.00010000 {feuerknopf-bit isolieren 
cmp MO 

beq feuok ;knöpf gedrueckt 

lda Ml 

eor Ml ;bit 0 umdrehen, a enhaelt nun ergebn 


sroutine zum anlegen der variablen 

;-> bei jl/j2 wird sie als Unterprogramm aufgerufen, 
«be#p^/f2 ganz normal durchgegangen 

IT. a muss der spaetere wert der variablen stehen 


J 

; 

getbyte = *b79e {zahl (0-255) aus basic-text holen 

;und i n >: lieber geben 

chkcom = faefd sauf komma pruefen 

fehaus = «a437 ;fehlermeldüng ausgeben 

letvar = Ja9a5 sbasic-befehl let bearbeiten 

I 

;joystick-port-nummer aus basic-text holen, 

;wertebereichs-ueber pruefung 
;sowie bestimmung einiger parameter 
( 


Start 

jsr 

chkcom 

{komma ueborspringnn 


jsr 

getbyte 

;nummor des joystick-ports holen 


dex 


ipruefen, ob zahl ° 1 bzw. 2 


cpx 

M2 



bcc 

ok 



ldx 

M 1 4 

{sonst fehlermeldüng ausgeben 


jmp 

fehaus 

| — ’ illegal quantity error 

ok 

inx 


{je nach joystick-port-nummer 


lda 

M " 1" 

{a mit "1" bzw. "2" laden und 


cpx 

M2 

{x auf joystick-regiater 


bne 

jonuin 

{zeigen lassen 


ldx 

MO 



lda 

M "2" 

iport-nummer als 2. btichstabon 

jonum 

1 

ata 

text+1 

;des variablen-namens uobernohmen 

üvanabe ’jl 

1 bzw. * 

J2‘ bearbeiten 

je nach 

bewegung 

srlchtung 

{des 

Joysticks einen 

wert von 0 bis 0 zuweisen 

* 

lda 

M" J" 

; 1 . buchst alle ■ "J" 


sta 

text 

variable heisst nun jl bzw. j2 


lda 

56320,x 

{wert des joystlck-regi«ters holen 


pha 


;und rotten 


and 

H7.00001 111 {untere vier bitr. isolieren 


ldy 

MB 


Josuch 

cmp 

ver wer, > 

/ {und mit allen werten vergleichen 


beq 

f ound 


dey 




bpi 

josuch 


f aund 

tya 


Sa enthaelt jetzt den wert, 


{der der variablen zugewiesen werden soll 
jsr anlegen {variable anlegen 


clc 


{ascii-code der zahl ermitteln 

ade 

M4B 


sta 

text+3 

{in basic-befehl ab text einfuegen 

lda 

*7a 

{chrget-zeiger retten 

pha 



lda 

*7b 


pha 



lda 

M< text 

schrget-zeiger auf eigenen befehl 

sta 

*7a 

;ab text richten 

lda 

M.text 


sta 

*7b 


jsr 

1etvar 

{befehl abarbeiten -> wertzuweisung 

pla 


schrget-zeiger auf altes byte richten 

sta 

*7b 


pla 



sta 

*7a 


rts 




I 

salle denkbaren Icombi nati onen der vier bewegunqsr i chtunqen 
sdos Joysticks - reihenfolge entspricht 
;den spaeteren vari abl en-wert eri 
l 


. byte'/.OOOOl 1 11 
.byt »7.000011 10 
.byt »7.00001101 
. byt »7.0000101 1 
.byt »7.000001 I 1 
. byt »7.0000 1 (Ül 0 

.byt »7.00000110 
. byt»X00001001 
.byt e7.00000101 


{nicht bewegt 
l oben 

I unten 

II Inka 

;rechts 
{oben-1inko 
s oben-rechts 
!unten-1lnks 
{unten-rechts 


{basic-befehl jl»0 

(**> verschluesselt zur bearbeitung 

{durch das betr i obssystem 

{-> befehl wird je nach variable geaendert 
! 

text .asc "Jl" :platz fuer variablen-namen 
.bytetb2 {basic-token fuer '»‘ 

.byte40, 0 {platz fuer ergebnis-ascil-code 
:die 0 kennzeichnet das befehls-ende 


{jetzt die variable fl' bzw. 'f2‘ bearbeiten 

;-> je nach zustand des feuerknöpfes 0 oder 1 zuweisen 

S 


Listing 27. Der kommentierte Quelltext zur 
Joystick-Abfrage 


ÜJi'HJ* 
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C64, CI28 


ten diese J1/J2 und F1/F2. Dabei enthält J1/J2 nach dem 
Aufruf die Position des Joysticks: 

5 1 6 

3 0 4 

7 2 8 

Die Variable F1/F2 enthält bei gedrücktem Feuerknopf 
den Wert 1, ansonsten 0. 

Die Auswertung von J1/J2 könnte in Basic zum Beispiel 
so erfolgen: 

SYS 49152,1:0N J1 GOTO ... 

In Listing 27 sehen Sie den dokumentierten Quelltext 
zum Programm. Er wurde mit dem Assembler »Profi-Ass« 
geschrieben. (Andreas Wendker/rs) 


38 Und es geht noch kürzer 


Nachdem ich die Ausgabe 12/87 des 64’er-Magazins stu¬ 
dierte und die kürzeste Routine zum Kopieren der Inhalte 
der ROMs sah, dachte ich bei mir, daß es doch noch kürzer 
und besser gehen müsse. 

Die dort abgedruckte Routine hat wesentliche Nachteile, 
die ich hier erwähnen möchte. Als erstes ist zu sagen, daß 
die Routine nicht 15 Byte, sondern eigentlich 18 Byte 
braucht, da der Bildschirm auf jeden Fall gelöscht werden 
muß. In Assembler sind das drei weitere Bytes. Der zweite 
Nachteil ist die Voraussetzung der Bytes in den Speicher¬ 
stellen $28/$29. Was man also für den praktischen Einsatz 
braucht, ist eine Prozedur, die unabhängig vom Programm 
»perfekt« ist. 

Durch diese Kriterien angespornt, nahm ich nun meinen 
Monitor und suchte im Basic-ROM. Nicht einmal fünf Minu¬ 
ten waren verstrichen, als ich diese wunderschöne Routine 


fand: 

A3E8 

BL 5A LDA 



($5A),Y 

Hier der Schleifenbeginn 

A3EA 

91 58 STA 



($58),Y 

kopiert das Byte 

A3EC 

88 DEY 

vermindert Y-Register 

A3ED 

DO F9 BNE $A3E8 

zum Anfang, wenn Y- 

A3EF 

BL 5A LDA 

Register nicht null 


($5A),Y 

damit auch das letzte Byte 


10 FOR I = 028 TO 820+13 

<109> 

20 READ A 

<060> 

30 POKE I.A 

<176> 

40 NEXT I 

< 124> 

50 SYS 828 

< 151 > 

60 : 

<036> 

70 DATA 120,162,4,140,87,202,208,251 

32,23 

2,163,76,221,253 

<250> 

© 64’er 


Listing 28. ROM-RAM-Kopierroutine 


mit nur 14 Byte Länge 



10 

20 

“1 

. ba 

»9000 

30 


sei 


40 

- 

ldx 

#4 

50 

-loop 

sty 

#57, x 

60 


dex 


70 


bne 

1 oop 

BO 

— 

jsr 

*a3eB 

90 

- 

jmp 

#f ddd 


Listing 29. Der Quelltext zur ROM-RAM-Kopierroutine 


A3 FL 

91 58 STA 

($58),Y 

kopiert wird 

A3F3 

C6 5B DEC $5B 

vermindert Adresse $5B, 
also High-Byte 

A3F5 

C6 59 DEC $59 

vermindert Adresse $59, 
also High-Byte 

A3F7 

CA DEX 

da X-Register = 0 erfolgen 
256 Durchläufe 

A3F8 

DO F2 BNE$A3EC 

Sprung, wenn X-Register 
< >0 

A3FA 

60 RTS 

Ende der Kopierschleife 


Jetzt war nur noch der Aufruf zu definieren. Mir war klar, 
daß ich den ganzen Speicher des C 64 in sich selber kopie¬ 
ren mußte, ansonsten hätte ein Byte verlorengehen kön¬ 
nen. Also flugs den Aufruf entwickelt. Fazit: Es liegt eine 
Routine vor, die das ROM in das RAM kopiert, die nur 14 By¬ 
te braucht und keine (I) Einschränkung aufweist. Listing 28 
zeigt den Basic-Lader und Listing 29 den Quelltext der ferti¬ 
gen Routine. (Ralf Döhmer/rs) 


39 Brüche kürzen 


Schnelle Primzahlenprogramme gibt es genügend. Ein 
schnelles Programm zum Kürzen von Brüchen war jedoch 
noch nicht da. Listing 30 zeigt eine solche Problemlösung. 
Zuerst wird der größte gemeinsame Teiler (ggT) von Zähler 
und Nenner nach einem Algorithmus von Euklid berechnet 
(Zeile 20). Der Rest ist dann ein Kinderspiel (Zeile 30). 

(M. Jaumann/rs) 


10 INKui "ZAEHL.ER";Z:INPUT"NENNER ";N:A=Z:B 

=N , <163> 

20 R=A—INT(A/B)»B:A=B:B=R:IF R>0 THEN 20 <253> 

30 PRINT:PRINT"BEKUERZT:":PRINT"ZAEHLER:"Z 

/A:PRINT"NENNER: "N/A <01B> 

Listing 30. »BRUECHE KUERZEN«, 
mit überwältigender Geschwindigkeit 


40 SIN, COS, TAN im Gradmaß 


Wer einmal versucht hat, den C 64 für trigonometrische Be¬ 
rechnungen einzusetzen, wird sich sicherlich über eine 
Eigenart des Computers geärgert haben: Sämtliche 
Winkelangaben müssen zuerst ins Bogenmaß umgerech¬ 
net werden. Mit einem Einzeiler ist es jedoch möglich, das 
Betriebssystem des C 64 auf Gradmaß »umzustellen«. Um 
den Sinus von 70 Grad zu erhalten, können Sie danach also 
direkt SIN(70) schreiben. 

2 H=58080:F0R I=H T0 H+9:P0KE I,0:NEXT: 

P0KE H,135:POKE H+1,52:P0KE H+5,137:POKE H+6,52 
Um das Betriebssystem überhaupt ändern zu können, 
muß es vorher in einen RAM-Bereich kopiert werden: 

1 A=16384:F0R 1=40960 T0 49151:P0KE I,PEEK(I): 

P0KE I+A,PEEK(I+A):NEXT:P0KE l,53:POKE 64982,53 
Neben SIN, COS und TAN gibt es noch eine vierte trigo¬ 
nometrische Funktion: den Arcustangens ATN. Hierbei ist 
nicht das Argument, sondern das Ergebnis ein Winkel. 
Dies ist nicht so einfach in Gradangaben umzuändern, des¬ 
halb werden auch zwei weitere Zeilen benötigt. Beachten 
Sie, daß hierbei der Kassettenpuffer belegt wird, also keine 
Kassettenoperationen mehr durchgeführt werden können. 
Sollte dies unbedingt erforderlich sein, müssen Sie POKE 
1,55 eingeben und nach dem Laden beziehungsweise 
Speichern die nächsten zwei Zeilen erneut starten. 
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3 DATA 134,101,46,224,212,32,67,224,169,64,160,3,7 
6,40,186 

4 FOR 1=832 TO 846:READ A:POKE I,A:NEXT: 

POKE 58153,64:POKE 58153,64:POKE 58154,3 

Zur Funktionsweise: 

Zum Ändern von SIN, COS und TAN werden einfach die 
im Betriebssystem gespeicherten Konstanten Pi‘2 und Pi/2 
mit den Fließkommawerten für 360 und 90 überschrieben. 
Bei der Funktion ATN wird in das Betriebssystem eine Rou¬ 
tine eingefügt, die das Ergebnis mit 180/Pi multipliziert. 

(Michael Patra/rs) 

41 Satz des Pythagoras 


Mit Hilfe dieses Programms können Sie alle pythagore¬ 
ischen Zahlentrippel herausfinden. Ein pythagoreisches 
Zahlentripel sind drei natürliche Zahlen a, b, c, wobei 
a * 1 2 3 +b 2 =c 4 (Satz des Pythagoras). 

Diese kann man mit den Formeln in den Zeilen 30 bis 50 
ermitteln. Aus Zeitgründen wird nicht potenziert, sondern 
multipliziert. Wenn Sie einen größeren oder kleineren Be¬ 
reich berechnen wollen, ändern Sie die Zeilen 10 und 20. 
10 FOR X = 1 T0 8 
20 FOR Y = 1 TO 8 
30 A =X*X-Y*Y 
4Ö B =2#X*Y 
50 C =X*X+Y#Y 
55 IF INT (A) < 1GOT070 
60 PRINT INT (A),B,INT (C) 

70 NEXTY,X 

In Zeile 55 werden für »a« die Null und negative Zahlen 
ausgeschlossen. Anschließend werden die Werte ausge¬ 
geben. (Frank Ebach/rs) 

42 Das neue Zahlenformat 


Viele Computer-Neulinge können sich nicht so recht an die 
etwas eigenwillige Zahlenschreibweise des C 64 gewöh¬ 
nen. Anstatt »0,123« steht da auf dem Bildschirm ».123«. 
Das untenstehende Listing schafft da Abhilfe. Kurzerhand 
wird der Basic-Interpreter des C 64 so geändert, daß Zah¬ 
lenausgaben »richtig« erfolgen. Dies funktioniert jedoch 
nur bei der Ausgabe von Zahlen mit dem PRINT-Befehl 
(zum Beispiel PRINT A). 

Und so wird’s gemacht: Einfach untenstehendes Listing 


abtippen und mit RUN starten. 

10 FOR 1=828 T0 842:READ A:P0KE I,A:NEXT:S 

YS 828:POKE 1,53:POKE 64982,53 <150> 

20 FOR 1+48725 T0 48730:READ A:P0KE I,A:NE 

XT <133> 

30 FOR 1=828 TO 840:READ A:P0KE I,A:NEXT:P 

OKE 48608,43 <135> 

40 DATA 120,177,216,145,216,200,208,249,23 

0,217,208,245,76,221,253 <219> 

50 DATA 32,60,3,234,234,234,169,48,200,153 

,255,,169,44,200,153,255,,96 < 239 > 


(Rolf Tapprich/rs) 

43 Gleichungen lösen 


Listing 31 stellt eine Hilfe zum Lösen von Gleichungen dar. 
Die linke und rechte Seite der Gleichung werden mit »DEF 
FN« definiert (Zeilen 10 und 20). Dann wird die Eingabe ei¬ 
nes Startwertes für die folgende Iteration verlangt. Das Pro¬ 


10 DEF FN A(X)=X*X*X-2*X*X+7 

<09B> 

20 DEF FN B(X)=X*X+7*X 

<043> 

30 GE=5:REM GENAUIGKEIT 

<187> 

40 DE=0.5/10tGE 

<025> 

50 INPUT"STARTWERT“iXA 

<254> 

60 X=XA 

<223> 

70 FA=FN A(X)-FN B(X) 

<004> 

80 X=XA+0.1 

<069> 

90 F=FN A(X)-FN B(X) 

<191> 

100 XN=X-(XA-X)*F/(FA-F) 

<226> 

110 D=ABS(<X~XN)/(XN+DE)) 

<213> 

120 IF D<DE THEN 140 

<008> 

130 X=XN’GOTO 90 

<177> 

140 PRINT"X=";XN 

<072> 

0 64'er 


Listing 31. Gleichungen lösen mit 

»Gleichungen II« 


gramm bildet die Differenz der beiden Funktionswerte und 
berechnet dann mit Hilfe der »REGULA FALSI« (Nullstellen¬ 
algorithmus) die Lösung der Gleichung. 

Alle Nachteile des alten Programms entfallen, und durch 
Vorgabe des Startwertes ist es auch möglich, mehrere Lö¬ 
sungen der Gleichung zu finden. (Markus Hagen/rs) 


44 7.56 minus 1.56=? 


Ein Leser schickte uns einen Brief mit einem interessanten 
Problem. Er hatte ein Programm geschrieben und war dar¬ 
an fast verzweifelt: 

10 A=7.56:B=1.56:C=A-B 

20 IF C=6 THEN PRINT "C IST 6!":END 

30 Pw’ IT "C IST UNGLEICH 6!" 

Die große Preisfrage: Was ergibt 7.56 minus 1.56? 6? 
Nicht für den C 64! Wer’s nicht glaubt, sollte das Programm 
ausprobieren. Aber damit nicht genug. 

Fügen Sie folgende Zeile ein: 

15 PRINT C 

Laut dieser Zeile enthält die Variable C doch nur den Wert 
6 ohne irgendwelche Nachkommastellen, die man von un¬ 
serem »Rechengenie« ja inzwischen gewöhnt ist. 

Nun gut, ein INT-Befehl müßte das Problem lösen: 

17 C=INT(C) 

Wahrscheinlich werden Sie in leises Schluchzen verfal¬ 
len, wenn Sie das so geänderte Programm starten — C ist 
immer noch ungleich 6. 

Scherz beiseite. (Thomas Röder) 


Hier ist die Lösung: 

Jeder, der mit Fließkomma-Zahlen arbeitet, muß wissen, 
daß die interne Fließkomma-Darstellung in den wenigsten 
Computern exakt ist. Programmiersprachen (also auch Ba¬ 
sic) machen Rundungsfehler, wenn es Fließkomma-Zahlen 
betrifft. Es wundert also nicht, daß (7.56 -1.56) nicht gleich 
6 ist, denn in jedem der folgenden Schritte werden Run¬ 
dungsfehler gemacht (jedenfalls im 3. Schritt): 

1. A = 7.56 

2. B = 1.56 

3. C = A -B 

»PRINT C« liefert zwar 6, aber »PRINT C -6« liefert nicht 0, 
sondern -1.86264515 E -09 (ungefähr 
-0.00000000186264515). 

C ist jetzt also ungefähr 5.99999999813735485 geworden. 
Indem man C = INT (C) hinzufügte, wird C also immer noch 
nicht gleich 6, sondern gleich 5, da die Nachkommastellen 
einfach abgeschnitten werden. 

Es ist besser, C zu runden: C = INT(C + .5) 
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Folgendes Programm ergibt das erwünschte Resultat: 

10 A = 7.56 : B = 1.56 : C = A -B 
15 C = INT(C + .5) 

20 IF C = 6 TUEN PRINT"C ist 6!" : END 
30 PRINT "C IST UNGLEICH 6! " 

(E. Polak/rs) 


45 Die Floating-Point-Darstellung 


Frage: Wie kann man ohne große Rechenarbeit die 
Floating-Point-Darstellung einer beliebigen Zahl bestim¬ 
men? 

Antwort: Durch einen Einzeiler: 

CLR : A=n : B=PEEK(45)+256*PEEK(46) : FOR T=2 TO 6 
: PRINT 

PEEK(B+T) : NEXT 

Für »n« setzen Sie die umzurechnende Zahl ein. Nach 
dem Drücken von < RETURN > erscheinen fünf Zahlen 
auf dem Bildschirm. Die erste ist das Exponenten-Byte, die 
nächsten vier stellen die.Mantissen-Bytes dar. 

Erklärung: Mit dem CLR-Befehl wird sichergestellt, daß 
die nächste Variable, die angelegt wird, auch direkt hinter 
dem Basic-Ende-Zeiger steht. In unserem Fall ist dies die 
Variable A. Danach legt der Einzeiler den aktuellen Basic- 
Ende-Zeiger in B ab. Die nächsten zwei Bytes hinter diesem 
Zeiger werden übergangen (sie enthalten den Variablenna¬ 
men). 

Dann schließlich folgen die fünf gesuchten Bytes: Die 
Floating-Point-Darstellung der Variablen A. 

(Eric Goldstein/rs) 


46 Der kleinste Sprite-Editor 


Im 64’er-Magazin, Ausgabe 11/86, wurde auf Seite 25 der 
»kleinste Sprite-Editor der Welt« vorgestellt. Der einzige 
Nachteil daran ist, daß das erstellte Sprite während der Da¬ 
tenberechnung vom Bildschirm verschwindet. Korrekturen 
lassen sich also nicht mehr durchführen. Die beiden unten¬ 
stehenden Programmzeilen stellen denselben Editor wie in 
Ausgabe 11 dar, mit Ausnahme des genannten Nachteils. 

1 FOR 1=0 TO 2:A=0:F0R N=0 TO 7:A=A-2l(7-N)* 
(PEEK(1024 +40*X+N+8*I)=42):NEXT:A(I+1)=A 

2 NEXT:PRINT TAB(25)A(1)A(2)A(3):X=X+1:IF 
X<21 THEN 1 

Die errechneten Sprite-Werte werden rechts neben dem 
Sprite ausgegeben. (Dr. L.Meyding/rs) 

47 Erklärung zum 

vibrierenden Bildschirm 


Im 64'er-Magazin, Ausgabe 11/86, wurde in der Rubrik Tips 

& Tricks ein Einzeiler veröffentlicht, der den Bildschirm vi¬ 
brieren läßt. Er lautete: 

0 FOR A=0 TO 15:P0KE 53270,A:NEXT:GOTOO 
Laut Commodore-Handbuch ist die Speicherzelle 53270 
das Register 38 des VIC, also des Bausteins, der für die 
Bildaufbereitung im C 64 zuständig ist. Wir wollen dieses 
Register einmal näher untersuchen. Das Handbuch liefert 
hierzu folgende Erklärung: 

] N.C.l N.C.] RST] MCM] CSELj XSCL2] XSCLIj XSCL0] 
Aufschlußreich, nicht wahr? Was bedeutet diese Darstel¬ 
lung? Als erstes einmal muß man wissen, daß jede Spei¬ 
cherzelle aus insgesamt acht Bit besteht, die jeweils den 


10 DATO 169,3,141,21,3,169,102,141,20,3,16 


9,128,141,136,2 <134> 

20 DATA 169,5,141,24,208,169,1,141,0,221,1 

69,0,133,51,169 <077> 

30 DATA 128,133,56,141,132,2,133,52,96,76, 

49,234,166,197,224 <0BB> 

40 DATA 3,144,247,224,7,176,243 <111> 

50 DATA 189,128,3,141,24,208,1B9,132,3,141 

,136,2,24,32,16 <013> 

60 DATA 229,76,49,234,53,5,21,37,140,128,1 

32,136 <137> 

100 FOR T=828 TD 906:READ AsPOKE T,AtZ=Z+A 

s NEXT <0B5> 

110 IF ZOB420 THEN PR INT "FEHLER IN DATAB 

! ":END <224> 

120 SYS 828 <221> 


Llsting 32. Vier Bildschirme mit dem C64 


Wert Null oder Eins annehmen können. Aus diesen acht Bit 
wird dann der Wert (0 bis 255) zusammengesetzt, der den 
Inhalt dieses Registers darstellt. Jedes Bit wird durch eine 
Zweierpotenz berechnet. Wenn zum Beispiel nur Bit 4 ge¬ 
setzt werden soll, muß man in diese Speicherstelle den 
Wert 2 4 =16 schreiben. Wenn man Bit 0 und Bit 7 setzen 
möchte, lautet der dazugehörige Wert 2°+2 * & 7 =129. Die 
Darstellung weiter oben repräsentiert also die Aufteilung 
des Registers in acht Bit. Jedes Bit hat eine eigene Funk¬ 
tion: 

— Bit 0bis3: Diese Bits sind für die Funktion des erwähnten 
Einzeilers zuständig. Sie legen die X-Position des Bild¬ 
schirms fest. Werden sie verändert, verschiebt er sich verti¬ 
kal. Allerdings wird der Inhalt des Bildschirms nicht mitver¬ 
schoben. Lediglich der Rand bewegt sich. 

— Bit 3: Wird dieses Bit gelöscht, reduziert sich die Anzahl 
an Zeiche,. oro Zeile von 40 auf 38. Nur wird dabei nicht, wie 
man annehmen müßte, jeweils links und rechts eine Spalte 
»abgeschnitten«, sondern auf der linken Seite sieben Punk¬ 
te und rechts neun Punkte (jedes Zeichen besteht aus 8 mal 
8 Punkten) weggenommen. 

— Bit 4: Dieses Bit schaltet den Mehrfarben- (Multicolor-) 
Modus ein. Es hat allerdings nur Wirkung, wenn die hoch¬ 
auflösende Grafik eingeschaltet wurde. 

— Bit 5: Bei der Bedeutung dieses Bits scheiden sich die 
Geister. Laut Hersteller des VICs beendet der Baustein 
beim Setzen des Bits sämtliche Aktivitäten, also auch die 
Erzeugung des Bildes für den Fernseher oder Monitor. 
Beim Redaktions-C 64 und beim C 64 des Autors trat dieser 
Effekt jedoch nicht auf. Vielleicht hat irgendein Hardware¬ 
freak eine Erklärung dafür. 

— Bit 6 und 7: werden nicht verwendet (T. Schlabach/rs) 

48 Flackern beim 

Rasterzeilen-Interrupt 


Wer schon einmal mit dem Rasterzeilen-Interrupt gearbei¬ 
tet hat, wird festgestellt haben, daß manche Zeilen flackern. 
Der Grund dafür ist, daß der VIC bei manchen Rasterzeilen 
länger braucht, als bei anderen, da er die Daten für die 
neue Bildschirmzeile aufbereiten muß. Dies geschieht ab 
Rasterzeile 51 alle acht Zeilen. Vermeiden kann man dies, 
indem man die Rasterzeilen nicht benutzt, die folgender 
Bedingung genügen: 

Z - 51 + n * 8. 

»Z« steht für die Zeilennummer und »n« ist eine Variable 
im Bereich von 0 bis 30, damit auch der Bildschirmbereich 
außerhalb des Textfeldes erfaßt wird. Alle anderen Zeilen 
können uneingeschränkt benutzt werden. 

(M. Kühlewein, M.Koch/sk) 
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49 Vier Bildschirme auf dem C 64 


Mit dem Programm in Listing 32 ist es möglich, aut vier Bild¬ 
schirmen gleichzeitig zu arbeiten, ohne daß Daten durch 
eventuelles Scrollen verlorengehen. So kann man auf Bild¬ 
schirm drei und vier Notizen zum Programm auf Bildschirm 
eins machen. Ein im Speicher befindliches Programm ist 
jedoch auf allen vier Bildschirmen editierfähig. Ein Druck 
auf eine der Funktionstasten genügt, um zwischen den 
Bildschirmen umzuschalten. <F1 > steht für Bildschirm 1, 
<F3>für Bildschirm 2 und so fort. 

Für die Bildschirmspeicher wurde der Bereich $8000 bis 
$8FFF gewählt. Für einen geübten Maschinensprache- 
Programmierer dürfte es jedoch kein Problem sein, das 
Programm so abzuändern, daß der Bildschirmspeicher un¬ 
ter das Basic-ROM geschoben wird. Für die Abfrage der 
Funktionstasten wurde die Interrupt-Routine verwendet. 

(J. Hauke/sk) 


50 Der Bilderklau 


Viele Spiele besitzen oftmals herrliche Grafiken,die man 
mit einer Hardcopy auf Papier festhalten möchte. Wer die 
Anschaffung eines teuren Hardcopy-Moduls vermeiden 
will, dem bleibt nur der Weg, einen Reset auszulösen und 
mit Programmen wie Hi-Eddi, Hardmaker oder Koalacopy 
den Speicher nach den Grafikbildern abzusuchen. Das 
funktioniert aber nur dann, wenn die Spiele wirklich Hires- 


Grafiken und keine Lores-Bildschirme mit verändertem Zei¬ 
chensatz verwenden, was aber in letzter Zeit fast nur noch 
der Fall ist. Das Aufspüren und Sichern dieser Bildschirme 
zusammen mit den dazugehörigen Zeichensätzen erledigt 
nun das Programm (Listing 33). 

Alle 64 Bildschirme können mit allen 32 Zeichensätzen 
kombiniert betrachtet werden, obwohl einige Kombinatio¬ 
nen wie zum Beispiel der Bildschirm und/oder Zeichensatz 
mit der Startadresse Null (Zeropage) nicht besonders sinn¬ 
voll sind. Man kann unter anderem Textbildschirme als 
Hires-Bilder speichern, die dann zum Beispiel mit Hi-Eddi 
weiterverarbeitet und ausgedruckt werden können. Damit 
das Programm beim Laden keine Bildschirme über¬ 
schreibt, wurde es als Autostartfile konzipiert, welches im 
Bereich von $f7 bis $3ff liegt und daher nichts zerstört, was 
durch den Reset vorher nicht schon zerstört worden wäre. 
Ein Reset vor dem Laden ist nötig, um 

a) das Spiel abzubrechen und 

b) um den Stack zu bereinigen, da das Programm ihm nun¬ 
mehr 48 Byte Platz läßt. Sichtbar ist immer der normale 
Bildschirm ab Adresse 1024/$400; alle anderen Bildschir¬ 
me werden in diesen hineinkopiert. Zeichensätze werden 
in den Bereich ab 2048/$800 kopiert. Zu den Funktionen 
des Programms: 


+ 

Shift + 
Shift - 
Cursor down 
Cursor right 
Cursor up 
Cursor left 


Einen Bildschirm vorwärtsblättern 
Einen Bildschirm zurückblättern 
Einen Zeichensatz vorwärtsblättern 
Einen Zeichensatz zurückblättern 
Bildschirm 1 Zeile nach oben scrollen 
Bildschirm 1 Byte nach rechts scrollen 
Bildschirm 1 Zeile nach unten scrollen 
Bildschirm 1 Byte nach links scrollen 


(+1024 Byte) 
(-1024 Byte) 
(+2048 Byte) 
(-2048 Byte) 
(+40 Byte) 
(+1 Byte) 
(-40 Byte) 
(-1 Byte) 


Name : sereens.gen 0801 0b7f 


0801 

: Ob 

08 

0a 

00 

9e 

32 

30 

36 

3c 

0809 

: 31 

00 

00 

00 

a9 

0a 

a2 

62 

75 

0811 

: aO 

08 

20 

bd 

ff 

aO 

01 

a2 

c3 

0819 

: 08 

86 

fc 

a9 

03 

85 

fd 

20 

6d 

0821 

: ba 

ff 

20 

cO 

ff 

a6 

b8 

20 

53 

0829 

: c9 

ff 

a9 

f7 

20 

d2 

ff 

a9 

47 

0831 

: 00 

20 

d2 

ff 

a9 

77 

85 

fb 

5a 

0839 ■ 

: aO 

00 

bl 

fb 

20 

d2 

ff 

c8 

ef 

0841 ; 

: dO 

f8 

e6 

fc 

c6 

fd 

dO 

fO 

68 

0849 : 

: bl 

fb 

20 

d2 

ff 

c8 

cO 

08 

b4 

0851 : 

: dO 

f6 

20 

cc 

ff 

a5 

b8 

20 

8e 

0859 : 

: c3 

ff 

a9 

6c 

aO 

08 

4c 

le 

cb 

0861 : 

: ab 

36 

34 

20 

53 

43 

52 

45 

5c 

0869 : 

: 45 

4e 

53 

11 

46 

45 

52 

54 

4d 

0871 ! 

: 49 

47 

20 

21 

8d 

00 

93 

11 

d3 

0879 : 

; Oe 

20 

36 

34 

20 

53 

43 

52 

fa 

0881 : 

: 45 

45 

4e 

53 

00 

04 

08 

00 

a7 

0889 : 

: Ob 

07 

0a 

13 

20 

20 

d3 

43 

d6 

0891 : 

: 48 

49 

52 

4d 

3a 

20 

00 

20 

al 

0899 : 

20 

20 

da 

53 

41 

54 

5a 

3a 

7f 

08al : 

20 

00 

93 

11 

20 

46 

49 

4c 

ba 

08a9 : 

45 

4e 

41 

4d 

45 

20 

3f 

20 

a2 

08b 1 : 

00 

2e 

42 

53 

2e 

50 

49 

2c 

a6 

08b9 : 

50 

2c 

57 

20 

95 

03 

aO 

00 

ed 

08el : 

b9 

35 

01 

95 

lc 

e8 

c8 

cO 

b6 

08c9 : 

07 

dO 

f5 

20 

ed 

03 

20 

cO 

b3 

08dl : 

ff 

bO 

74 

a6 

b8 

20 

c9 

ff 

ce 

08d9 : 

a9 

00 

20 

d2 

ff 

a9 

20 

20 

f3 

08el : 

d2 

ff 

24 

96 

50 

04 

a9 

08 

6b 

08e9 : 

dO 

0c 

ad 

18 

dO 

29 

02 

dO 

2e 

08fl : 

03 

a9 

dO 

2c 

a9 

d8 

8d 

9d 

55 

08 f9 r 

01 

a2 

04 

86 

9f 

ca 

aO 

00 

fO 

0901 : 

8a 

48 

98 

48 

a9 

00 

85 

b6 

fd 

0909 : 

bl 

9e 

85 

b5 

06 

b5 

26 

b6 

35 

0911 : 

06 

b5 

26 

b6 

06 

b5 

26 

b6 

66 

0919 : 

18 

a5 

b6 

69 

08 

85 

b6 

aO 

a7 

0921 : 

00 

78 

a7 

01 

29 

f9 

85 

01 

e2 

0929 : 

bl 

b5 

86 

01 

58 

20 

d2 

ff 

48 


0931 

: c8 

cO 

08 

90 

ec 

68 

a8 

68 

f3 

0939 

0941 


s* 

o7 

c8 

20 

la 

9f 

0949 

: cc 

ff 

a5 

b8 

4c 

c3 

ff 

02 

7c 

0951 

: 02 

02 

02 

02 

02 

02 

02 

02 

51 

0959 

: 02 

02 

02 

02 

02 

02 

02 

02 

59 

0961 

: 02 

02 

02 

02 

02 

02 

02 

02 

61 

0969 

: 02 

02 

02 

02 

02 

02 

02 

02 

69 

0971 

: 02 

02 

02 

02 

02 

02 

02 

02 

71 

0979 

: 02 

02 

02 

02 

02 

02 

02 

4c 

Oe 

0981 

: Oa 

03 

a2 

04 

bd 

04 

01 

95 

61 

0989 

: af 

bd 

07 

01 

9d 

lf 

dO 

ca 

a4 

0991 

: dO 

f2 

86 

96 

86 

9e 

86 

9d 

01 

0999 

: ca 

9a 

a9 

f7 

aO 

00 

20 

le 

eO 

09al 

: ab 

a9 

02 

48 

a9 

21 

48 

a9 

c3 

09a9 

: 00 

85 

c6 

a5 

c6 

fO 

fc 

20 

fa 

09b 1 

: e4 

ff 

c9 

ld 

fO 

42 

c9 

9d 

2e 

09b9 

: fO 

62 

c9 

11 

fO 

3d 

c9 

91 

b2 

09cl 

: fO 

5f 

c9 

2b 

fO 

6e 

c9 

2d 

3d 

09c9 

: fO 

72 

c9 

54 

dO 

03 

4c 

3c 

be 

09dl 

: 01 

c9 

51 

fO 

6f 

c9 

db 

80 

df 

09d9 

: 00 

fO 

6c 

c9 

dd 

fO 

70 

c9 

60 

09el 

: 44 

80 

00 

fO 

9a 

c9 

4d 

fO 

92 

09e9 

: 6e 

c9 

4f 

80 

00 

fO 

74 

c9 

Od 

09fl 

: 53 

dO 

b4 

4c 

b3 

03 

00 

00 

b6 

09f9 

: a9 

01 

2c 

a9 

28 

8d 

94 

02 

a8 

OaOl 

: a5 

bO 

18 

90 

Od 

Oe 

Oe 

04 

98 

0a09 

: 01 

80 

04 

10 

00 

00 

48 

eb 

46 

Oall 

: 00 

00 

69 

28 

85 

bO 

90 

19 

c3 

0al9 

: e6 

bl 

bO 

15 

a9 

01 

dO 

03 

92 

0a21 

: 00 

a9 

28 

8d 

ab 

02 

38 

a5 

a9 

0a29 

: bO 

e9 

28 

85 

bO 

bO 

02 

c6 

af 

0a31 

: bl 

4c 

6a 

03 

18 

a5 

bl 

69 

4c 

0a39 : 

: 04 

4c 

6c 

03 

38 

a5 

bl 

e9 

2a 

0a4l : 

: 04 

4c 

6c 

03 

6c 

fc 

ff 

18 

c6 

0a49 : 

: a5 

b2 

69 

08 

4c 

f5 

02 

38 

90 

0a51 : 

: a5 

b2 

e9 

08 

4c 

f5 

02 

a5 

92 

Oa59 : 

: 96 

49 

80 

85 

96 

10 

Of 

a9 

de 

0a6l : 

: d8 

dO 

Od 

aO 

00 

84 

96 

84 

80 

0a69 : 

: bO 

a9 

17 

8d 

18 

dO 

a9 

c8 

a6 


0a71 

8d 

16 

dO 

60 

85 

b2 

85 

b6 

bb 

0a79 

20 

64 

03 

a9 

00 

85 

b5 

a5 

10 

0a81 

96 

09 

40 

85 

96 

a2 

08 

dO 

9d 

0a89 

6c 

20 

ea 

02 

a2 

00 

20 

ff 

ab 

0a91 

e9 

30 

20 

31 

ea 

66 

fe 

47 

2d 

0a99 

fe 

4a 

f3 

91 

f2 

Oe 

f2 

50 

f7 

Oaal 

f2 

33 

f3 

57 

fl 

ca 

fl 

ed 

2e 

0aa9 

f6 

3e 

fl 

2f 

f3 

66 

fe 

a5 

da 

Oabl 

f4 

ed 

f5 

a9 

Oc 

aO 

01 

20 

58 

0ab9 

le 

ab 

a6 

bO 

a5 

bl 

20 

cd 

70 

Oacl 

bd 

a9 

18 

aO 

01 

20 

le 

ab 

4e 

0ac9 

a5 

b2 

a2 

00 

20 

cd 

bd 

a9 

2b 

Oadl 

00 

85 

c6 

a5 

c6 

fO 

fc 

20 

22 

0ad9 

6a 

03 

24 

96 

10 

03 

20 

eO 

fc 

Oael 

02 

50 

4e 

a9 

13 

8d 

18 

dO 

74 

0ae9 

60 

a5 

bl 

85 

bl 

85 

b6 

a5 

a6 

Oafl 

bO 

85 

b5 

a2 

04 

86 

b4 

78 

5e 

0af9 

a5 

01 

48 

29 

f8 

85 

01 

aO 

57 

ObOl 

00 

bl 

b5 

91 

b3 

88 

dO 

f9 

30 

Ob 09 

e6 

b6 

e6 

b4 

ca 

dO 

f2 

68 

6a 

Obll 

85 

01 

58 

60 

20 

ea 

02 

a9 

ee 

Ob 19 

23 

aO 

01 

20 

le 

ab 

a2 

00 

9b 

0b21 

20 

cf 

ff 

95 

lc 

e8 

c9 

Od 

26 

0b29 

dO 

f6 

ca 

eO 

Oe 

90 

02 

a2 

f6 

0b31 

Od 

60 

20 

95 

03 

aO 

04 

84 

77 

0b39 

9f 

b9 

2e 

01 

95 

lc 

e8 

c8 

dO 

0b4l 

cO 

07 

dO 

f5 

8a 

48 

20 

ed 

bf 

0b49 

03 

a9 

9e 

a2 

e8 

aO 

07 

20 

Od 

0b51 

d8 

ff 

24 

96 

68 

50 

da 

aa 

ce 

0b59 

a9 

5a 

95 

la 

20 

ed 

03 

a9 

a9 

0b61 

08 

85 

9f 

a9 

9e 

a2 

00 

aO 

89 

0b69 

10 

4c 

d8 

ff 

8a 

a2 

lc 

aO 

45 

0b71 

00 

20 

bd 

ff 

a9 

08 

aa 

a8 

c7 

0b79 

20 

ba 

ff 

4c 

58 

03 

a9 

fb 

bc 
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D: (Data) zeigt die Startadressen vom aktuellen Bildschirm und 

Zeichensatz in der obersten Bildschirmzeile an. 

S: (Save) Speichern von aktuellem Bildschirm und Zeichensatz. Dem 

File-Namen wird ein ».bs« für Bildschirm und ein >.zs« für 
Zeichensatz angehängt. 

T: (Transpose to Hires) Wandelt den aktuellen Bildschirm anhand 

des aktuellen Zeichensatzes in ein Hires-Bild um, welohes 
direkt zur Floppy geschickt wird. An die Filenamen wird ein 
•.pl« angehängt. 

M: Multlcolor-Darstellung eln/ausschalten. 

0: (Old) SohaltetMulticolor aus und auf den Original-Zeichensatz 

um. 

Q: (Qult) Programmende mit Reset. 

Ein Umschalten zwischen Klein/Groß- und Groß/Grafik- 
Zeichensatz ist weiterhin möglich, jedoch nur sichtbar, 
wenn vorher der Original-Zeichensatz mit <0> angewählt 
wurde. 

Wie arbeitet man nun am effektivsten mit dem Pro¬ 
gramm? 

Zuerst sollte mit Hi-Eddi oder Hardmaker geprüft wer¬ 
den, ob das jeweilige Spiel nicht doch über Hires-Bilder ver¬ 
fügt. Falls nicht, kommt »64 Screen« zum Einsatz. Verlas¬ 
sen Sie das entsprechende Spiel mit einem Reset und la¬ 
den Sie anschließend »64 Screen«. Jetzt muß zunächst 
zweimal auf die < + >-Taste gedrückt werden, um den Be¬ 
reich von 2048 bis 4096 zu prüfen. Dort vorhandene Bilder 
sollten sofort gespeichert werden, da die Zeichensätze in 
diesen Bereich hineinkopiert werden. Nun kann man mit 
<+ > und <-> den ganzen Speicher durchsuchen, wo¬ 
bei Spielebildschirme am besten anhand ihrer Struktur zu 
identifizieren sind. Hat man einen Speicherbereich gefun¬ 
den, der einem Bildschirminhalt ähnlich sieht, blättert man 
die Zeichensätze durch (eventuell vorher oder nachher 
noch auf < M > drücken). Schließlich erlauben die Cursor¬ 
tasten noch eine Feineinstellung. Die Grafik kann nun ge¬ 
speichert werden. Bei Spielen, die von oben nach unten 
scrollen, wie zum Beispiel »Commando« oder »Gyroscope« 
kann man die ganze Landschaft betrachten. Bei seitwärts 
(»Uridium«) oder in alle 4 Richtungen (»Rambo II«) scrollen- 
de Spiele ist leider höchstens die letzte Szene vor dem Re¬ 
set zu finden, da diese Spiele eine völlig andere Speicher¬ 
organisation besitzen. 

(F. Behrens/rs) 


51 Mäuse-Malerei 


Um in den Genuß der Maussteuerung bei Hi-Eddi zu kom¬ 
men, benötigen Sie eine Anpassung, die die Signale der 
Maus in Einzelschritte des Cursors umwandelt. 
Vier Möglichkeiten gibt es: die Amiga-, Atari-, oder eine Joy¬ 
stick simulierende Maus (wie die VC 1351). Da alle mit ver¬ 
schiedenen Signalen beziehungsweise Anschlüssen ar¬ 
beiten, sind auch spezifische Anpassungen notwendig. Li- 
sting 34 ist für die Atari-Maus. Listing 35 ist für die Amiga- 
Maus. Listing 36 kann für die Joystick simulierende Maus 


genommen werden. Falls die Belegung dann nicht stimmt, 
sind die zwei Zeilen aus Listing 37 in Listing 38 einzufügen 
(0881 und 0889). Sie können es natürlich auch mit Listing 
37 zuerst ausprobieren. Bedienungsanleitung: 

Um Hi-Maus zu starten, sind folgende Befehle nötig: 

1) LOAD "HI-MAUS",8 <RETURN> 

2) Diskette mit Hi-Eddi einlegen (am besten kopiert man Hi- 
Maus auf die Hi-Eddi-Diskette) 

3) RUN < RETURN> 

4) Maus anschließen (Port 2) 

Hi-Maus lädt jetzt Hi-Eddi nach, ändert und startet es. Hi- 
Eddi fragt nun wie immer nach der Betriebsart, wobei die 
beste Möglichkeit schon vorgegeben wird (193=Farb- 
Betrieb, Menü-Eingabe, nichts löschen). Es muß also nur 
noch < RETURN > gedrückt werden, um Hi-Eddi zu star¬ 
ten. Die Betriebsart »nichts löschen« muß gewählt werden, 
da sonst auch Hi-Maus gelöscht wird. Ebenso muß im Farb- 
Betrieb gearbeitet werden. Dadurch geht zwar einer der 
sieben möglichen Bildschirmspeicher, der jetzt als Farb- 
speicher zur Verfügung steht, verloren, aber nur so ist ge¬ 
nug Speicherplatz für Hi-Maus frei. Außerdem sollte mit 
Menü-Eingabe gearbeitet werden, weil die Maus die Tasta¬ 
turabfrage stört, was durch Streifen am unteren Bildschirm¬ 
rand angezeigt wird. 

Hi-Maus belegt folgende Tasten, die von der Maus nicht 
gestört werden, mit neuen Befehlen: 

—: Die Mausübersetzung wird halbiert, das heißt der 
(kreuzförmige) Cursor wird langsamer. 

+: Die Mausübersetzung wird verdoppelt, das heißt der 
Cursor wird schneller. 

9: größte Cursor-Geschwindigkeit. 

0: kleinste Cursor-Geschwindigkeit. 

*: gleiche Funktion wie Draw, da die Taste < D> durch die 
Maus gehört wird. 

=: Die <F1 >-Schrittweite wird horizontal und vertikal auf 
Eins gesetzt. 

£: Spray-Funktion. 

Dem Feuerknopf am Joystick entspricht die linke Mausta¬ 
ste, die rechte kann nicht abgefragt werden. 

Hier noch zwei POKEs für Hi-Maus: »POKE 2124,4« be¬ 
wirkt ein »Durchstarten« von Hi-Eddi, das heißt die 
Betriebsart-Eingabe 193 wird automatisch übernommen. 
Durch »POKE 2301, 169« werden am unteren Bildschirm¬ 
rand keine Streifen, die die Störung der Tastaturabfrage an- 
zeigen, erzeugt. 

Das Programm Hi-Joymaus (Listing 35) wird auf die glei¬ 
che Weise wie Hi-Maus gestartet. Es stellt keine neuen Be¬ 
fehle zur Verfügung und ist deshalb so kurz, daß es im 
Stack untergebracht werden konnte. Dadurch können alle 
Betriebsarten von Hi-Eddi genutzt werden. Sogar durch ei¬ 
nen Reset wird Hi-Joymaus nicht gelöscht. Nur mit der 
Paint-Funktion dürfen keine komplizierten Flächen ausge¬ 
füllt werden, weil dann der Stack stark beansprucht wird 
und Hi-Joymaus überschrieben werden könnte. 

(W. Stappert/rs) 


Name 

hi 

-maus 




0801 Oadd 

0859 

Od 

4c 

cf 

22 

48 

49 

2d 

45 

d3 

08cl 

53 ld 

a2 

5e 8e 

54 

ld 

a9 

6b 

0801 

Ob 

08 








0861 

44 

44 

49 

22 

2c 

38 

Od 

0d 

31 

08c9 

51 a2 

5c 

aO 01 

20 

45 

5c 

75 

c2 

07 

9e 

X 

30 

36 

4a 

0869 

Od 

Od 

Od 

31 

35 

30 

53 

d9 

3c 

08dl 

20 09 

Od 

a9 31 

a2 

ea 

aO 

03 

0809 

31 

00 

00 

00 

a2 

00 

bd 

95 

87 

0871 

32 

33 

35 

35 

32 

3a 

41 

3d 

a5 

08d9 

40 78 

8d 

14 03 

8e 

15 

03 

3a 

0811 

08 

9d 

00 

5c 

bd 

95 

09 

9d 

5b 

0879 

50 

c5 

28 

38 

30 

36 

34 

29 

95 

08el 

8c 05 

de 

58 60 

ad 

00 

de 

5f 

0819 

00 

5d 

bd 

95 

0a 

9d 

00 

5e 

34 

0881 

Od 

52 

d5 

20 

20 

20 

20 

20 

f5 

08e9 

dO 0c 

6a 

6a 6a 

6a 

08 

46 

4e 

0821 

e8 

dO 

eb 

a9 

01 

8d 

4c 

5e 

0c 

0889 

20 

20 

20 

20 

20 

20 

11 

31 

6f 

08fl 

a7 2a 

2a 

2a 28 

2a 

a8 

ae 

51 

0829 

8d 

4d 

5e 

8d 

4e 

5e 

a9 

02 

29 

0891 

39 

33 

13 

00 

a2 

04 

bd 

43 

fO 

08 f 9 

11 dO 

10 

14 29 

Of 

c9 

0f 

49 

0831 

8d 

4a 

5e 

8e 

4f 

5e 

8e 

50 

Of 

0899 

5e 

9d 

ae 

12 

ca 

10 

f7 

a2 

06 

0901 

fO Oe 

ae 

20 dO 

a9 

00 

8d 

ld 

0839 

5e 

8e 

51 

5e 

8e 

52 

5e 

a9 

47 

08al 

8e 

8e 

92 

12 

a2 

5d 

8e 

93 

d4 





0841 

93 

20 

d2 

ff 

e8 

bd 

57 

08 

83 

08a9 

12 

a2 

c4 

8e 

81 

12 

a2 

5d 

fd 

Listing 34. »Hi-Maus« für 

Hi-Eddi 


0849 

dO 

f7 

a2 

03 

86 

c6 

a9 

Od 

7d 

08bl 

8e 

82 

12 

a2 

e5 

8e 

42 

ld 

6f 

geben Sie bitte 

mit dem MSE 


0851 

9d 

76 

02 

ca 

dO 

fa 

60 

Od 

84 

08b9 

a2 

5d 

8e 

43 

ld 

a2 

36 

8e 

f3 

(Seite 

159) ein 







144 


SONDERHEFT 33 















C64, CI28 


TIPS&TRICKS 


0909 

20 

dO 

ee 

20 

dO 

8e 

20 

dO 

f5 

09b 1 

8b 

lf 

a9 

00 

8d 

8f 

lf 

a5 

53 

0a59 

18 

ad 

51 

5e 

6d 

85 

lf 

90 

09 

0911 

98 

29 

03 

dO 

21 

ad 

4b 

5e 

82 

09b9 

cb 

c9 

31 

dO 

06 

a2 

12 

86 

9a 

0a6l 

02 

a9 

ff 

38 

ed 

52 

5e 

bO 

8b 

0919 

29 

03 

fO 

la 

c9 

03 

fO 

16 

e8 

09cl 

cb 

dO 

5c 

c9 

30 

dO 

07 

a2 

30 

0a69 

02 

a9 

00 

8d 

85 

lf 

a2 

00 

cd 

0921 

ce 

4d 

5e 

dO 

11 

aa 

18 

bd 

8a 

09c9 

ff 

8e 

bl 

12 

dO 

4e 

a2 

fa 

be 

0a71 

8e 

51 

5e 

8e 

52 

5e 

4c 

5f 

19 

0929 

4e 

5e 

6d 

8b 

lf 

9d 

4e 

5e 

48 

09dl 

8e 

bl 

12 

cd 

48 

5e 

8d 

48 

b4 

0a79 

13 

20 

a2 

12 

aO 

00 

ad 

fd 

44 

0931 

ad 

4c 

5e 

8d 

4d 

5e 

98 

29 

ca 

09d9 

5e 

fO 

41 

c9 

36 

bO 

3d 

c9 

aa 

0a81 

5d 

ad 

4c 

5e 

8d 

3c 

5e 

a9 

lb 

0939 

0c 

dO 

23 

ad 

4b 

5e 

29 

Oc 

90 

09el 

20 

90 

39 

dO 

05 

a2 

01 

8e 

38 

0a89 

10 

8d 

4c 

5e 

a9 

4c 

8d 

ea 

48 

0941 

fO 

lc 

c9 

Oc 

fO 

18 

4a 

4a 

cl 

09e9 

4c 

5e 

c9 

2b 

dO 

Od 

Oe 

4c 

82 

0a91 

5d 

18 

ad 

51 

5e 

65 

5b 

c9 

a2 

0949 

ce 

4e 

5e 

dO 

11 

aa 

18 

bd 

32 

09fl 

5e 

a2 

10 

ec 

4c 

5e 

bO 

24 

05 

Oa99 

15 

90 

02 

a9 

14 

38 

ed 

52 

Ob 

0951 

50 

5e 

6d 

8f 

lf 

9d 

50 

5e 

fa 

09f9 

8e 

4c 

5e 

c9 

28 

dO 

08 

4e 

44 

Oaal 

5e 

bO 

01 

98 

85 

5b 

8c 

51 

b3 

0959 

ad 

4c 

5e 

8d 

4e 

5e 

8c 

4b 

16 

OaOl 

4c 

5e 

dO 

18 

ee 

4c 

5e 

c9 

12 

0aa9 

5e 

8c 

52 

5e 

18 

ad 

4f 

5e 

97 

0961 

5e 

ce 

49 

5e 

dO 

5b 

a9 

40 

53 

0a09 

23 

dO 

05 

a2 

10 

8e 

4c 

5e 

8d 

Oabl 

65 

5c 

c9 

18 

90 

02 

a9 

17 

a8 

0969 

8d 

49 

5e 

ad 

89 

lf 

29 

40 

9f 

Oall 

c9 

35 

dO 

08 

a2 

01 

8e 

8b 

2d 

0ab9 

38 

ed 

50 

5e 

bO 

01 

98 

85 

48 

0971 

fO 

45 

ad 

96 

lf 

cd 

4a 

5e 

88 

0al9 

lf 

8e 

8f 

lf 

4c 

31 

ea 

4c 

da 

Oacl 

5c 

8c 

4f 

5e 

8c 

50 

5e 

4c 

60 

0979 

fO 

3d 

ac 

4a 

5e 

8d 

4a 

5e 

b4 

0a21 

7e 

ea 

18 

ad 

4f 

5e 

6d 

86 

7b 

0ac9 

5b 

le 

a9 

ad 

8d 

ea 

5d 

a9 

4c 

0981 

c9 

01 

dO 

20 

ad 

4c 

5e 

8d 

d5 

0a29 

lf 

90 

Of 

ee 

87 

lf 

a2 

01 

30 

Oadl 

00 

8d 

4c 

5e 

4c 

74 

lc 

09 

62 

0989 

15 

5d 

ad 

8b 

lf 

8d 

la 

5d 

ab 

Oa31 

ec 

87 

lf 

fO 

05 

8e 

87 

lf 

e8 

0ad9 

Of 

29 

fa 

ea 

c9 

16 

bO 

01 

ab 

0991 

ad 

8f 

lf 

8d 

lf 

5d 

a2 

01 

e9 

Oa39 

a9 

fO 

38 

ed 

50 

5e 

bO 

Oa 

f5 











0999 

8e 

4c 

5e 

e8 

8e 

8b 

lf 

8e 

el 

0a4l 

ce 

87 

lf 

10 

05 

a9 

00 

8d 

55 











09a 1 

8f 

lf 

dO 

13 

cO 

01 

dO 

Of 

cc 

0a49 

87 

lf 

8d 

86 

lf 

a2 

00 

8e 

b8 











09a9 

a9 

00 

8d 

4c 

5e 

a9 

00 

8d 

8e 

0a51 

4f 

5e 

8e 

50 

5e 

4c 

f8 

12 

cd 

Listing 34 

(Schluß) 






Name 

: hi 

-maus.amiga 


0801 Oadd 

08f9 

11 

dO 

10 

14 

29 

Of 

c9 

Of 

49 

OaOl 

4c 

5e 

dO 

18 

ee 

4c 

5e 

c9 

12 











0901 

fO 

Oe 

ae 

20 

dO 

a9 

00 

8d 

ld 

0a09 

23 

dO 

05 

a2 

10 

8e 

4c 

5e 

8d 

0801 

: Ob 

08 

c2 

07 

9e 

32 

30 

36 

4a 

0909 

20 

dO 

ee 

20 

dO 

8e 

20 

dO 

f5 

Oall 

c9 

35 

dO 

08 

a2 

01 

8e 

8b 

2d 

0809 

: 31 

00 

00 

00 

a2 

00 

bd 

95 

87 

0911 

98 

29 

03 

dO 

21 

ad 

4b 

5e 

82 

0al9 

lf 

8e 

8f 

lf 

4c 

31 

ea 

4c 

da 

0811 

: 08 

9d 

00 

5c 

bd 

95 

09 

9d 

5b 

0919 

29 

03 

fO 

la 

c9 

03 

fO 

16 

e8 

0a21 

7e 

ea 

18 

ad 

4f 

5e 

6d 

86 

7b 

0819 

: 00 

5d 

bd 

95 

Oa 

9d 

00 

5e 

34 

0921 

ce 

4d 

5e 

dO 

11 

aa 

18 

bd 

8a 

0a29 

lf 

90 

Of 

ee 

87 

lf 

a2 

01 

30 

0821 

: e8 

dO 

eb 

a9 

01 

8d 

4c 

5e 

Oc 

0929 

4e 

5e 

6d 

8b 

lf 

9d 

4e 

5e 

48 

Oa31 

ec 

87 

lf 

fO 

05 

8e 

87 

lf 

e8 

0829 

: 8d 

4d 

5e 

8d 

4e 

5e 

a9 

02 

29 

0931 

ad 

4c 

5e 

8d 

4d 

5e 

98 

29 

ca 

0a39 

a9 

fO 

38 

ed 

50 

5e 

bO 

Oa 

f5 

0831 

: 8d 

4a 

5e 

8e 

4f 

5e 

8e 

50 

Of 

0939 

Oc 

dO 

23 

ad 

4b 

5e 

29 

Oc 

90 

0a4l 

ce 

87 

lf 

10 

05 

a9 

00 

8d 

55 

0839 

: 5e 

8e 

51 

5e 

8e 

52 

5e 

a9 

47 

0941 

fO 

lc 

c9 

Oc 

fO 

18 

4a 

4a 

cl 

Oa49 

87 

lf 

8d 

86 

lf 

a2 

00 

8e 

b8 

0841 

: 93 

20 

d2 

ff 

e8 

bd 

57 

08 

83 

0949 

ce 

4e 

5e 

dO 

11 

aa 

18 

bd 

32 

Oa51 

4f 

5e 

8e 

50 

5e 

4c 

f8 

12 

cd 

0849 

: dO 

f7 

a2 

03 

86 

c6 

a9 

Od 

7d 

0951 

50 

5e 

6d 

8f 

lf 

9d 

50 

5e 

fa 

Oa59 

18 

ad 

51 

5e 

6d 

85 

lf 

90 

09 

0851 

: 9d 

76 

02 

ca 

dO 

fa 

60 

Od 

84 

0959 

ad 

4c 

5e 

8d 

4e 

5e 

8c 

4b 

16 

0a6l 

02 

a9 

ff 

38 

ed 

52 

5e 

bO 

8b 

0859 

: Od 

4c 

cf 

22 

48 

49 

2d 

45 

d3 

0961 

5e 

ce 

49 

5e 

dO 

5b 

a9 

40 

53 

0a69 

02 

a9 

00 

8d 

85 

lf 

a2 

00 

cd 

0861 

: 44 

44 

49 

22 

2c 

38 

Od 

Od 

31 

0969 

Bd 49'5c-ad 89 lf "9 

40 

9f 

0a71 

8e 

51 

5e 

8e 

52 

5e 

4c 

5f 

19 

0869 

: Od 

Od 

Od 

31 

35 

30 

53 

d9 

3c 

0971 

fO 

45 

ad 

96 

lf 

cd 

4a 

5e 

88 

0a79 

13 

20 

a2 

12 

aO 

00 

ad 

fd 

44 

0871 

: 32 

33 

35 

35 

32 

3a 

4l 

3d 

a5 

0979 

fO 

3d 

ac 

4a 

5e 

8d 

4a 

5e 

b4 

Oa81 

5d 

ad 

4c 

5e 

8d 

3c 

5e 

a9 

lb 

0879 

: 50 

c5 

28 

38 

30 

36 

34 

29 

95 

0981 

c9 

01 

dO 

20 

ad 

4c 

5e 

8d 

d5 

0a89 

10 

8d 

4c 

5e 

a9 

4c 

8d 

ea 

48 

0881 

: Od 

52 

d5 

20 

20 

20 

20 

20 

f5 

0989 

15 

5d 

ad 

8b 

lf 

8d 

la 

5d 

ab 

0a91 

5d 

18 

ad 

51 

5e 

65 

5b 

c9 

a2 

0889 

: 20 

20 

20 

20 

20 

20 

11 

31 

6f 

0991 

ad 

8f 

if 

8d 

lf 

5d 

a2 

01 

e9 

0a99 

15 

90 

02 

a9 

14 

38 

ed 

52 

Ob 

0891 

: 39 

33 

13 

00 

a2 

04 

bd 

43 

fO 

0999 

8e 

4c 

5e 

e8 

8e 

8b 

lf 

8e 

el 

Oaal 

5e 

bO 

01 

98 

85 

5b 

8c 

51 

b3 

0899 

: 5e 

9d 

ae 

12 

ca 

10 

f7 

a2 

06 

09al 

8f 

lf 

dO 

13 

cO 

01 

dO 

Of 

CC 

0aa9 

5e 

8c 

52 

5e 

18 

ad 

4f 

5e 

97 

08al 

: 8e 

8e 

92 

12 

a2 

5d 

8e 

93 

d4 

09a9 

a9 

00 

8d 

4c 

5e 

a9 

00 

8d 

8e 

Oabl 

65 

5c 

c9 

18 

90 

02 

a9 

17 

a8 

08a9 

: 12 

a2 

c4 

8e 

81 

12 

a2 

5d 

fd 

09b 1 

8b 

lf 

a9 

00 

8d 

8f 

lf 

a5 

53 

0ab9 

38 

ed 

50 

5e 

bO 

01 

98 

85 

48 

08bl 

: 8e 

82 

12 

a2 

e5 

8e 

42 

ld 

6f 

09b9 

cb 

c9 

31 

dO 

06 

a2 

12 

86 

9a 

Oacl 

5c 

8c 

4f 

5e 

8c 

50 

5e 

4c 

60 

08b9 

: a2 

5d 

8e 

43 

ld 

a2 

36 

8e 

f3 

09cl 

cb 

dO 

5c 

c9 

30 

dO 

07 

a2 

30 

0ac9 

5b 

le 

a9 

ad 

8d 

ea 

5d 

a9 

4c 

08cl 

: 53 

ld 

a2 

5e 

8e 

54 

ld 

a9 

6b 

09c9 

ff 

8e 

bl 

12 

dO 

4e 

a2 

fa 

be 

Oadl 

00 

8d 

4c 

5e 

4 c 

74 

lc 

09 

62 

08c9 

: 51 

a2 

5c 

aO 

01 

20 

45 

5c 

75 

09dl 

8e 

bl 

12 

cd 

48 

5e 

8d 

48 

b4 

0ad9 

Of 

29 

fa 

ea 

c9 

16 

bO 

01 

ab 

08dl 

: 20 

09 

Od 

a9 

31 

a2 

ca 

aO 

03 

09d9 

5e 

fO 

41 

c9 

36 

bO 

3d 

c9 

aa 











08d9 

: 40 

78 

8d 

14 

03 

8e 

15 

03 

3a 

09el 

20 

90 

39 

dO 

05 

a2 

01 

8e 

38 











08el 

: 8c 

05 

de 

58 

60 

ad 

00 

de 

5f 

09e9 

4c 

5e 

c9 

2b 

dO 

Od 

Oe 

4c 

82 











08e9 

: 85 

a7 

6a 

6a 

6a 

6a 

08 

46 

dO 

09fl 

5e 

a2 

10 

ec 

4c 

5e 

bO 

24 

05 

Listing 35 

»Hi-Maus« für die Amiga- 

08fl 

: a7 

2a 

2a 

2a 

28 

2a 

a8 

ae 

51 

09f9 

8e 

4c 

5e 

c9 

28 

dO 

08 

4e 

44 

Maus 











Name 

hi-joymaus.amiga 

0801 08fl 

0801 

Ob 

08 

c2 

07 

9e 

32 

30 

36 

4a 

0809 

31 

00 

00 

00 

a2 

95 

bd 

5b 

bf 

0811 

08 

9d 

Of 

01 

ca 

dO 

f7 

a9 

32 

0819 

93 

20 

d2 

ff 

e8 

bd 

2f 

08 

ba 

0821 

dO 

f7 

a2 

03 

86 

c6 

a9 

Od 

55 

0829 

9d 

76 

02 

ca 

dO 

fa 

60 

Od 

5c 

0831 

Od 

4c 

cf 

22 

48 

49 

2d 

45 

ab 

0839 

44 

44 

49 

22 

2c 

38 

Od 

Od 

09 

0841 

Od 

Od 

Od 

31 

35 

30 

53 

d9 

14 

0849 

32 

37 

32 

3a 

41 

3d 

50 

c5 

b6 

0851 

28 

38 

30 

36 

34 

29 

Od 

52 

ce 

0859 

d5 

13 

00 

a2 

07 

bd 

9d 

01 

e3 

0861 

9d 

ab 

12 

ca 

10 

f7 

a9 

39 

'8c 

Listing 37 

Änderungen zu Listing 3 


Name 

hi- 

-J oymaus 



0801 08fl 

0879 

78 

8d 

14 

03 

8e 

15 

03 

8c 

d4 









36 

4a 

0881 

05 

de 

58 

60 

ad 

00 

de 

dO 

06 

0801 

Ob 

08 

c2 

07 

9e 

32 

30 

0889 

Oc 

6a 

6a 

6a 

6a 

08 

46 

aa 

08 

0809 

31 

00 

00 

00 

a2 

95 

bd 

5b 

bf 

0891 

2a 

2a 

2a 

28 

2a 

a8 

29 

03 

f3 

0811 

08 

9d 

Of 

01 

ca 

dO 

f7 

a9 

32 

0899 

dO 

16 

a5 

a9 

29 

03 

fO 

10 

al 

0819 

93 

20 

d2 

ff 

e8 

bd 

2f 

08 

ba 

08al 

c9 

03 

fO 

Oc 

Oa 

Oa 

85 

aa 

06 

0821 

dO 

f7 

a2 

03 

86 

c6 

a9 

Od 

55 

08a9 

a5 

a8 

29 

03 

05 

aa 

85 

a8 

5a 

0829 

9d 

76 

02 

ca 

dO 

fa 

60 

Od 

5c 

08b 1 

98 

29 

Oc 

dO 

16 

a5 

a9 

29 

82 

0831 

Od 

4c 

cf 

22 

48 

49 

2d 

45 

ab 

08b9 

Oc 

fO 

10 

c9 

Oc 

fO 

Oc 

4a 

88 

0839 

44 

44 

49 

22 

2c 

38 

Od 

Od 

09 

08cl 

4a 

85 

aa 

a5 

a8 

29 

Oc 

05 

3b 

0841 

Od 

Od 

Od 

31 

35 

30 

53 

d9 

14 

08c9 

aa 

85 

a8 

98 

85 

a9 

29 

10 

dd 

0849 

32 

37 

32 

3a 

4l 

3d 

50 

c5 

b6 

08dl 

85 

aa 

a5 

a8 

29 

Of 

05 

aa 

9e 

0851 

28 

38 

30 

36 

34 

29 

Od 

52 

ce 

08d9 

85 

a8 

c6 

a7 

dO 

07 

a9 

40 

c5 

0859 

d5 

13 

00 

a2 

07 

bd 

9d 

01 

e3 

08el 

85 

a7 

4c 

31 

ea 

4c 

7e 

ea 

54 

0861 

9d 

ab 

12 

ca 

10 

f7 

a9 

39 

8c 

08e9 

a5 

a8 

a8 

09 

Of 

85 

a8 

98 

lf 

0869 

0871 

a2 

09 

01 

Od 

aO 

a9 

01 

31 

20 

a2 

2d 

ea 

01 

aO 

20 

40 

84 

16 

Listing 36. Für Mäuse, 
Joystick simulieren 

die 

einen 
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TIPS&TRICKS 


C64, CI28 


0869 

a2 

01 

aO 

01 

20 

2d 

01 

20 

84 

08al 

c9 

03 

fO 

Oc 

Oa 

Oa 

85 

aa 

06 

08d9 

85 

a8 c6 a7 

dO 

07 

a9 40 

c5 

0871 

09 

Od 

a9 

31 

a2 

ea 

aO 

40 

16 

08a9 

a5 

a8 

29 

03 

05 

aa 

85 

a8 

5a 

08el 

85 

a7 4c 31 

ea 

4c 

7e ea 

54 

0879 

78 

8d 

14 

03 

8e 

15 

03 

8c 

d4 

08bl 

98 

29 

Oc 

dO 

16 

a5 

a9 

29 

82 

08e9 

a5 

a8 a8 09 

Of 

85 

a8 98 

lf 

0881 

05 

de 

58 

60 

ad 

00 

de 

85 

70 

08b9 

Oc 

fO 

10 

c9 

Oc 

fO 

Oc 

4a 

88 





0889 

aa 

6a 

6a 

6a 

6a 

08 

46 

aa 

a6 

08cl 

4a 

85 

aa 

a5 

a8 

29 

Oc 

05 

3b 








0891 

2a 

2a 

2a 

28 

2a 

a8 

29 

03 

f3 

08c9 

aa 

85 

a8 

98 

85 

a9 

29 

10 

dd 

Listing 37. 

»Hi-Joymaus-Amiga 


0899 

dO 

16 

a5 

a9 

29 

03 

fO 

10 

al 

08dl 

85 

aa 

a5 

a8 

29 

Of 

05 

aa 

9e 

(Schluß) 







Name 

char 

copy . 

cbj 


033c 0383 


033c 

ad 

Oe 

de 

29 

fe 

8d 

Oe 

de 

9b 


0344 

a5 

01 

29 

fb 

85 

01 

a2 

00 

lf 


034c 

aO 

dO 

86 

5f 

84 

60 

a2 

f7 

a8 


0354 

aO 

df 

86 

5a 

84 

5b 

a2 

f7 

6e 


035c 

aO 

ef 

86 

58 

84 

59 

20 

bf 

b4 


0364 

a3 

a5 

01 

09 

04 

85 

01 

ad 

07 

Listing 38. 

036c 

Oe 

de 

09 

01 

8d 

Oe 

de 

a9 

5b 

Kopierroutine 

0374 

cc 

8d 

88 

02 

a9 

38 

8d 

18 

2c 

für das 

037c 

dO 

a9 

00 

8d 

00 

dd 

60 

00 

43 

Zeichensatz-ROM 


100 

101 

102 

103 

104 

105 

106 
107 

109 

110 
111 
112 

113 

114 

115 

116 
120 
130 
140 
150 
160 
170 
1B0 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 

290 

291 

292 

293 

294 

295 

296 
300 
310 
320 
330 
340 
350 
360 
370 
Listing 


zeichensatz kopieren 


i 

--- 

aufruf : sys 82B 


verschiebt zeichensatz nach 
$e000-$f000 (57334-61440) 


-.ba B28 


lda 56334 
and #254 
sta 56334 
lda 1 
and #251 
sta 1 

ldx #<(53248) 
ldy #>(53248) 
stx $5f 
sty $60 

ldx #<(57335) 
ldy #>(57335) 
stx $5a 
sty $5b 

ldx #<(61431) 
ldy #>(61431) 
stx $58 
sty $59 

jsr $a3bf 

lda 1 
ora #4 
sta 1 
lda 56334 
ora #1 
sta 56334 

lda #204 
sta 648 
lda #56 
sta 53272 
lda #0 
sta 56576 

rts 


!■ 

; irq 

; ab- 
;schal- 
; ten 


;block- 
; an— 
-■fang 


;altes 
;block- 
;ende +1 


;neues 
;block¬ 
ende + 1 


;copy 

5 irq 
; ein 


39. Dokumentierter Quelltext zu Listing 1 


; zei- 
;chen- 
; satz 
; ein— 

;schal- 
; ten 

;basic 


52 Mehr als 16 Farben 


Eigentlich dürften auf dem C 64 nur 16 Farben möglich 
sein. Berücksichtigt man jedoch, daß bei bestimmten Far¬ 
ben zwei direkt untereinanderliegende Punkte vom Monitor 
nicht sauber getrennt werden können, erweitert sich die 
Farbpalette um einige Zwischenstufen. Am besten wirkt die 
Vermischung bei Farben gleicher oder ähnlicher Graustu¬ 
fen. Waagerechte Linien sind senkrechten vorzuziehen, da 
in einem Feld senkrechter Linien noch die Auflösung des 
Monitors mitspielt und Farbflecken erzeugt. Also zuerst ei¬ 
ne gelbe Linie, dann eine hellgrüne, wieder eine gelbe und 
so weiter. Das Ergebnis ist eine leuchtend grüne Fläche. 

(B. Ballings/rs) 

53 Der eigene Zeichensatz 


Bei vielen Programmen wird ein veränderter Zeichensatz 
benutzt. Will man nun selber einen eigenen Zeichensatz 
erstellen, müssen vorher die Originalzeichen vom ROM in 
das RAM kopiert werden, da sie nur dort verändert werden 
können. In Basic dauert dies eine Minute. Diese »Lösung« 
ist zu langsam. Das abgedruckte Maschinenprogramm in 
Listing 3« - ledigt diese Aufgabe in nur einem Bruchteil ei¬ 
ner Sekunde. Aufgerufen wird diese Routine mit SYS 828. 
Den dokumentierten Quelltext sehen Sie in Listing 39. 

Der kopierte Zeichensatz liegt nun im Speicherbereich 
von $E000 bis $F000 (57334 bis 61440). Dort kann er belie¬ 
big verändert werden. 

Achtung: Nach Drücken der Tastenkombination 
< RUN/STOP RESTORE> verschwindet der Cursor; auf 
dem Bildschirm erscheinen diffuse Zeichen. Trotzdem ist 
der Computer nicht abgestürzt. Geben Sie »blind« SYS 883 
ein. Das Bild erscheint wieder. Auch der kopierte Zeichen¬ 
satz ist selbstverständlich noch vorhanden. Programme, 
die in den regulären Bildschirmspeicher POKEn, laufen 
nicht mehr, da dieser verlegt wird. (Jörg Piller/rs) 


KALEIDOSKOP 


REM 
REM 
REM 

PRINT"<CLR>";CHRS(142)i =Z=160 
POKE 53280,0:POKE 53281,0 
10 C=INT(RND(0)*15) 

20 X=INT(RND(0)#40> 

30 Y=INT(RND(0)*25) 

40 : 

50 E1=1024:E2=1063:E3=l984:E4=2023 
60 Fl=55296=F2=55335:F3=56256:F4=56295 

80 POKE El+X+40*Y,Z 
85 POKE F1+X+40*Y,C 
90 POKE E2-X+40*Y,Z 
95 POKE F2-X+40*Y,C 
100 POKE E3+X-40*Y,Z 
105 POKE F3+X-40*Y,C 
110 POKE E4-X-40*Y,Z 
115 POKE F4.-X-40*Y,C 
130 IF PEEK(203)=60 THEN PRINT"CCLR}"; 

140 GOTO 10 
© 64’er 

Listing 40. Einfacher geht's nicht: Kaleidoskop in Basic 


<179> 
<253> 
<065> 
<1B2> 
<134> 
<067> 
<105> 
<183> 
<016> 
<067> 
<247> 
<046> 
< 200 > 
<242> 
< 002 > 
<044> 
<124> 
<166> 
< 182> 
<224> 
<176> 
<062> 
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C64, C 128 


TIPS&TRICKS 


54 Kaleidoskop 


Dieses Programm (Listing 40) erzeugt per Zufallsgenerator 
einige kleine kaleidoskopartige Muster auf dem Bild¬ 
schirm. Mit der SPACE-Taste wird das Muster gelöscht und 
von neuem aufgebaut. (Jörg Piller/tr) 

55 Dos Geheimnis von $3FFF 


Die Speicherzelle $3FFF ist trotz ihrer Funktion wenig be¬ 
kannt. Schaltet man mittels eines Raster-Interrupts den 
unteren Rand ab, so muß in ihr der Wert Null stehen, damit 
im Bereich des ehemaligen Randes keine schwarzen Strei¬ 
fen stören. 

Denn das Bitmuster dieser Adresse wird nämlich 40mal 
pro Rasterzeile auf den Bildschirm geschrieben. Ändert 
man dieses Bitmuster in jeder Rasterzeile, so kann man in¬ 
teressante Muster auf dem Rand erzeugen. Und dies ohne 
Sprites! Listing 41 demonstriert diesen hochinteressanten 
Effekt. 

Funktion des Maschinenprogramms: 

Zuerst werden alle Vorbereitungen zur Benutzung von 
Raster-Interrupts getroffen. Mit ihnen wird der obere und 
untere Bildschirmrand ausgeschaltet. Wie dies geschieht 
wurde zum Beispiel im 64’er, 5/87, Seite 47 beschrieben. 


Erreicht der Rasterstrahl den unteren Rand, so gelangt 
das Programm in eine Schleife, die so lange andauert, bis 
der Strahl wieder den beschreibbaren Teil des Bildschirms 
erreicht. Während dieser Schleife werden Daten in die 
Speicherzellen $3FFF und $D021 geschrieben. Dieser 
Schreibvorgang wird von einer Verzögerungsschleife so 
gesteuert, daß er jeweils bei Erreichen einer neuen Raster¬ 
zeile stattfindet. Mit $D021 werden die Hintergrundfarben 
geändert, mit $3FFF das Bildmuster. Denn diese Speicher¬ 
stelle ist für das Aussehen des Randes verantwortlich: Ihre 
Bits werden in jeder Rasterzeile 40mal nebeneinander dar¬ 
gestellt. In einer solchen Zeile läßt sich dieser Wert aus Zeit¬ 
gründen nicht ändern. Aber jede Zeile kann von einem neu¬ 
en Wert bestimmt sein, so daß interessante Muster erzielt 
werden können. Auf dem Rand lassen sich also Zeichen 
darstellen, wobei jedes Zeichen 40mal in einer Zeile steht. 

Ein weiterer Teil des Programms bewegt die Datenfelder, 
so daß die Randinformation gescrollt wird. 

Das gesamte Programm »hängt« im Interrupt der C 64, so 
daß bei Verlassen des Basic-Programms durch Drücken 
der STOP-Taste der Rand weiterhin verändert wird. 
Übrigens: Die beschriebene Funktion bezieht sich nicht 
nur auf die Adresse $3FFF, sondern generell immer auf die 
letzte Adresse des 16K-Blocks, den der VIC gerade anspre¬ 
chen kann. Also $3FFF, $7FFF, $BFFF oder $FFF. 

(Steffen Goebbels/Andrö Moll/ 
Christoph Haubrich/rs) 


10 POKE 53280,0:POKE 53281,0 : PRINT"<CLR,3D 
OWN,WHITE,4SPACE5RANDDEM0 VON S.GOEBBEL 
S (C) 1987" <234> 

15 PRINT TAB(13)"CDOWN,GREY 13BITTE WARTEN 

...CDOWN}" <196> 

20 FOR 1=0 TO 209:READ Q:POKE 36864+1,Q:NE 

30 FOR 1=0 TO 3:REM ZEICHEN DEFINIEREN <128> 


40 FOR A=0 TO 7 <045> 

50 POKE 37120+A+I*8,2tA <171> 

51 POKE 37144+A+I*8,2t(7-A> : <253> 

60 NEXT A,I <059> 

70 FOR 1=0 TO 48 STEP 8:REM FARBEN SETZEN <130> 
80 POKE 37168+1,1:POKE 37169+1,3:POKE 3717 

0+1,5:POKE 37171+1,13 <186> 

85 POKE 37172+1,13:POKE 37173+1,5=POKE 371 

74+1,3:POKE 37175+1,1 <006> 

90 NEXT <:100> 

100 SYS 36864:REM MASCINENPROGRAMM : <201> 

32000 DATA 120,169,31,141,20,3,169,144,141 
,21,3,173,17,208,41,127,141,17.208,1 

69 <243> 

32001 DATA 186,141,18,208,169,129,141,26,2 

08,88,96,173,25,208,141.25,208,48,7 <063> 


32002 DATA 173,13,220,88,76,49,234,173,254 

,144,201,6,240,18,169,6,141,254,144 <171> 

32003 DATA 169,1,141,18,208,169,19,141,17, 
208,76,107,144,169,0,141,254,144,169 <214> 

32004 DATA 248,141,18,208,169.27,141,17,20 
8,76,157,144,120,169,49,141,20,3,169 <243> 

32005 DATA 234,141,21,3,169,240,141,26,208 
,88,96,173,0,145,141,255,63,160,0,23 

4 < 117 > 

32006 DATA 234,234,162,0,232,224,8.208,251 
,185,1,145,141.255,63.185,48,145,141 <108> 

32007 DATA 33,208,162,0,232,224,18,208,251 
,200,192,47,208,232,169,0,141,33,208 <207> 

32008 DATA 76,188,254,173,0,145,141,255,14 

5,162,0,189,1,145,157,0,145,232,224 <165> 

32009 DATA 47,208,245,173,255.145,141,47,1 
45,173,95,145,141,255,145,162,63,189 <072> 

32010 DATA 47,145,157,48,145,202,224,255,2 
08,245,173,255,145,141,48,145,76,188 <197> 


32011 DATA 254 <125> 

33000 PRINT"C6DOWN,CYAN>DIF,SES PROGRAMM KO 

MMT OHNE (!) SPRITES" <169> 

33010 PRINT"AUS. DIE ZEICHEN AUF DEN RAEND 

ERN WER-" <236> 

33020 PRINT"DEN DURCH AENDERUNG DES WERTES 

IN $3FFF" <244> 

33030 PRINT"ERZEUGT." <029> 


33035 PRINT"CDOWN3SIE FINDEN DAS MASCHINEN 

PRG. AB $9000" <179> 

33040 PRINT TAB(13>”CWHITE.DOWN}<TASTENDRU 
CK>“:POKE 198,0:HAIT 198,1:POKE 198, 

0 <070> 

33050 SYS 36953 : POKE 53281,0:GOSUB 35000 <242> 

332«« FOR 1=0 TO 7:READ Q:POKE 37120+1,Q=P 
OKE 37144+1,Q:POKE 37128+1,Q:POKE 37 
136+1,Q <128> 

33070 POKE 37152+1,«:POKE 37160+1,Q:NEXT <087> 

33080 DATA 129,195,231.255,255.231,195,129 <107> 

33090 FOR 1=0 TO 47=POKE 37168+1,11:NEXT <092> 

34100 SYS 36864 = POKE 198,0:WAIT 198,1--POKE 

198,0:SYS 36953 <231> 

34110 FOR 1=0 TO 48 STEP 8 <120> 

34120 POKE 37168+1,14:POKE 37169+1,11:POKE 

37170+1,12=POKE 37171+1,15 <217> 

34130 POKE 37172 + 1,15--POKE 37173+1,12=POKE 

37174+1.ll:POKE 37175+1.14 <022> 

34140 NEXT:SYS 36864 <216> 

34150 POKE 198,0:WAIT 198,1:POKE 198,0:SYS 

36953-RESTORE:GOTO 10 <070> 

35000 PRINT"CCLR,WHITE}AUFBAU DES MASCHINE 

NPROGRAMMS:" <253> 

35010 PRINT"C2DOWN,CYAN5DER ERSTE RASTERIN 

TERRUPT BEI $0F8 SORGT" <060> 

35020 PRINT"CUP,WHITE3FUER DAS AUSSCHALTEN 

DES RANDES, INDEM" <064> 

35030 PRINT"CCYANDAUF 24 ZEILEN UMGESCHALT 

ET WIRD. HIER" <179> 

35040 PRINT“(WHITE3BEGINNT DANN EINE SCHLE 

IFE, DIE DIE VER-" <216> 

35050 PRINT”CCYAN,UP3SCHIEDENEN WERTE IN D 

AS REGISTER $3FFF" <139> 

35060 PRINT"(WHITE3SCHREIBT. ZWISCHEN DIES 

EN AENDERUNGEN" <235> 

35070 PRINT 1 'CCYAN} WIRD EINE WARTESCHLEIFE 

DURCHLAUFEN,DIE” <108> 

35080 PRINT"CWHITE3DANN BEENDET IST, WENN 

DER ELEKTRONEN-" <094> 

35090 PRINT"CCYAN3STRAHL EINE NEUE ZEILE E 

RREICHT. " <076> 

35160 PRINT"CWHITE,2DOWN3DAS MASCHINENPROG 

RAMM WIRD MIT SYS36864" <159> 

35170 PRINT“CCYAN3GESTARTET UND MIT SYS369 

53 BEENDET.":RETURN <073> 


© 64'er 

Listing 41. »rand« 

demonstriert die Verwendung von $3FFF 
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Name : 

monsave 

B28 



033c 0399 

033c : 

78 

a9 

49 

8d 

14 

03 

a9 

03 

93 

0344 : 

8d 

15 

03 

58 

60 

a5 

fd 

c9 

e6 

034c : 

80 

fO 

15 

a5 

cb 

c9 

40 

dO 

ec 

0354 : 

18 

e6 

fb 

dO 

lc 

c6 

fc 

dO 

86 

035c : 

18 

20 

78 

03 

a9 

80 

85 

fd 

b3 

0364 : 

a5 

cb 

c9 

40 

fO 

Ob 

20 

8b 

68 

036c : 

03 

a5 

02 

85 

fc 

a9 

00 

85 

9b 

0374 : 

fd 

4c 

31 

ea 

ad 

11 

dO 

29 

3a 

037c : 

ef 

8d 

11 

dO 

ad 

20 

dO 

85 

ba 

0384 : 

fa 

a9 

00 

8d 

20 

dO 

60 

a5 

5a 

038c : 

fa 

8d 

20 

dO 

ad 

11 

dO 

09 

28 

0394 : 

10 

8d 

11 

dO 

60 

00 

00 

00 

cf 

Listing 

42 

»MONSAVE 

( 





56 Schonen Sie Ihren Monitor 


ln der Ausgabe 12/87 brachten wir eine kurze Maschinen¬ 
routine für den C 16 und Plus/4, die nach einer gewissen 
Zeit den Bildschirm abschaltet. Wir bekamen damals viele 
Zuschriften von Lesern, die diese Routine auch gerne für 
Ihren C 64 hätten. Hier ist die Umsetzung. 

Das Programm »Monsave 828« (Listing 42) belegt den 
Kassettenpuffer des C 64. Nach dem Laden der Routine mit 
dem Zusatz»,8,1« muß in die Adresse 2 mittels POKE die ge¬ 
wünschte Verzögerungszeit geschrieben werden. Wenn 
Sie jetzt eine Zeitlang keine Taste drücken, schaltet sich der 
Bildschirm ab. Das Wieder-Einschalten geschieht automa¬ 
tisch nach dem Drücken einer beliebigen Taste. 

Nach dem Start mit SYS 828 hängt sich ein Teil der Routi¬ 
ne in den Interrupt. Dieser Teil überprüft ständig, ob eine Ta¬ 
ste gedrückt wurde. Ist die in Adresse 2 eingestellte Zeit ab¬ 
gelaufen, werden die aktuellen Bildschirmfarben zwi¬ 
schengespeichert und über eine Adresse im VIC das Bild 
abgeschaltet. Auf Tastendruck schreibt die Routine dann 
die ursprünglichen Farben in die entsprechenden Register 
und das Bild erscheint wieder. (Matthias Ullmann/rs) 

57 80 Zeichen pro Zeile 


Bei näherem Studium des Betriebssystems des C 64 ist mir 
eine Routine aufgefallen, die es tatsächlich ermöglicht, auf 


dem Textbildschirm 80 Zeichen pro Zeile darzustellen. Wie 
sie anhand von Listing 43 feststellen können, sind dazu ei¬ 
nige Manipulationen in der Zeropage notwendig. Da aber 
ja alles in Basic erfolgt, kann auch der Programmierer die¬ 
sen neuentdeckten Modus des C 64 nutzen, der noch keine 
Kenntnisse in Assembler-Programmierung erworben hat. 
Wichtig ist nur, daß die Zeilennumerierung in diesem Li¬ 
sting genau eingehalten wird. Wenn Sie diese Routine in Ih¬ 
ren eigenen Programmen verwenden wollen, muß dieses 
an Listing 43 anschließen. (Klaus Hilgers/rs) 


58 Der Sprite-Dreher 


Bei dem Maschinenprogramm »Drehe Sprites« (Listing 44) 
für den C 64 handelt es sich um ein Utility, das es gestattet, 
ein an beliebiger Stelle im Speicher liegendes Sprite um ei¬ 
nen beliebigen Winkel entgegen dem Uhrzeigersinn zu 
drehen und dann an einer ebenfalls beliebigen Stelle im 
Speicher wieder abzulegen. Die Erstellung von Animatio¬ 
nen, zum Beispiel für Spiele, die sich drehende Sprites ver¬ 
wenden, wird durch dieses Hilfsprogramm stark verein¬ 
facht, da außer der Erstellung des Quelle-Sprites und klei¬ 
nen Schönheitskorrekturen bei den Sprite-Sequenzen kei¬ 
nerlei Arbeit mehr geleistet werden muß. Das Maschinen¬ 
programm dreht ein Sprite um einen beliebigen Winkel. Der 
Mittelpunkt der Drehung liegt (bei einem in der linken obe- 


10 A$="":GOSUB 80:A1=A:POKE Al,5:POKE 785, 

181:POKE 786,170 

<210> 

20 B=15.0111411/5*10119 = GOSUB 80 

30 POKE Al + l.PEEKO) :POKE Al+2 , PEEK< 4) : A$ = 

<173> 

A$+CHR*<33> 

<109> 

40 SYS! ”'14) A$ , 

50 POKE 40,76:POKE 41,163=POKE 42,168:SYS 

<055> 

40 

<148> 

60 GOTO 200 

<252> 

70 : 

<046> 

80 POKE 3,PEEK(71):POKE 4,PEEK(72) 

<248> 

90 A=PEEK(3)+PEEK(4)*256 

<120> 

100 RETURN 

<158> 

200 PRINT"CCLR5"; 

<138> 

210 PRINT"80 SEICHEN - UODUS DES £64" 

<133> 

© 64'er 

Listing 43. 80 Zeichen pro Zelle auf dem Textbildschirm 


Name 

drehe 

sprltes 


cOOO c208 

cObO 

8d 

42 

03 

8a 

38 

e9 

08 

ee 

41 

cl70 

45 

03 

a9 

c2 

8d 

41 

03 

ad 

44 







d4 




c0b8 

42 

03 

bO 

f9 

ce 

42 

03 

69 

c5 

cl78 

47 

03 

Oa 

Oa 

18 

6d 

47 

03 

15 

cOOO 

a2 

IV 

aO 

c 2 

20 

bb 

20 

1*7 

cOcO 

08 

aa 

ac 

42 

03 

60 

80 

40 

46 

cl80 

69 

04 

8d 

40 

03 

90 

03 

ee 

f5 

c008 

64 

e2 

a2 

f4 

aO 

c2 

20 

d4 

6f 

o0c8 

20 

10 

08 

04 

02 

01 

20 

fd 

18 

cl88 

41 

03 

ad 

40 

03 

ac 

41 

03 

5f 

C010 

bb 

20 

Oc 

bc 

a9 

Oc 

20 

3c 

6a 

cOdO 

ae 

20 

8a 

ad 

20 

f7 

b7 

84 

90 

cl90 

20 

a2 

bb 

a9 

c2 

8d 

41 

03 

c9 

c018 

bc 

20 

30 

ba 

20 

b4 

bf 

a9 

42 

c0d8 

fb 

85 

fc 

20 

fd 

ae 

20 

8a 

c4 

cl98 

ad 

43 

03 

Oa 

Oa 

18 

6d 

43 

87 

c020 

00 

85 

02 

a9 

04 

a2 

c2 

8d 

14 

cOeO 

ad 

20 

f7 

b7 

84 

fd 

85 

fe 

de 

claO 

03 

69 

7c 

8d 

40 

03 

90 

03 

8d 

c028 

40 

03 

8e 

4l 

03 

ae 

40 

03 

62 

c0e8 

20 

fd 

ae 

20 

8a 

ad 

20 

00 

4d 

cla8 

ee 

4l 

03 

ad 

40 

03 

ac 

4l 

ff 

c030 

ac 

4l 

03 

20 

d4 

bb 

18 

ad 

29 

cOfO 

cO 

a9 

00 

aO 

3 f 

91 

fd 

88 

22 

clbO 

03 

20 

67 

b8 

a9 

ff 

aO 

cl 

55 

c038 

40 

03 

69 

05 

8d 

40 

03 

90 

fd 

c 0 f 8 

10 

fb 

8d 

43 

03 

8d 

44 

03 

85 

clb8 

20 

50 

b8 

20 

49 

b8 

a5 

66 

fO 

c040 

03 

ee 

4l 

03 

a9 

f4 

aO 

c2 

b5 

clOO 

a9 

16 

8d 

47 

03 

ae 

43 

03 

b9 

clcO 

30 

la 

20 

f7 

b7 

cO 

15 

bO 

3c 

c048 

20 

67 

b8 

e6 

02 

a5 

02 

c9 

10 

cl08 

ac 

44 

03 

20 

a7 

cO 

bl 

fb 

da 

clc8 

13 

8c 

46 

03 

ae 

45 

03 

ac 

8e 

c050 

18 

dO 

da 

a9 

f9 

aO 

c2 

20 

ac 

cllO 

3d 

c6 

cO 

c9 

00 

dO 

03 

4c 

45 

cldO 

46 

03 

20 

a7 

cO 

bl 

fd 

ld 

61 

c058 

a2 

bb 

20 

6b 

e2 

a2 

f9 

aO 

ba 

cll8 

de 

cl 

a9 

c2 

8d 

4l 

03 

ad 

e2 

cld8 

c6 

cO 

91 

fd 

ee 

43 

03 

ad 

93 

c060 

c2 

20 

d4 

bb 

20 

Oc 

bc 

a9 

88 

cl20 

47 

03 

Oa 

Oa 

18 

6d 

47 

03 

bd 

cleO 

43 

03 

c9 

18 

fO 

03 

4c 

05 

7d 

c068 

0c 

20 

3c 

bc 

20 

30 

ba 

20 

da 

cl28 

69 

7c 

8d 

40 

03 

90 

03 

ee 

d9 

cle8 

cl 

a9 

00 

8d 

43 

03 

ee 

44 

cO 

c070 

b4 

bf 

a9 

00 

85 

02 

a9 

7c 

76 

cl30 

41 

03 

ad 

40 

03 

ac 

41 

03 

07 

clfO 

03 

ce 

47 

03 

ad 

44 

03 

c9 

29 

c078 

a2 

c2 

8d 

40 

03 

8e 

41 

03 

96 

cl38 

20 

a2 

bb 

a9 

c2 

8d 

41 

03 

71 

clf8 

15 

fO 

03 

4c 

05 

cl 

60 

84 

b9 

c080 

ae 

40 

03 

ac 

4l 

03 

20 

d4 

fb 

cl40 

ad 

43 

03 

Oa 

Oa 

18 

6d 

43 

2f 

c200 

20 

00 

00 

00 

00 

00 

00 

00 

21 

c088 

bb 

18 

ad 

40 

03 

69 

05 

8d 

6d 

cl48 

03 

69 

04 

8d 

40 

03 

90 

03 

17 











c090 

40 

03 

90 

03 

ee 

41 

03 

a9 

2f 

cl50 

ee 

41 

03 

ad 

40 

03 

ac 

4l 

a7 











c098 

f9 

aO 

c2 

20 

67 

b8 

e6 

02 

72 

cl58 

03 

20 

50 

b8 

a9 

Oc 

20 

7e 

Of 











cOaO 

a5 

02 

c9 

18 

dO 

da 

60 

98 

52 

cl60 

bd 

20 

49 

b8 

a5 

66 

30 

74 

ce 

Listing 44 

. Damit drehen 

Sie 



c0a8 

8d 

42 

03 

Oa 

18 

6d 

42 

03 

54 

cl68 

20 

f7 

b7 

cO 

18 

bO 

6d 

8c 

60 

Sprites in 

jedem 

beliebigen Winkel 
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C64, CI28 


TIPS&TRICKS 


Name 

new colours cOOO c079 

c028 

19 dO ad 12 dO a5 02 fO 

7b 

c060 

99 00 d9 b9 00 cd 99 00 

7c 




o030 

24 aO 00 b9 00 c7 99 00 

80 

c068 

da b9 00 ce 99 00 db 88 

13 

cOOO 

78 a9 24 8d 14 03 a9 cO 

89 

C038 

d8 b9 00 c8 99 00 d9 b9 

7a 

c070 

dO e5 a9 ff 85 02 4c 31 

99 

c008 

8d 15 03 a9 ff 8d 12 dO 

6c 

c040 

00 e9 99 00 da b9 00 ca 

9c 

c078 

ea c2 8d 40 03 8e 4l 03 

de 

C010 

ad 11 dO 29 7f 8d 11 dO 

e9 

c048 

99 00 db 88 dO e5 a9 00 

CC 




c018 

a9 01 8d la dO a9 7f 8d 

5c 

c050 

85 02 4c 31 ea aO 00 b9 

37 

Listing 45. 256 Farben im 


c020 

Od de 58 60 ad 19 dO 8d 

bf 

c058 

00 cb 99 00 d8 b9 00 cc 

99 

simulierten Interface-Modus 



ren Ecke liegenden Ursprung) bei P (12/10) innerhalb des 
Sprites. Die Syntax zum Aufruf des Programms lautet: 
SYS 49358, Adresse des Quellsprites, Adresse des Ziel- 
Sprites, Winkel im Bogenmaß. 

Das Programm liegt im Bereich von $C000/$C203. Wäh¬ 
rend des Drehens wird auch noch der Bereich von 
$C204/$C2FE benötigt. Natürlich kann das Programm 
auch von Maschinensprache aus aufgerufen werden. Die 
Adresse des Quellsprites steht in $FB/$FC, die des Zielspri¬ 
tes in $FD/$FE, der Winkel steht im FAC (Fließkomma- 
Akkumulator). Nachdem diese Werte gesetzt sind, kann die 
Routine mittels JSR $COEE aufgerufen werden. 

(Christian Pdemeyer/rs) 


59 256 Farben! 


»New Colours« (Listing 45) erweitert den Farbbereich des 
Commodore64von 16 auf 256 Farben. Das wurde erreicht, 
indem zwei zusätzliche Farbspeicher bei jedem Bild¬ 
schirmaufbau abwechselnd in den richtigen Farbspeicher 
kopiert werden. So kommt man auf 16 x 16 Farben, also 256. 
Die Farbspeicher sind ab $C700 und $CB00 zu finden. 
Das verdeutlicht folgendes Beispiel: 

In der linken oberen Ecke soll ein Klammeraffe ein Farb- 
gemisch aus Hellblau und Dunkelblau annehmen. 

POKE 1024,0 für den Klammeraffen 

POKE 50944,6 ($C700) Dunkelblau 

POKE 51968,14 ($CB00) Hellblau 

So einfach ist das! (Sascha Kaufmann/rs) 


60 Lösung des Filterproblems 


Viele Programme für den C 64 nutzen dessen hervorragen¬ 
den Sound-Möglichkeiten, auf eindrucksvolle Weise. Doch 
leider gerade dort, wo sich besonders schöne Ergebnisse 
erzielen lassen, nämlich bei der Filterung der Tonsignale 
durch den im SID integrierten Analogfilter, gibt es Proble¬ 
me. Es ist nämlich bei weitem kein C 64 gleich dem ande¬ 
ren. Es gibt Unterschiede in der Bestückung zweier Kon¬ 
densatoren, die für die Filter verantwortlich sind. So finden 
sich als CIO und C11 bei älteren C 64 Werte von 470pF oder 
2,2nF. Selbst die Schaltpläne, die in diversen Büchern und 
Zeitschriften veröffentlicht wurden, weisen in diesem Punkt 
Unterschiede auf. Der Grund in diesem Verwirrspiel liegt 
darin, daß Commodore bei der Entwicklung des C 64 zu¬ 
nächst einen Wert von 470pF eingeplant hat. Dieser Wert 
ist aber viel zu klein bemessen. Der Frequenzbereich, in 
dem der Filter wirkt, liegt nur zum kleinen Teil in dem Fre¬ 
quenzbereich, den der SID liefert. Abhilfe würde hier ein 
größerer Wert schaffen (zum Beispiel 2,2nF). Wahrschein¬ 
lich war dies der Grund für Commodore, den Schaltplan 
des C 64 zu ändern. Wer nun in seinem C 64 zwei 470pF- 
Kondensatoren als CIO und C11 findet, kann seinen Com¬ 
puter recht leicht an den neuen »Standard« anpassen: Es 
muß lediglich zu jedem der beiden Kondensatoren ein wei¬ 
terer parallel geschaltet werden. Als Wert für diese beiden 
zusätzlichen Kondensatoren bietet sich 1,5nF an. Es ergibt 


sich dann ein Gesamtwert von jeweils 1,97nF, was also in et¬ 
wa 2,2nF entspricht. Die Bauform der Kondensatoren ist im 
Prinzip egal. Es dürfen jedoch keine Elektrolytkondensato¬ 
ren (Eikos) verwendet werden! Am günstigsten für den Ein¬ 
bau sind Styroflex- oder Keramikkondensatoren. Der Ein¬ 
bau läuft nun wie folgt ab: Erst schraubt man den C 64 auf 
(Achtung, Garantieverlust). Dann sucht man auf der Platine 
die beiden Kondensatoren, neben denen auf der Platine 
CIO und C11 gedruckt ist. Sie befinden sich neben der lin¬ 
ken, oberen Ecke des SID. Man schaut nun auf den Auf¬ 
druck der Kondensatoren und prüft, ob es sich um 470pF- 
oder 2,2nF-Kondensatoren handelt (es steht meistens nur 
irgend etwas mit 47 beziehungsweise 22 da!). Ist letzteres 
der Fall, kann man seinen C 64 getrost wieder zuschrau¬ 
ben, denn er hat bereits den richtigen Kondensatortyp ein¬ 
gebaut. Andernfalls lötet man nun vorsichtig jeweils einen 
1,5nF-Kondensator an die Pins des jeweiligen 470pF Kon¬ 
densators. Dann kann man den Computer wieder zu¬ 
schrauben und sich über den neuen Sound freuen, der jetzt 
bei Programmen wie »Shades« oder »Falcon Patrol« er¬ 
klingt. 

Der Einbau ist normalerweise vollkommen unkritisch, 
falls man über genügend Löterfahrung verfügt! 

(A. Beermann/rs) 

ino», 

61 ililfsprogramm zum Soundmaster 


Listing 46 zeigt eine kleine Maschinenroutine für die mit 
dem Programm »Soundmonitor« aus Sonderheft 31 erstell¬ 
ten Musikstücke. Mit dieser Routine ist es möglich, den 
Lauf des Musikstückes durch einfache Angabe von 
SYS828,x,(y) und entsprechenden Steuerparametern zu 
beeinflussen. 

Beschreibung der Funktionen: 

SYS828,0 hält das Musikstück sofort an 
SYS828,1 setzt das Musikstück ab der Stelle 
fort, an der es mit SYS828,0 
angehalten wurde 

SYS828,2 startet das Musikstück ab Anfang 
neu. 

SYS828,x,y spielt die Steps von Step x bis Step 
y. Mit diesem Befehl wäre es möglich, 
mehrere kleine Musikstücke 
innerhalb einer Musikroutine 
zusammenzustellen und einzeln 
aufzurufen. 

Das Programm liegt im Kassettenpuffer von Adresse de¬ 
zimal 828 ($033c) bis dezimal 916 ($0394), der gleichzeitige 
Betrieb einer Datasette ist also nicht möglich. 

(Helmut Jappsen/rs) 

62 Die Microdrums 


Kaum zu glauben: Nur ganze 487 Byte benötigt ein 
Schlagzeug-Programm für den C 64 (Listing 47). Nach dem 
Starten mit RUN kann über jede der Zahlentasten (0 bis 9) 
ein Trommelschlag erzeugt werden. Läßt man die Taste ge¬ 
drückt, klingt das fast wie ein Trommelwirbel. Die Wieder- 
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TIPS&TRICKS 


C64, CI28 


Name 

music 

-switch 


033c 0395 


033c 

20 

fd 

ae 

20 

9e 

b7 

8a 

78 

cd 


0344 

48 

a9 

2c 

aO 

00 

dl 

7a 

fO 

da 


034c 

37 

68 

58 

c9 

01 

fO 

lc 

c9 

a2 


0354 

02 

fO 

25 

c9 

00 

fO 

01 

60 

9d 


035c 

a9 

ea 

8d 

14 

cO 

a9 

31 

8d 

99 


0364 

19 

c0 

20 

00 

cO 

a9 

00 

8d 

5a 


036c 

18 

d4 

60 

a9 

cO 

8d 

14 

cO 

86 


0374 

a9 

lf 

8d 

19 

cO 

4c 

00 

cO 

23 


037c 

a9 

01 

8d 

Of 

cO 

4c 

6f 

03 

ld 


0384 

20 

73 

00 

20 

9e 

b7 

68 

8d 

c6 


038c 

11 

cO 

8e 

10 

cO 

58 

4c 

7c 

9c 

Listing 46. 

0394 

03 

8d 

11 

dO 

60 

00 

00 

00 

c2 

..MUSIC-SWITCH« 


holfrequenz dieses Trommelwirbels läßt sich über Adresse 
56325 (Cursor-Repeat) einstellen (Normalwert 65). 

An dieser Stelle ein wichtiger Tip für alle, die ihren C 64 
über den Audio-Out-Pin der Audio-/Video-Buchse an einen 
Verstärker angeschlossen haben. Man sollte immer zuerst 
den Verstärker und dann den C 64 einschalten. Bei man¬ 
chen Geräten können beim Einschalten kurzzeitig Span¬ 
nungsimpulse auftreten und den SID des C 64 zerstören 
(was bei mir der Fall war). 

(Christoph Joch/rs) 


63 Disketten-Check 


Bei vielen Programmen, die auf Diskette zugreifen, ist es 
wichtig, daß der Benutzer auch die richtige Diskette einge¬ 
legt hat. Am einfachsten ist es, den Namen der Diskette zu 
überprüfen. Man kann hier wie folgt Vorgehen: 

10 OPEN 1,8,15, "I":0PEN 2,8,2,"#'': 

PRINT#1,"M-R" CHR$ (144) CHR$(7) CHR$(l6) 

20 INPUT#1,A$:CL0SE 2:CL0SE 1 
Danach steht in der Variablen A$ der Name der Diskette 
(ohne ID). Er kann nun zum Beispiel auf dem Bildschirm 
ausgegeben oder mit einer IF-THEN-Abfrage bearbeitet 
werden. Achtung: Wenn der Name der Diskette kürzer als 
16 Zeichen ist, wird der Rest automatisch mit <SHIFT- 
SPACE>-Zeichen aufgefüllt. Darauf sollte man bei einer 
IF-Entscheidung achten. 

(Marcus Krechel/rs) 


64 Disk full Error! 


Haben Sie gewußt, daß Sie von einem Programm aus fest¬ 
stellen können, wie viele Blöcke auf einer Diskette noch frei 
sind? Das ist vor allem dann wichtig, wenn man zum Bei¬ 
spiel eine Datei anlegen möchte und schon vorher wissen 
muß, ob sie überhaupt noch auf die Diskette paßt. Zur Lö¬ 
sung dieses Problems genügen zwei Programmzeilen, die 
in ein beliebiges Programm eingefügt werden: 

10 0PEN1,8,15, "IPRINT#1, "M- 
R"CHR$(250)CHR$(2)CHR$(3) 

20 GET#1,A$,B$,B$:A=ASC(A$+CHR$(0))+256*ASC(B$+ 
CHR$(0)):CL0SE1 

Nach Ablauf dieser beiden Zeilen steht in der Variablen 
A die Anzahl an freien Blöcken zur Weiterverarbeitung be¬ 
reit. (Kai Engert/rs) 

65 Einfacher Directory-Listschutz 


Wer seine Disketten vor fremden Augen schützen möchte, 
sollte diese in Zukunft mit 
0PEN1,8,15, "N:Name, <SHIFT+L> ":CL0SE1 
formatieren. Durch das <SHIFT+L>-Zeichen bricht der 
C 64 beim Laden und Listen des Directorys mit einer Fehler¬ 
meldung ab. Programme lassen sich aber trotzdem spei¬ 
chern und laden. (Ralf Enz/rs) 

66 1328 Blocks free 


Wenn man; -ine 1571 am C 64 oder dem C 128 im C 64-Mo- 
dus betreibt, wird man feststellen, daß die 1571 nur im 1541- 
Modus läuft. Der Schreib-Lese-Kopf für die zweite Disket¬ 
tenseite wird nicht genutzt. Mit einem kleinen Befehl an die 
Floppy kann sie jedoch in den 1571-Modus geschaltet wer¬ 
den und auch beim C 64 sind dann 1328 Datenblöcke frei: 
open 1,8,15,"u0>ml ":close 1 

(Wenn keine Diskette eingelegt ist, meldet das Laufwerk ei¬ 
nen Fehler, den man aber getrost ignorieren darf.) 

Formatieren Sie nun eine leere Diskette und schauen Sie 
sich das Inhaltsverzeichnis an: 1328 Blocks Free. Großen 
Datenmengen steht nichts mehr im Weg! (Fabian Braun/rs) 
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0801 09e9 

08a9 

e9 

00 

85 

06 

a9 

08 

85 

03 

ab 

0961 

f7 

9c 

64 

81 

64 

Ob 

7f 

39 

ff 











08bl 

a9 

e8 

85 

02 

4c 

31 

ea 

20 

aa 

0969 

fd 

ff 

67 

18 

e2 

00 

11 

18 

e5 

0801 

16 

08 

c4 

07 

9e 

32 

30 

37 

d8 

08b9 

2a 

20 

Od 

09 

03 

12 

Of 

04 

5d 

0971 

ce 

5b 

de 

62 

89 

6c 

Oc 

e3 

64 

0809 

35 

20 

4d 

49 

43 

52 

4f 

44 

57 

08cl 

12 

15 

Od 

13 

20 

16 

31 

2e 

d7 

0979 

lc 

01 

73 

Oe 

70 

4e 

f4 

le 

3e 

0811 

52 

55 

4d 

53 

00 

00 

00 

00 

cc 

08c9 

30 

20 

16 

Of 

Oe 

20 

03 

08 

6f 

0981 

cO 

90 

20 

08 

84 

00 

21 

8e 

7c 

0819 

ea 

ea 

a9 

80 

8d 

8a 

02 

20 

68 

08dl 

12 

09 

13 

14 

Of 

10 

08 

20 

81 

0989 

70 

c7 

08 

26 

4e 

c8 

9b 

87 

4c 

0821 

44 

e5 

a9 

00 

8d 

20 

dO 

8d 

fa 

08d9 

Oa 

Of 

03 

08 

20 

2a 

20 

20 

41 

0991 

bl 

9e 

09 

a3 

4d 

83 

9c 

f3 

93 

0829 

21 

dO 

aO 

28 

b9 

b8 

08 

99 

94 

08el 

20 

20 

20 

20 

20 

20 

20 

08 

73 

0999 

9e 

7c 

97 

9f 

11 

e4 

8e 

7c 

bb 

0831 

ff 

03 

a9 

0e 

99 

ff 

d7 

88 

e8 

08e9 

09 

ff 

b4 

00 

01 

ff 

ff 

ff 

2f 

09al 

b3 

c7 

de 

79 

de 

9c 

c7 

lb 

27 

0839 

dO 

f2 

ad 

e8 

08 

85 

02 

85 

ca 

08fl 

ff 

ff 

ff 

00 

00 

42 

lb 

ff 

6e 

09a9 

ce 

9e 

79 

df 

ee 

fb 

fd 

f3 

cf 

0841 

04 

ad 

e9 

08 

85 

03 

85 

05 

28 

08 f 9 

ff 

ff 

ff 

ff 

eO 

00 

01 

36 

76 

09b 1 

fb 

f7 

e3 

97 

df 

ff 

ff 

fb 

89 

0849 

a9 

91 

8d 

14 

03 

a9 

08 

8d 

59 

0901 

ff 

ff 

ff 

ff 

ff 

ff 

20 

04 

88 

09b9 

fd 

8c 

14 

10 

46 

b3 

7f 

f7 

f3 

0851 

15 

03 

4c 

82 

08 

aO 

00 

bl 

34 

0909 

46 

8c 

73 

ee 

f7 

ff 

ff 

bc 

49 

09cl 

ff 

6d 

31 

02 

00 

00 

01 

00 

08 

0859 

02 

a2 

08 

0a 

48 

a9 

Of 

90 

lf 

0911 

ce 

20 

a6 

c5 

o3 

bf 

ff 

ff 

8e 

09c9 

49 

lc 

e7 

f8 

ff 

86 

40 

00 

6e 

0861 

02 

a9 

00 

8d 

18 

d4 

a4 

06 

bO 

0919 

ff 

fc 

ff 

ff 

ff 

e4 

80 

00 

bf 

09dl 

00 

00 

20 

00 

48 

07 

82 

fe 

9e 

0869 

c8 

dO 

fd 

68 

ca 

dO 

ec 

e6 

da 

0921 

89 

ff 

ff 

ff 

ff 

ff 

00 

00 

aa 

09d9 

9f 

fc 

ff 

60 

04 

Oc 

10 

84 

ec 

0871 

02 

dO 

02 

e6 

03 

a5 

02 

c5 

2a 

0929 

00 

47 

ff 

ff 

ff 

ff 

fd 

50 

65 

09el 

02 

10 

00 

20 

22 

01 

03 

a5 

71 

0879 

04 

dO 

da 

a5 

03 

c5 

05 

dO 

65 

0931 

30 

80 

07 

fc 

ff 

ff 

ff 

a6 

50 











0881 

d4 

a5 

02 

c5 

04 

dO 

ce 

a5 

ae 

0939 

58 

9b 

64 

c4 

33 

73 

ef 

fe 

9d 











0889 

03 

c5 

05 

dO 

c8 

4c 

82 

08 

d3 

0941 

dd 

7b 

f3 

ec 

de 

c6 

32 

ee 

21 











0891 

20 

e4 

ff 

dO 

03 

4c 

31 

ea 

6a 

0949 

f9 

f9 

f7 

df 

f6 

lb 

33 

8a 

63 











0899 

38 

e9 

30 

90 

f8 

c9 

0a 

bO 

4b 

0951 

ce 

cf 

ee 

ef 

ff 

dd 

ff 

cl 

33 

Listing 47. 

»Microdums 

< — 

ein 



08al 

f4 

0a 

8d 

aa 

08 

a9 

ff 

38 

91 

0959 

92 

21 

00 

8d 

09 

7d 

f3 

fc 

74 

komplettes Schlagzeugprogramm 
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TIPS&TRICKS 


67 Die schnellste Directory-Routine 


ln den Ausgaben 1/87, 6/87 und 8/87 des 64'er-Magazins 
wurden schnelle Routinen vorgestellt, die das Disketten¬ 
inhaltsverzeichnis programmgesteuert ausgeben. Dieser 
Serie folgend, bieten wir nun ein weiteres Programm an, 
das wohl bisher das schnellste ist. 

Die Geschwindigkeit des Programms wurde beim Einle¬ 
sen eines Directory mit 31 File-Einträgen gemessen, was 
der durchschnittlichen Länge eines Directory nahekommt. 
Das Einlesen wurde, um die Meßgenauigkeit zu erhöhen, 
viermal direkt nacheinander wiederholt. Die Zeit wurde mit 
einer Stoppuhr und nicht mit Hilfe von Tl$ gemessen, da 
TIS bei Diskettenzugriffen nicht genau geht. Nach dieser 
Meßmethode (und wohl auch nach allen anderen) war das 
Programm um 5 Prozent schneller als das bisher schnellste 
Programm aus Ausgabe 8/87. Dies allein wäre noch keine 
große Leistung, aber im Gegensatz zu allen anderen ver¬ 
liert das Programm kaum an Geschwindigkeit, wenn es als 
Subroutine an ein langes Programm angehängt wird. Die 
von den anderen Programmen abgeleiteten Subroutinen 
müssen am Anfang des aufrufenden Programms stehen, 
um eine annehmbare Geschwindigkeit zu erzielen. 

Listing 48 ist das schnelle Directory-Ausgabeprogramm. 
Es wurden entgegen allen guten Sitten die Leerzeichen 
weggelassen und möglichst viele Befehle in eine Zeile ge¬ 
schrieben, da nur so die maximale Geschwindigkeit er¬ 
reichtwerdenkann. Leider bekam dadurch Zeile 1 Uberlän¬ 
ge, und die Befehle in dieser Zeile müssen abgekürzt ein¬ 
gegeben werden. Die größte Geschwindigkeitssteigerung 
wurde aber dadurch erreicht, daß das Einlesen der Filena¬ 
men nicht mehr durch eine IF-THEN-GOTO-, sondern 
durch eine FOR-NEXT-Schleife gelöst wurde, die aus Ge¬ 
schwindigkeitsgründen immer vorzuziehen ist und auch 
die Lesbarkeit des Programms steigert. Um in der Schleife 
konstant 28=7*4 Zeichen einiesen zu können, mußten die 
Zeilenend-Markierungen (CHR$ (0)) auch gedruckt wer¬ 
den; diese haben aber keinen Einfluß auf das Aussehen 
des Directory. Weiterhin mußten die 26 Zeichen des Disket¬ 
tennamens ergänzt werden. Die 2 Byte, die normalerweise 
die Zeilennummer 0 für den Diskettennamen bilden, sind 
immer »CHR$(0)/CHR$(0)« und können daher als Füllzei¬ 
chen verwendet werden, ohne eine sichtbare Änderung 
hervorzurufen. Jetzt fehlt aber die erste Zeilennummer, die¬ 
se wird durch einen separaten PRINT-Befehl wieder einge¬ 
setzt. Die sonstige Funktion entspricht der der Vorgänger¬ 
programme und kann dort nachgelesen werden. Es zeigte 
sich, daß sich kein weiterer Vorteil ergibt, wenn statt in sie¬ 
ben Durchläufen je 4 Byte in vier Durchläufen je 7 Byte ein¬ 
gelesen werden. (Olaf Kummer/rs) 

68 Es rattert die Mühle . . . 


Bekanntermaßen verfügt die (weiße) Floppy 1541c über ei¬ 
ne Lichtschranke, die die Endposition des Schreib-/Lese- 
kopfes erkennt und somit ein Anschlägen (Rattern) des 
Kopfes bei Lesefehlern und beim Formatieren verhindert. 
Offensichtlich scheint dieses aber nicht bei allen neuen 
Diskettenlaufwerken zuzutreffen. In einigen Fällen ratterte 
auch die 1541c. Ein Blick in das Innere der Geräte brachte 
bald Klärung: Die Lichtschranke war durch eine Lötbrücke 
(»Jumper«) überbrückt und somit wirkungslos. Durch das 
Auftrennen des Jumpers wird die Floppystation »ratterfrei«. 

Wenn Sie von Ihrer 1541c auch bei jedem Formatieren 
ein Rattern hören, so befreien Sie Ihr Laufwerk durch die¬ 
sen einfachen Trick von dem mechanisch bedenklichen 
Übel. Der Jumper ist mit J3 bezeichnet und befindet sich — 



0 PRINT"CCLR,SPACE>0 "i=OPEN 1,0,0."$":POK 
E 781.1=SYS 65478:GET A$,A$,A$,A$:X$=CHR 
$(0> <237> 

1 FOR 1 = 1 TO 7 = GET A$,B$,C$,D$:PRINT A$B$C 
$D$i=NEXT:PRINT:GET A$,A$.A$,B$:IF ST TH 

EN SYS 65484:CLOSE 1:END <136> 

2 PRINT ASC(A$+X$)+256*ASC<B*+X$>i:GOTO 1 <219> 

© 64’er 

Listing 48. Die endgültige Basic-Directory-Routine? 


von der Laufwerksklappe her betrachtet — rechts neben 
dem großen Stecker auf der linken Seite der Floppyplatine. 

Vielleicht ist Ihnen die folgende Hintergrundinformation 
einmal nützlich: 

Das DOS (Betriebssystem der Floppystation) fragt die 
Lichtschranke über ein Bit eines bisher ungenutzten 
Prallel-Portes ab. Die meisten Floppy-Speeder und einige 
Kopierprogramme verwenden aber ein Parallelkabel, das 
an diesen Port angeschlossen wird. Sollten Sie den Ge¬ 
schwindigkeitsvorteil dieser Betriebssysteme und Kopie¬ 
programme nutzen wollen, so überbrücken Sie die Unter¬ 
brechung wieder: Nun funktioniert auch ein paralleler Bus 
mit 1541c! (Andreas Beermann/rs) 


69 Disketfenwechsel programmiert 


Der »DISKCHECKER« (Listing 49.) überprüft von Ihrem Ba¬ 
sic- oder Assemblerprogramm aus, ob sich eine Diskette im 
Laufwerk befindet. Er kann auch dazu benutzt werden, ein 
Programm so lange zu stoppen, bis eine Diskette gewech¬ 
selt oaer überhaupt erst eingelegt wird — ohne Bestäti¬ 
gung durch einen Tastendruck! 

Nach LOAD " DISKCHECKER" ,8,1 geben Sie bitte NEW 
und dann SYS 49152 ein. Der Aufruf aus Basic- 
Programmen heraus erfolgt dann durch A=USR(X). 

Wenn X=0 ist, dann wird das Programm so lange ange¬ 
halten, bis die Diskette herausgenommen wird. 


Name 

diskchecker 



C000 c0c5 


cOOO 

a9 

Ob 

a2 

cO 

8d 

11 

03 

8e 

7a 


c008 

12 

03 

60 

20 

f7 

b7 

cO 

01 

fa 


C010 

fO 

lb 

cO 

00 

fO 

17 

a9 

80 

2d 


c018 

8d 

c3 

cO 

20 

33 

cO 

20 

45 

ff 


c020 

oO 

20 

51 

cO 

20 

79 

cO 

a9 

81 


c028 

01 

20 

c3 

ff 

60 

8c 

c3 

cO 

25 


c030 

4c 

lb 

cO 

a9 

00 

20 

bd 

ff 

67 


c038 

a9 

01 

a2 

08 

aO 

Of 

20 

ba 

84 


c040 

ff 

20 

cO 

ff 

60 

a2 

01 

20 

df 


c048 

c9 

ff 

60 

a2 

01 

20 

c6 

ff 

a9 


c050 

60 

aO 

00 

b9 

ab 

cO 

c9 

fe 

ld 


c058 

fO 

Ob 

c9 

ff 

fO 

17 

20 

d2 

2e 


c060 

ff 

c8 

4c 

53 

cO 

8c 

a9 

cO 

d9 


c068 

20 

cc 

ff 

20 

45 

cO 

ac 

a9 

53 


c070 

cO 

c8 

4c 

53 

cO 

20 

ce 

ff 

52 


c078 

60 

20 

4b 

cO 

20 

cf 

ff 

48 

e4 


c080 

20 

CC 

ff 

68 

30 

95 

c9 

03 

fO 


c088 

fO 

07 

aO 

01 

8c 

aa 

cO 

dO 

07 

Listing 49. Der 

c090 

05 

aO 

00 

8c 

aa 

cO 

20 

a2 

ed 

c098 

b3 

ad 

c3 

cO 

30 

0a 

cd 

aa 

Ob 

»Diskchecker« 

cOaO 

cO 

fO 

05 

68 

68 

4c 

lb 

cO 

fe 

prüft auf elnge- 

e0a8 

60 

00 

00 

4d 

2d 

57 

00 

00 

40 

legte Disketten. 

cObO 

01 

80 

fe 

4d 

2d 

57 

06 

00 

00 

Bitte mit dem 

c0b8 

02 

12 

00 

fe 

4d 

2d 

52 

00 

2b 

MSE (siehe Seite 

cOoO 

00 

01 

ff 

00 

46 

60 

80 

40 

2b 

159) eingeben. 
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C64, C 128 


Setzen Sie X=1, dann wird das Programm so lange ange¬ 
halten, bis eine Diskette in das Laufwerk eingelegt wird. 

Für alle anderen X-Werte wird die Floppy-Station auf den 
derzeitigen Zustand abgefragt. Das Ergebnis steht dann in 
der Variablen A. 

Wenn A=0 ist, dann ist keine Diskette im Laufwerk. 

Ist A=1 dann ist eine Diskette im Laufwerk. 

Das kleine Demo-Programm in Listing 50 verdeutlicht 
den Sinn des Diskcheckers — bisher mußte, wie zum Bei¬ 
spiel bei vielen Kopierprogrammen, ein Diskettenwechsel 
mit einem Tastendruck bestätigt werden. 

Der Aufruf des Programmes auf Assembler-Ebene er¬ 
folgt mit: 

LDY #BEFEHL ; BEFEHL entspricht der Variab¬ 

len X 

; beim Aufruf mit USR(X) 

JSR $C00E ; Dezimal 49166 

JSR $B7F7 ; Basic-ROM: FAC in Integer 

Das Ergebnis der Abfrage, entsprechend der Variablen A 
aus dem Demoprogramm, befindet sich nun im Y-Register 
und in der Speicherzelle $14. 

Der Diskchecker ist kurz genug (195 Byte), um auch im 
Kassettenpuffer abgelegt werden zu können. Es sind je¬ 
doch Kenntnisse in Maschinensprache nötig, um die abso¬ 
luten Sprungbefehle an den neuen Adreßbereich anzupas¬ 
sen. (Peter Baumann/rs) 


5 SYS 49152 <063> 

10 PRINT"SITTE SISK ENTNEHMEN":A=USR<0) <205> 

20 PRINT"BITTE DISK EINLEGEN"=A=USR(1> <199> 

© 64’er 

Listing 50. Ein kurzes Demo für den »Diskchecker«. Bitte 
mit dem Checksummer V3 (siehe Seite 159) eingeben. 


70 Mini load 


Viele C 64-Besitzer gehören noch nicht zu den Glückli¬ 
chen, die über ein Betriebssystem mit implementiertem 
Schnellader verfügen. Daher habe ich eine Mini-Schnell- 
lade-Routine geschrieben, die vom Programmierer leicht in 
eigene Programme eingebaut werden kann. Die Routine ist 
einen Block oder genauer 248 Byte lang, und sie läßt sich 
somit sicherlich irgendwo im Speicher unterbringen. Die 
Miniaturisierung bringt leider auch ein paar Nachteile mit 
sich. Zum einen müssen die Ladevorbereitungen, wie 
öffnen des Files und Festsetzen der Ladeadresse, vom Be¬ 
nutzer selbst vorgenommen werden (was jedoch auch ein 
paar Vorteile bringen kann). Zum anderen kann man eine 
solche Schrumpelversion nur auf Kosten der Geschwindig¬ 
keit erreichen. So ist MiniLoad (Listing 51) so schnell wie 
Hypra Load, das heißt es lädt mit einem Beschleunigungs¬ 


faktor von zirka 5, was natürlich mit den Geschwindigkei¬ 
ten, die aufwendigere Routinen erreichen, nicht mithalten 
kann. 

Doch nun zum Umgang mit der Routine. 

Wollen Sie ein Programm an eine feste Adresse laden, so 
sieht das folgendermaßen aus: 
openl,8,0,"name":pokel74,lb:pokel75,hb:sys Start 
wobei »Start« die jeweilige Startadresse von Mini Load ist. 

Folgende Befehle laden ein Programm an die normale 
Adresse: 

openl,8,0,"name":get #1,1$,h$:pokel74, 
asc(l$-i-chr$(0)): pokel75,asc(h$):sys Start 

Die Routine schaltet während des Ladens den Bild¬ 
schirm aus und bricht ab, wenn entweder das Ende des Fi¬ 
les erreicht wird oder ein Lesefehler auftritt. Danach steht 
in 174/175 die Endadresse plus eins. Wollen Sie vordem La¬ 
den überprüfen, ob ein File überhaupt vorhanden ist, dann 
können Sie das anhand der Statusvariable ST feststellen. 

Falls Sie den 15-KByte-Bereich des VIC verändert ha¬ 
ben, dann müssen Sie die Routine daran anpassen. Das 
Bit 2 der CIA 2 muß aber immer gesetzt sein! 
poke53077,64-peek (56576) *64and255: poke53117, 
peek(53265) 

Wenn die Startadresse der Grundversion mit 53000 für 
Sie nicht geeignet sein sollte, so können Sie nach dem La¬ 
den der Routine und einem »NEW« diese folgendermaßen 
an die Adresse S verschieben: 
a=s+121:poke53053,a-8 5and255:poke53054,a/256 
poke780,248:poke781,8:poke782,207:poke53,s-8 5 
and255: poke54,s/256:sys46728 
Wollen Sie die Routine vor Ihr Basic-Programm hängen, 
so verschieben Sie die Routine zuerst an die Adresse 2070 
(siehe oben) und geben dann folgendes ein: 

0 poke4ä,l4 :poke44,9:run 
run’ 

load "programm ", 8 
poke43,l=poke44,8 

Wollen Sie die Routine vor dem Bildschirmspeicher able- 
gen, so müssen Sie sie aufteilen. Der Start liegt hier bei 
700, der Rest der Routine ab 828. 

poke780,66=poke781,8=poke782,207=poke53,188= 
poke54,2: sys46728 

poke780,182=poke781,74=poke782,207=poke53,60= 
poke54,3: sys46728 

poke753 ,115 =poke754,3=poke766,240=poke767,60 

(Tobias Plettenbacher/rs) 


71 Die »saubere« Diskette 


Das Löschen eines Programms von einer Diskette mit dem 
Scratch-Befehl ist nicht ganz unproblematisch: Die Daten 
des Programms bleiben nämlich auf der Diskette enthal¬ 
ten. Lediglich der Eintrag im Inhaltsverzeichnis der Disket- 


Name 

mini 

load.obj 


cf08 dOOO 

cf 58 

dd 

6a 

4a 

4d 

00 

dd 

4 a 

4a 

53 

cfb8 

48 b9 

00 

03 

29 

Of 

aa 

a9 

46 











cf 60 

4d 

00 

dd 

4a 

4a 

4d 

00 

dd 

39 

cfcO 

02 8d 

00 

18 

bd 

6f 

05 

8d 

12 

cf 08 

aU 

01 

8c 

11 

dO 

a5 

ba 

20 

d3 

cf 68 

ca 

fO 

09 

91 

ae 

e6 

ae 

dO 

9d 

cfc8 

00 18 

Oa 

29 

Of 

8d 

00 

18 

Oa 

cflO 

0c 

ed 

a9 

ff 

20 

b9 

ed 

a9 

58 

cf70 

04 

e6 

af 

24 

aa 

eO 

01 

fO 

ef 

cfdO 

68 8d 

00 

18 

Oa 

29 

Of 

8d 

43 

cf 18 

4d 

20 

dd 

ed 

a9 

2d 

20 

dd 

eb 

cf 78 

d4 

bO 

d4 

58 

a9 

lb 

8d 

11 

bO 

cfd8 

00 18 

c4 

lb 

a9 

00 

8d 

00 

4a 

cf 20 

ed 

a9 

57 

88 

10 

04 

a9 

45 

lb 

cf 80 

dO 

60 

aO 

02 

a6 

18 

a5 

19 

dd 

cfeO 

18 90 

c9 

a8 

68 

ae 

00 

03 

ca 

cf 28 

aO 

01 

20 

dd 

ed 

98 

20 

dd 

ec 

cf 88 

86 

06 

85 

07 

a9 

86 

85 

00 

38 

cfe8 

58 dO 

9d 

a9 

Oa 

4c 

al 

e9 

a2 

cf30 

ed 

a9 

05 

20 

dd 

ed 

a9 

20 

6b 

cf 90 

24 

00 

30 

fc 

dO 

55 

78 

ad 

55 

cffO 

Of 07 

Od 

05 

Ob 

03 

09 

01 

56 

cf38 

aa 

20 

dd 

ed 

b9 

81 

cf 

c8 

aO 

cf 98 

01 

03 

ae 

00 

03 

48 

fO 

02 

01 

cff8 

Oe 06 

Oc 

04 

Oa 

02 

08 

00 

5e 

cf40 

ca 

10 

f6 

20 

fe 

ed 

cO 

22 

7b 

cfaO 

a9 

ff 

85 

lb 

84 

ld 

38 

e5 

eb 









cf48 

dO 

c3 

78 

aO 

00 

a2 

01 

2c 

9d 

cfa8 

ld 

99 

01 

03 

c8 

b9 

00 

03 

93 

Listing 51. Eine 

: astioad für 

die 


cf50 

00 

dd 

30 

fb 

a9 

80 

4d 

00 

9e 

cfbO 

4a 

4a 

4a 

4a 

aa 

bd 

6f 

05 

5c 

1541 mit nur 

248 

Byte 
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TIPS&TRICKS 


1 GOSUB 1000:PRINT"CCLR1VALIDATJ.NG DISK... 


10 OPEN 1,0.15,"V" <102> 

20 OPEN 2,6,2, "H":PRINT’ , CCLRJ" <102> 

30 PRINW1,“U1 2 0 10 0" <090> 

40 SYS 49152:SYS 49155 <120> 

50 A=52996 <133> 

60 FOR T=1 TO 35:Z=üX=0 <151> 

65 M=20:IF T>17 THEN M=18:IF T>24 THEN M=1 

7:IF T>30 THEN M=16 <136> 

70 FOR S=0 TO M <230> 

80 W=43:IF(PEEK(A+Z)AND 2tX)<>0 THEN W=45 <105> 

81 IF W-45 THEN PRINT«1,"U2 2 0";T;S <251> 

90 POKE 1023+40#S+T,W <117> 

100 X=X+1:IF X<8 THEN 110 <107> 

101 X=0=Z=Z+1 <007> 

110 NEXT S <01B> 

115 A=A+4 <131> 

120 NEXT T <036> 

130 CLOSE 2=CLOSE 1 <152> 

140 END <142> 

1000 DATA 76,6,192,76,28,192,162,2,32,198, 

255,162,0,32,207,255,157,0,207,232,22 
4 <239> 

1010 DATA 144,208,245,32,204,255,96,162,2, 

32,201,255,162,0.138.32,210,255,232 <111> 

1020 DATA 208,250,32,204,255,96 <055> 

1030 FOR 1=49152 TO 49152+45=READ A:FOKE I 

,A:NEXT:RETURN , <025> 

© 64'er 


Listing 52. »CLEAN DISK« säubert Ihre Disketten 


te wird als »gelöscht« gekennzeichnet. Wenn Sie Wert auf 
wirklich vollständig gelöschte Dateien legen, sollten Sie Li¬ 
sting 52 ausprobieren. Es beschreibt eine Diskette an den 
Stellen (Blocks) mit Nullen, die nicht von Programmdaten 
benötigt werden. 

Keine Angst, Sie können damit keine Programme zerstö¬ 
ren, die noch im Inhaltsverzeichnis der Diskette stehen. 
Während das Programm arbeitet, zeigt es Ihnen den Block- 
belegungsplan (BAM) der Diskette auf dem Bildschirm an. 
Im Handbuch zu Ihrem Diskettenlaufwerk finden Sie dar¬ 
über nähere Informationen. 

(Gerti Noherr/Hans Peter Kastner/rs) 


73 Farbbandwechsel 

beim Stai^SGlO/NLIO 


Bei dem sehr weit verbreiteten Star-Drucker wurde beim 
Farbband endlich einmal nachgedacht. Das Farbband ist 
nämlich nicht wieder eine neue Version, sondern ein über¬ 
all erhältliches Schreibmaschinenband. 

Da der Drucker nur die obere Hälfte des Bandes verwen¬ 
det, kann man durch Vertauschen der beiden Spulen das 
Band einfach umdrehen und weiterdrucken. Irgendwann 
ist jedoch auch diese Seite verbraucht und man zieht los, 
ein neues Farbband zu kaufen (Gruppe 1, DIN 13mm, 10m 
lang, schwarz, Preis zwischen 5 und 10 Mark). 

Beim Versuch, dieses Band dann einzubauen, merkt 
man, daß da noch einiges klemmt. Zum Beispiel hat die 
Star-Original-Spule vier anstatt der DIN-genormten drei Lö¬ 
cher. Also muß man das Farbband auf die alte Spule um¬ 
spulen. Allerdings sind dazu Einweghandschuhe dringend 
zu empfehlen. 

Theoretisch ließe sich das neue Band nun einsetzen, 
aber Vorsicht: Da sind nämlich kleine Ösen an jedem Ende 
des Original-Farbbandes. Sie dienen dazu, die Laufrich¬ 
tung des Farbbandes am Ende umzuschalten. Leider sind 
sie unverzichtbar und müssen daher auch am neuen Farb¬ 
band angebracht werden. Dazu verwendet man am besten 
eine käufliche Ösenzange, mit deren Hilfe kleine Metall¬ 
ösen etwa 10 Zentimeter vor den beiden Enden des Farb¬ 
bandes eingesetzt werden. Hat man eine solche Zange 
nicht zur Verfügung, reichen auch zwei Knoten an den ent¬ 
sprechenden Stellen, Hauptsache, sie stellen ein Hinder¬ 
nis für den Umschalter am Drucker dar. Zur Not kann man 
es auch mit Heftklammern versuchen. 

Nu: endlich können wir das neue Farbband wieder ein¬ 
setzen. Jetzt den Drucker einschalten und dabei die LF- 
Taste drücken. Fertig! (Lars von Olleschik/rs) 

74 Schwarz auf weiß 


72 Ohne Directory 


Es ist auf erstaunlich einfache Weise möglich, Programme 
nur durch Angabe von Start-Track und Sektor von Diskette 
zu laden. Folgende Zeilen übertragen diese Werte in das 
Floppy-RAM: 

10 INPUT"STARTRACK";TR 
20 INPUT"STARTSEKTOR";SE 
30 OPEN 1,8,15,"I" 

40 PRINT#1,"M-W"CHR$(126)CHR$(0)CHR$(l)CHR$(TR) 

50 PRINT#1,"M-W"CHR$(111)CHR$(2)CHR$(1)CHR$(SE) 

60 CLOSE 1 

Danach muß der Befehl LOAD"*",8 beziehungsweise 
LOAD" * ",8,1 folgen. Das Programm wird nun wie jedes an¬ 
dere auch geladen, unabhängig davon, ob es im Directory 
vermerkt ist oder nicht, und auch, wenn das Directory völlig 
leer sein sollte. 

Man kann beispielsweise seine Programme vor fremden 
Zugriffen schützen, indem man auf einer beschriebenen 
Diskette mit Hilfe eines Disketten-Monitors Start-Track- und 
Sektor eines Programmfiles ausliest, sich merkt und das 
Directory wiederum mit Hilfe eines Monitors durch Über¬ 
schreiben löscht. Man kann nun die auf der Diskette ge¬ 
speicherten Programme nur noch laden, wenn man Start- 
Track- und Sektor kennt und mit obigem Programm eingibt. 

Allerdings darf jetzt kein Validate mehr ausgeführt wer¬ 
den. Es ist jedoch durchaus möglich, noch andere, »norma¬ 
le« Programme dazuzuspeichern.(Christian Bernhardt/rs) 



Jeder Besitzer eines GP 100 VC wird das leidige Thema 
kennen. Kaum hat er zehn Seiten Text oder zwei Seiten 
Print-Shop-Zauber zu Papier bringen lassen, schon er¬ 
bleicht das Gesicht des eben noch frohen Besitzers, weil 
das eben teuer gekaufte, neue Farbband dasselbe tut. 
Geht man nun zum Fachmann und fragt ihn, wo man sein 
Farbband vielleicht auffüllen könne, so antwortet dieser 
dann sehr überzeugend - aber falsch - daß das leider nicht 
möglich sei, da das Farbband ja durch die Matrixnadeln 
zerstochen würde. 

Tatsächlich aber ist es möglich, und das ohne Kosten, 
sein Farbband wieder aufzufrischen. Dazu muß man nur 
das linke Farbbandgehäuse vorsichtig mit einem Schrau¬ 
benzieher (oder ähnlichem) öffnen. Dort sieht man, daß das 
Farbband nur von einem winzigen Zahnrad getränkt wird. 
Das Farbband hat damit nie einen direkten Kontakt mit dem 
Farbschwamm (Bild 1). Man muß also nur das Farbband 


Farbband 


Farb¬ 

schwamm 

Zahn 

rad 


Bild 1. Links: Normalstellung, rechts: Jetzt wird das 
Farbband frisch getränkt. 
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C64, CI28 


zwischen Zahnrad und Schwamm vorbeiziehen lassen, 
und schon bekommt das Farbband mehr Farbe. 

Wichtig: Das Zahnrad ist schwer einzusetzen, wenn das 
Farbband zwischen dem Rädchen und dem Schwamm 
liegt; es muß aber unbedingt wieder eingesetzt werden, da¬ 
mit es das Farbband gegen das Schwämmchen drückt 
(Bild 1, rechts). 

Nachdem man das Gehäuse wieder zusammengesetzt 
hat, sollte man das Farbband ein paarmal von Hand durch 
das Gehäuse ziehen. Tip: Nun die Hände waschenl 

(Peter Kreutz/rs) 

75 Jetzt kommt Farbe 

ins Spiel 


Hardcopies immer nur schwarzweiß öder in verschiedenen 
Graustufen sehen dem Bildschirminhalt meistens nur ähn¬ 
lich. Besser ist es, die Farben eins zu eins zu übernehmen. 
Um die Farben zu erzeugen, werden vier verschiedene 
Kohlepapiere benötigt: Rot, Blau, Gelb und Schwarz. Als 
Drucker wird ein Epson-kompatibler Matrixdrucker benö¬ 
tigt. 

Das Programm »Farb-Hardcopy« (siehe Listing 53) wird 
wie ein Basic-Programm geladen und mit RUN gestartet. 
s Wenn man nun den Kennbuchstaben und den Namen des 
Koala-Bildes eingegeben hat, wird das Bild geladen. Da¬ 
nach färbt sich der gesamte Bildschirm rot und fordert da¬ 
durch zum Einlegen des roten Kohlepapiers auf. 
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Bild 2. Das Kohlepapier wird mit der Farbseite nach unten 
unter die Laschen des Traktors geklemmt 

Auf jeden Fall sollte man Endlospapier verwenden. 
Wenn man das Papier eingelegt hat, ist es ratsam, den Ein¬ 
zugshebel ganz nach vorne, auf Handausrichten zu stellen 
(Bild 2). Dadurch wird das Zeilenlineal und die Andruckrolle 
zurückgeklappt und man verhindert unerwünschte Streifen 
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auf dem Bild. Außerdem sollte das normale Druckerfarb¬ 
band entfernt werden, da sonst spätestens nach dem drit¬ 
ten Durchlauf vom Papier nur Fetzen übrigbleiben. 

Das Kohlepapier wird zwischen die beiden Stachelwal¬ 
zen mit der farbigen Seite auf das Endlospapier gelegt. 
Nun steckt man es vorne noch ein Stück unter die Walze, 
so daß es beim Papiertransport mitgezogen wird. 

Durch einen Tastendruck wird der erste Durchgang ge¬ 
startet. 

Nach Beendigung des ersten Durchgangs fährt der 
Drucker das Papier zurück und man kann das Kohlepapier 
entnehmen. Drucker, die den Papierrücktransport nicht 
ausführen, sind manuell zurückzudrehen. Der Bildschirm 
färbt sich nun blau und das blaue Kohlepapier wird genau¬ 
so eingelegt, wie vorher das rote. 

Als nächstes kommt dann das schwarze Kohlepapier 
und als letztes das gelbe. Jetzt ist das Bild fertig. Der Effekt 
ist verblüffend. (P. Sties/rs) 

76 Farbband nachfüllen beim 
MPS 801 


Es dürfte kein Geheimnis sein, daß der MPS 801 zwar mit 
nachfüllbaren Farbbandkassetten ausgerüstet ist, aber kei¬ 
ne Nachfüllpatronen zu beschaffen sind. 

Ich verwende zum Nachfüllen jetzt schon seit einigen 
Monaten Geha-Füllerpatronen (20 Pfennig pro Füllung). 
Das Abfüllen der Tinte geschieht dabei durch Verwendung 
einer medizinischen Spritze. So ist es mir möglich, mit ei¬ 
ner Farbbandkassette zum ersten Mal bis zum völligen Ver¬ 
schleiß zu drucken. (Peter Lange/rs) 


77 SAVE "TEST",4 


Beim Studium des Betriebssystems des C 64 habe ich mich 
etwas intensiver mit den Geräteadressen beschäftigt. Mir 
kam dann die Idee, ein Basic-Programm einmal auf dem 
Drucker zu speichern. Und es funktionierte! Ein Haken hat 
die Sache allerdings: Ein Basic-Listing wird vom Drucker 
teilweise mit Steuerzeichen interpretiert, so daß das Listing 
ziemlich unleserlich wird. Schaltet man den Drucker je¬ 
doch beim Einschalten in den Hex-Dump-Modus, so wird 
das Listing hexadezimal gedruckt. Dieses Listing läßt sich 
durch den SAVE-Befehl wesentlich einfacher ausführen, 
als mit OPEN 1,4:CMD1:LIST 
Noch mal die Syntax: SAVE" ",4 

Das Leerzeichen muß leider eingegeben werden, da der 
Interpreter es nur so akzeptiert. 

Vielleicht findet jetzt noch irgendwer eine Möglichkeit, 
den teilweise beträchtlichen Druckerspeicher (zum Bei¬ 
spiel beim Epson TX85 8 KByte) wieder auszulesen und ihn 
als RAM-Floppy zu verwenden! (Robert Esser/rs) 

78 Star NUO mit 

Commodore-Interface 


Trotz des guten Handbuchs ist es nie ausgeschlossen, daß 
zumindest beim ersten Versuch der Ausdruck nicht so aus¬ 
sieht, wie er eigentlich soll. Das gilt besonders für den Star 
NL-10 mit Commodore-Interface, da letzteres im Gegen¬ 
satz zum Centronics-Interface einige Druckmodi nicht be¬ 
herrscht. Unsere Tabelle, in der die DIP-Schalterstellungen 
für die wichtigsten Programme aufgeführt sind, leistet hier 
Hilfestellung. (Bernward Schwedhelm/pd) 
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Vizawrite 64 
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• steht für EIN, o für AUS 

Bel den Llstings steht Modus 1 für den Ausdruck der Commodore- 
spezlflschen Steuerzeichen. Modus 2 wandelt diese automatisch In 
Klartext, ähnlich wie unser Checksummer. 

Die Schalter haben folgende Bedeutung: 

1 Automatischer Zeilenvorschub Ein/Aus 

2 Papierendeerkennung Ein/Aus 

3 Druckeradresse 4/5 

4 Seitenlänge 11 Inch/12 Inch 

5 Betriebsart Commodore/ASCII 

6 Zeichensatz Commodore Ein und Deutschland Ein 

7 Zeichensatz Commodore Ein und Deutschland Aus 

8 Zeichensatz Commodore Ein und Deutschland Ein 


79 FX-85 mit 92008/G 


Ein sehr verbreiteter Drucker ist der Epson FX-85. Haben 
Sie diesen mit einem Interface des Typs Wiesemann 
92008/G an Ihren C 64 angeschlossen, so führt der Druck¬ 
kopf bei vielen Grafikprogrammen während des Ausdrucks 
unnötige Vorwärts-Rückwärts-Bewegungen aus, die zum 
eine n die Druckermechanik übermäßig strapazieren und 
zum anderen viel Zeit kosten. 

Abhilfe schafft hier die Eingabe der folgenden Befehlsse¬ 
quenz vor dem Laden des Grafikprogramms: 

OPEN 1,4,1: PRINT#1: CLOSEI 
OPEN 1,4,3: PRINT#1: CLOSEI 
Diese Befehle fixieren den Druckmodus bis zum Aus¬ 
schalten des Druckers. Damit hat das Zittern ein Ende! 

(Dr. Erdwin Dähnhardt/rs) 

80 Platinen-Layout abnehmen - 
einfach und billig 


Durch die bedruckten Rückseiten bei veröffentlichten Plati- 
nen-Layouts ergeben sich für manche Anwender Probleme 
beim Abnehmen von Layouts. Nicht alle Fotokopierer lie¬ 
fern Kopien in ausreichender Qualität, weil schwarze Flä¬ 
chen nicht einwandfrei schwarz kopiert werden. Das Her¬ 
stellen einer neuen Folie auf Fotobasis ist recht teuer. Hier 
eine einfache und billige Lösung: 

Bei dem im 64’er-Magazin (nicht im Sonderheft) verwen¬ 
deten Hochglanzpapier lassen sich aufgedruckte Texte 
oder Bilder mit einem überall erhältlichen Kunststoff-Ra¬ 
diergummi leicht ausradieren. 

Kopieren Sie zuerst Vorder- und Rückseite des zu behan¬ 
delnden Blattes, damit Ihnen kein Text verlorengeht. Nun 
können Sie die Flächen hinter dem Layout (also auf der 
Rückseite des Blattes) freiradieren, die Seite aus dem Heft 
heraustrennen und mit Transparent-Spray durchsichtig 
machen. Das so behandelte Blatt können Sie direkt für die 
Belichtung einer mit Fotoschicht versehenen Platine ver¬ 
wenden. Probieren Sie es doch einmal; Sie werden sehen, 
es funktioniert! (H. Jürgens/kn) 
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81 Stabiles Parallelkabel für Speeddos 


Die parallele Datenübertragung bei Speeddos funktio¬ 
niert oft nur mit einem Flachbandkabel, da dieses eine be¬ 
sonders niedrige kapazitive Kopplung aufweist. Dieses hat 
aber den Nachteil, daß es nicht besonders robust ist. Möch¬ 
te man ein wesentlich stabileres, abgeschirmtes Rundka¬ 
bel verwenden, müssen die Handshake-Leitungen (meist 
Pin 8 und B des Userports) mit ungefähr 220/tF gegen Mas¬ 
se abgeblockt werden. (D. Przynco/rs) 


82 Spezial-Reset 


Ein »normaler« Reset-Taster hat den Nachteil, daß sämtli¬ 
che am seriellen Bus hängenden Peripheriegeräte (und 
nicht nur der Computer) ebenfalls einen Reset-Impuls er¬ 
halten. Eine noch akzeptierbare Folge dieser Tatsache ist, 
daß der Plotter 1520 bei jedem Reset seinen nerventöten¬ 
den Selbsttest ausführt. Unverzeihlich ist es aber, daß der 
Fehlerkanal der Floppy bei einem Reset gelöscht wird. 
Wenn ein Programm durch einen Lesefehler auf der Disket¬ 
te abstürzt, kann man also nicht durch Auslesen des Fehler¬ 
kanals erfahren, welcher Sektor fehlerhaft ist und den Feh¬ 
ler gegebenenfalls beseitigen. 

Die Lösung des Problems wäre ein Reset, der nur den 
Computer beeinflußt. Nun könnte man natürlich versu¬ 
chen, dieses zu erreichen, indem man die Reset-Leitung 
am seriellen Bus unterbricht, es geht aber auch einfacher: 

Ich habe festgestellt, daß ein sehr kurzer Reset-Impuls 
zwar den Computer ganz normal in den Einschaltzustand 



versetzt, die Peripherie von diesem Reset allerdings meist 
»nichts merkt«. Einen solchen kurzen Impuls könnte man 
unter Verwendung eines Monoflops in Verbindung mit ei¬ 
nem RC-Glied erzeugen, ein solcher Aufwand ist aber gar 
nicht nötig: Man braucht lediglich einen Taster (IxUm) und 
einen Kondensator, die nach Bild 1 geschaltet werden. 

(Torsten Bülch/rs) 

83 Puuseschalter 


Möchte man ein Spiel kurz unterbrechen, kann man dies 
mit einem Programm tun, das im Interrupt geschrieben ist. 
Was aber tun, wenn das Spiel den Interruptsektor selbst be¬ 
nutzt? Man verbindet PIN 1 (GND) und PIN 4 (IRQ) des 
Expansion-Port des C 64 und erreicht damit, daß das Spiel 
unterbrochen wird. Es bleibt alles erhalten (Sprites, Grafik, 
Musik). 

Der Prozessor rettet den Programmzähler und das Sta¬ 
tusregister und lädt den Programmzähler mit den Spei¬ 
cherzellen $FFFE und $FFFF. Diese Speicherzellen ent¬ 
halten die Einsprungadressen des Betriebssystems für die 
IRQ-Routine ($FF48). (Thorsten Böcker/rs) 


- s ^ew onuna »« . - 

Alle Codes des C 64 
auf einen Blick 


Der C 64 arbeitet intern mit verschiedenen Codes. 

Die Unterscheidung von ASCII-, Bildschirm- und Tastaturcodes 
bereitet oft Verwirrung. Orientierung in diesem Code-Dschungel 
verschaffen Ihnen die folgenden Tabellen. 


P rogrammieren in Maschinensprache beinhaltet oft 
Ein- und Ausgaben, zum Beispiel für eine Benutzer¬ 
führung am Bildschirm, oder um Eingaben von der 
Tastatur einzulesen. 

Häufig steht man auch vor dem Problem, daß man nur 
einzelne Zeichen eines Textes in einem Maschinenpro¬ 
gramm verändern will. In allen Fällen benötigt man die 
CHR$- oder Bildschirmcodes, von denen hier die Rede ist. 
Das gleiche gilt natürlich auch für Eingaben von der Tasta¬ 
tur. 

Vergleicht man in der Tabelle 1 die Spalten, so wird man 
feststellen, daß es einige nicht druckende Zeichen gibt, Co¬ 
des, die auf dem Bildschirm nichts schreiben. Es sind dies 
die ASCII- beziehungsweise die CHR$-Codes von 0 bis 31 
und von 128 bis 159. Auch findet man auf dem Bildschirm 
Zeichen, die in der ASCII-Tabelle nicht auftauchen - die re- 
versen Zeichen mit den Codes von 128 bis 255. Um alle 
druckenden ASCII-Zeichen auch auf dem Bildschirm sicht¬ 
barzu machen und dabei keine sinnlos leeren Felder mitzu¬ 


führen, mußte man die Tabelle im Betriebssystem des Com¬ 
puters umstellen. 

Ganz anders verhält es sich mit der Tastatur. Hier sieht 
die Codierung zunächst sehr zufällig aus. Natürlich ist dies 
mit der Anordnung der Tasten und der Methode, wie das 
Betriebssystem die Tasten abfragt, zu erklären. Uns soll es 

Warum verschiedene Codes? 


hier genügen, zu wissen, wie man von einem (Maschinen-) 
Programm aus einen Tastendruck registrieren kann. Man 
findet die zuletzt gedrückte Taste in den Speicherstellen 
197 ($C5) und 203 ($CB), die mit PEEK beziehungsweise 
auf der Maschinensprache-Ebene mit LDA ausgelesen 
werden kann. 

Die nachfolgende Tabelle 1 bietet auf einen Blick alle Co¬ 
des, die im C64 enthalten sind. Die Tabelle ist nach den 
CHR$-Zeichen sortiert, also in aufsteigender Reihe von 0 
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bis 255. Um das Programmieren in Maschinensprache zu 
erleichtern, sind neben den dezimalen Zahlen auch die he¬ 
xadezimalen Werte aufgeführt. 

Die Spalten drei und vier enthalten die CHR$-Zeichen 
des C64. Spalte drei zeigt dabei die Zeichen im Groß-/Gra- 
fikmodus, Spalte vier die entsprechenden Zeichen in 
Klein-/Großschriftmodus. 

Die Zeichen von 0 bis 31 und von 128 bis 159 sind diejeni¬ 
gen CHR$-Codes, deren Aufruf auf dem Bildschirm kein 
sichtbares Zeichen hervorbringt, so zum Beispiel das Um¬ 
stellen der Cursorfarbe, oder die Codes der Funktionsta¬ 
sten, die man nicht darstellen (?CHR$(133) ergibt nicht 
»Fl«), aber für eine Abfrage (IFA$ = CHR$(133)THEN...) 
nutzen kann. Hier wird nicht zwischen den Modi unterschie¬ 
den, da das Ergebnis in beiden Fällen das gleiche ist. Mit 
dem Bildschirmcode kann man nicht über diese Funktio¬ 
nen verfügen! 

Die Bildschirmcodes der fünften und sechsten Spalte 
sind die Werte, die man erhält, wenn man das CHR$-Zei- 
chen mit PRINT ausgibt und die entsprechende Bild- 

Anwendung in Assembler 


schirmspeicherstelle mit PEEK ausliest. Für Maschinen¬ 
sprache ist auch hier wieder der hexadezimale Wert ange¬ 
geben. Die reversen Zeichen erhält man durch Addition von 
128, in Maschinensprache durch den Befehl »ORA #$80«. 

Obwohl der C64 keinen echten ASCII-Zeichensatz hat, 
ist dieser in Spalte sieben aufgeführt. Man benötigt den 
ASCII-Code vor allem für die Datenfernübertragung (DFÜ) 
und zur Ansteuerung von nicht MPS-kompatiblen Druk- 
kern, die nicht mit einem »intelligenten« Interface betrieben 
werden. Die Erklärungen der verwendeten Kurzzeichen 
stehen in der Tabelle 2. Mehr zum Thema Druckeransteue- 
rung finden Sie im Sonderheft 32. 

In den letzten beiden Spalten sind die Tastaturcodes ent¬ 
halten, wie man sie beim Auslesen der Speicherstellen 197 
und 203 erhält. Bitte beachten Sie, daß der Code 63 ($3F) 
der RUN/STOP-Taste entspricht, also dem CHR$-Code 3. 
Da aber PRINT CHR$(3) ein Programm nicht anhält und 
sich nicht abfragen läßt, ist es in der Tabelle nicht aufge¬ 
führt. (Thomas Röder/sk) 
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STX 



3 

03 
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30 

0 

0 

48 

30 

0 

35 
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31 

1 

1 

49 

31 

1 
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50 

32 

2 

2 

50 
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3B 
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11 
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54 

36 

6 

19 

13 

55 

37 

7 
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7 
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0 

0 
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27 

ID 
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9 
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57 

39 

9 

32 
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50 

3A 
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2D 
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3B 
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3B 
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50 

32 
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3C 
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62 
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63 

3F 

? 

? 

63 
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40 

ü? 

© 
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00 

If 

46 

2E 

65 

41 

A 

a 

1 

01 

A 

10 

0A 

66 

42 

B 

b 

2 

02 

B 

20 

IC 

67 

43 

C 

c 

3 

03 

G 

20 

14 

60 

44 

D 
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4 

04 

D 

10 

12 

69 

45 

E 

e 

5 

05 

E 

14 

0E 

70 

46 

F 

f 

6 

06 

F 

21 

15 

71 

47 
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g 

7 

07 

G 

26 

1A 

72 

40 

H 

h 

8 

08 

H 
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ID 

73 

49 
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09 

I 

33 

21 
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4B 
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L 
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24 

70 
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N 
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27 
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□ 
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10 
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51 

0 
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11 
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12 
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11 
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16 
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58 
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59 

Y 

y 

25 

19 

Y 

25 

19 

90 
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z 
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26 

1A 

z 
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0C 

91 

SD 
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27 

ID 
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92 
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20 

IC 


4B 

30 
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29 
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54 
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95 
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57 

39 

96 

60 
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— 

64 
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97 

61 

♦ 

A 

65 

41 
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98 

62 
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D 

66 

42 
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99 
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43 
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100 
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60 

44 
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70 

46 

i 
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67 

1 

(3 

71 

47 
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104 

60 

1 

H 

72 

48 
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I 

73 

47 

i 
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6D 
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M 
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P 
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71 

• 

0 

Hl 

51 
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— 

R 

82 
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73 
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B 

B3 

. 
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74 

i 

T 

B4 

54 

t 
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75 

i 

U 

B5 

55 
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76 

X 

V 

06 

56 

V 
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0 

w 

07 

57 
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X 

00 

5B 

X 
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i 

Y 

09 

59 
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70 

♦ 

z 

90 

5A 
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7B 
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4 

91 

5D 
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f 

fl 
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5C 
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E2 

■■ 


93 

62 




227 

E3 

~ 


99 

63 




22B 

E4 


— 

100 

64 




229 

ES 

1 

1 

101 

65 




230 

E6 

» 

«• 

102 

66 




231 

E7 

i 

1 

103 

67 




232 

E8 

m 

*• 

104 

60 




233 

E9 

r 


105 

69 




234 

Eft 

1 

1 

106 

6A 




235 

EB 



107 

6B 




535 

tu 

■ 

» 

100 

6C 




237 

ED 

L 

*• 

109 

6D 




238 

EE 

T 


110 

6E 




239 

EF 

_ 

— 

111 

6F 




240 

F0 

r 

r 

112 

70 




241 

Fl 

—I- 


113 

71 




242 

F2 

T 

T 

114 

72 




243 

F3 

H 

H 

115 

73 




244 

F4 

1 

1 

116 

74 




245 

F5 

1 

1 

117 

75 




246 

F6 

1 

1 

113 

76 




247 

F7 



119 

77 




243 

FB 

” 


120 

73 




249 

F9 


— 

121 

79 




230 

FA 

J 

* 

122 

7A 




251 

FB 

■ 

■ 

123 

7B 




252 

FC 


• 

124 

7C 




253 

FD 

J 

j 

125 

7D 




254 

FE 


■ 

126 

7E 




255 

FF 

tr 

K 

94 

3E 





Tabelle 1. Die Codes des C64 (Schluß) 


NUL = Null 

SOH = Start ot Heading 

STX = Start of Text (Textbeginn) 

ETX = End of Text (Textende) 

EOT = End of Transmission (Übertragungsende) 

ENQ = Enquiry (Testanfrage) 

ACK - Acknowledge (Quittierung) 

BEL = Bell (Klingelzeichen) 

BS = Backspace (Zeichen zurück) 

HT = Horizontal Tabulation 
LF = Line Feed (Zeilenvorschub) 

VT = Vertical Tabulation 

FF = Form Feed (Formatanpassung) 

CR = Carriage Return (Wagenrücklauf) 

50 = Shift out (Shift aus) 

51 = Shift In (Shift ein) 

DLE = Data Link Escape (Datenverbindung abhalten) 

DC - Device Control (Gerätesteuerung) 

NAK = Negative Acknowledge (Gegenquittierung) 

SYN = Synchronous Idle (synchronlos) 

ETB = End of Transmission Block (Block Übertragungsende) 
CAN = Cancel (Stornieren, zum Beispiel Puffer leeren) 

EM = End of Medium (z.B, Papierende) 

SUB = Substitute (Austausch) 

ESC = Escape (übergehen, Druckercode) 

FS = File Separator (Flletrennung) 

GS = Group Separator (Trennung von Gruppen) 

RS = Record Separator (Aufzeichnung trennen) 

US = Unit Separator (Einheitentrenner) 

SP = Space (Leerzeichen) 

DEL = Delete (Löschen) 


Tabelle 2. Erklärung der in Tabelle 1 abgekürzten 
ASCII-Zelchen 
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C64 


EINGABEHILFEN 


A 


Chetksummer 

V3 und MSE 


Diese beiden Programme sind unentbehrlich 
beim Abtippen unserer Listings. Sie helfen, 
Tippfehler vor allem bei Maschinenprogram¬ 
men zu vermeiden und sparen eine Menge Zeit. 


N 


I obody is perfect. Jeder Computer-Fan, egal ob bluti¬ 
ger Anfänger oder ausgefuchster Profi, macht beim 
I Abtippen von Programmen Tippfehler. Diese Fehler 
später zu finden, kann ein langwieriges Unterfangen sein. 

Deshalb haben wir für Sie die Programme »Checksum¬ 
mer V3« und »MSE« (MaschinenSpracheEditor) entwickelt. 
Der Checksummer ist für Basic-Programme und der MSE 
für Maschinensprache-Listings zuständig. 

Der Checksummer 


Zuerst einmal müssen Sie das Checksummer-Programm 
(siehe Listing 1) abtippen. Dabei sollten Sie äußerst sorgfäl¬ 
tig vorgehen, vor allem bei den Zahlen in den DATA-Zeilen 
20 bis 30. Wenn Sie trotzdem noch einen Tippfehler 
gemacht haben, meldet sich das Programm später mit 
einem entsprechenden Hinweis. Wenn Sie fertig sind, spei¬ 
chern Sie das Programm auf Diskette oder Kassette. 

Jetzt geht es los: 

1. Starten Sie den Checksummer durch die Eingabe von 
»RUN« und das Drücken der RETURN-Taste. 

2. Wenn die Meldung »Checksummer aktiviert...« auf dem 
Bildschirm erscheint, haben Sie keinen Tippfehler 
gemacht und der Checksummer ist nun eingeschaltet. 

3. Zum Löschen des Basic-Programms geben Sie bitte 
»NEW« ein. Keine Angst, der Checksummer selbst wird 
dadurch nicht gelöscht. 

4. Nun können wir den Checksummer testen. Geben Sie 
bitte folgende Zeile ein und drücken Sie die RETURN-Taste: 
1 REM 

In der linken oberen Bildschirmecke sehen Sie nun die 
Prüfsumme über die eben eingegebene Basic-Zeile. Sie 
muß <63> lauten. Dem Checksummer ist es übrigens 
egal, ob Sie »1 REM« oder »1 REM« eintippen. Nur innerhalb 
von Anführungszeichen ist die richtige Anzahl an Leerzei¬ 
chen wichtig. Diese Prüfsummen erscheinen (sofern Sie 
den Checksummer eingeschaltet haben) immer dann, wenn 
Sie eine Basic-Zeile eintippen und dann die RETURN-Taste 
drücken. In der 64'er finden Sie die Prüfsumme immer am 
Ende jeder Programmzeile. 


10 PRINT"CHECKSUMMER FUER C 64" 

11 PRINT:PRINT"EINEN MOMENT, BITTE ..." 

12 FOR 1=828 TO 864:READ A:POKE I,A:PS=PS+ 

A:NEXT I 

13 IF PS05765 THEN PRINT "TIPPFEHLER IN DE 
N ZEILEN 20 BIS 22":END 

14 SYS 828:PS=0:FOR 1=58464 TO 58583:READ 
A:POKE I,A:PS=PS+A:NEXT I 

15 IF PS016147 THEN PRINT "TIPPFEHLER IN D 
EN ZEILEN 22 BIS 30":END 

16 POKE 1,53:POKE 42289,96:POKE 42290,228 

17 PRINT"CHECKSUMMER AKTIVIERT." 

18 PRINT:PRINT" AUSSCHALTEN : POKE1.55 ODE 
R"SPC(27>"< RUN/STOP+RESTORE>” 

19 PRINT:PRINT" ANSCHALTEN : POKE1.53" 

20 DATA 169,0.133.254,162,1,189,93.3,133,2 
55,160,0,177,254 

21 DATA 145,254,136,208,249,230,255,165,25 
5,221,95,3,208,238,202 

22 DATA 16,230,96,160,224,192,0,160,2,169, 
0,170,133,254,177 

23 DATA 95,240,40,201,32,208,3,200,208,245 
,133,255,138,41,7 

24 DATA 170,240,14.72,165,255,24,42,105,0, 

202.208.249.133.255 

25 DATA 104,170,232,165,255,24,101,254,133 
,254,76,111,228,192,4 

26 DATA 48,219,198,214,165,214,72,162,3,16 
9,32,157,1,4,189 

27 DATA 212,228,32,210,255,208,12,0,92,72, 

32,201,255,170,104 ’ 

28 DATA 144,1,138,96,202,16,228,166,254,16 
9,0,32,205,189,169 

29 DATA 62,32,210,255,104,133,214,32,108,2 

29.169.141.32.210.255 

30 DATA 76,128,164,9,60,18,19 
© 64’er 

Listing 1. Der »Checksummer 64 V3« für Basic-Listings 


5 PRINT CHRS(14) <242> 

10 PRINT"<CLR>" <254> 

20 PRINT"< 130> 
30 PP INT" C4D0WN, 2SPACE > TJEST {SPACE , BLUE, 6SP 
1 ~kLE>" <022> 


40 PRINTE 


64'er 


<108> 


Bild 1. Die Bedeutung der Steuerzeichen 
wird im nachfolgenden Text erklärt 

In Zeile 10 müssen Sie nach den Anführungszeichen die 
Tasten <SHIFT CLR/HOME> drücken und nicht die 
Klammern mit dem Wort CLR eingeben. In Zeile 20 
drücken Sie nach den Anführungszeichen die CBM- 
Taste und den Buchstaben < Q >, gefolgt von mehreren 
SHIFT- und Stern-Tasten und zum Schluß die CBM- 
Taste und den Buchstaben <W>. In Zeile 30 ist es vier¬ 
mal die CURSOR-abwärts-Taste, gefolgt von zweimali¬ 
ger Leertaste, dann <SHIFT T> und normal EST, zum 
Schluß noch einmal die Leertaste, die Farbtaste Blau 
<CTRL 7> und sechsmal die Leertaste. Zeile 40 
besteht lediglich aus mehreren Grafikzeichen, die mit 
der CBM-Taste und <B> erzeugt werden. 


CTRL steht für Control-Taste, so bedeutet |CTRL+A|, daß Sie die Control-Taste und die Taste »A» drücken müssen. Im folgenden steht: 

(DOWNI 

Taste neben rechtem Shift, 

ISPACEI 

Leertaste 

IRVSONI 

Control-Taste 8 9 


Cursor unten 

ISHIFT-Spacel 

Shift-Taste 8 Leertaste 

|RVOFF| 

Control-Taste 8 0 

|UP| 

Shift-Taste 8 Taste neben 

|F1| bis |F8| 

Funktionstasten 

lORANGEj 

Commodore-Taste 8 1 


rechtem Shift; Cursor hoch 

|RETURN| 

Return-Taste 

IBROWNI 

Commodore-Taste 8 2 

ICLRj 

Shift-Taste 8 2. Taste 

|BLACK| 

Control-Taste 8 1 

(LIG.REDI 

Commodore-Taste 8 3 


ganz rechts oben 

IWHITEI 

Control-Taste 8 2 

|GREY 1| 

Commodore-Taste 8 4 

|INST| 

Shift-Taste 8 Taste 

(RED) 

Control-Taste 8 3 

|GREY 2| 

Commodore-Taste 8 5 


ganz rechts oben 

|CYAN] 

Control-Taste 8 4 

|LIG.GREEN| 

Commodore-Taste 8 6 

|HOME| 

2. Taste von ganz rechts oben 

|PURPLE| 

Control-Taste 8 5 

|LIG.BLUE| 

Commodore-Taste 8 7 

(DEL) 

Taste ganz rechts oben 

|GREEN| 

Control-Taste 8 6 

[GREY 3] 

Commodore-Taste 8 8 

IRIGHTI 

Taste ganz rechts unten 

|BLUE| 

Control-Taste 8 7 

Tabelle 1. 


fLEFT) 

Shift-Taste 8 Taste unten rechts 

|YELLOW| 

Control-Taste 8 8 

Die Steuerbefehle in den Listings 
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C64 


Diese Zahlen dürfen Sie NICHT mit abtippen. 

Als Beispiel sehen Sie Bild 1. Am rechten Rand jeder 
Spalte sehen Sie die Prüfsummen in eckigen Klammern. 

Damit sind wir beim zweiten wichtigen Punkt: Sehen Sie 
sich die Zeile 240 von Listing 2 genauer an. Nach dem ersten 
Anführungszeichen nach dem PRINT-Befehl sehen Sie eine 
geschweifte Klammer |). Immer, wenn Sie in einem unserer 
Listings diese Klammern sehen, dürfen Sie das, was inner¬ 
halb der Klammern steht, nicht eintippen. Sie müssen die 
entsprechende Taste drücken. Beispiel: 

10 PRINT "(CLRj" 


100 REM DIESES PROGRAMM ERZEUGT PEN <210> 

110 REM MSE VI.1 AUF DISKETTE. <039> 

120 REM BESITZER EINER DATASETTE <178> 

130 REM MUESSEN DIE '8' AM ENDE VON <145> 

140 REM ZEILE 343 IN EINE * 1• AENDERN! <176> 

150 REM <212> 

230 IF PEEKf44)032 THEN PRINT"CCLR5SIE HA 
BEN VERGESSEN, DIE POKES EINZUGE- BEN! 

":END <050> 

240 PRINT"CCLRD"i:DIM H(75):FOR 1=0 TO 9 <042> 

250 H(48+1)=I:H(65+I)=I+10:NEXT:Z=1000 <136> 

260 FOR 1=2048 TO 3755 STEP 20:PRINT"CHOME 

DICH LESE ZEILE:''Z <253> 

261 FOR N=0 TO 19:READ A$:IF LEN(A*)<>2 TH 

EN '900 <062> 

262 IF PEEK(63)+PEEK(64)*256<>Z THEN 800 <011> 

270 H=ASC(LEFTS(A$,1)):L=ASC(RIGHT®(A$,1)) <199> 

280 D=H(H)*16+H(L):S=S+D:POKE I+N.D <165> 

290 NEXT:READ V:IF SoV THEN 900 <139> 

300 S=0:Z=Z+1:NEXT:R=PEEK(2111):H=PEEK(210 

6) <12 6 > 

301 POKE 53280,R = POKE 53281,H'-POKE 646,R:P 
RINT"CCLRDDIE DATA-ZEILEN SIND FEHLERF 

REI!” <080> 

302 PRINT"SIE KOENNEN NUN DIE FARBEN DES M 

SE" <209> 

303 PRINT"EINSTELLEN.":PRINT"C2D0WN,SPACE, 

RVSONDDRUECKEN SIE <1>, <2> ODER <9> <205> 

304 PRINT"CDOWN,2SPACED<1> - RAHMEN-/SCHRI 

FTFARBE <013> 

305 PRINT"C2SPACE><2> - HINTERGRUNDFARBE <233> 

306 PRINT"CDOWN,2SPACE><9> - FARBEN UEBERN 

EHMEN <158> 

307 PRINT"C2D0WNDFARBE <1>:"R:PRINT'FARBE 

<2> = "H <066> 

308 GET A = IF A=0 THEN 308 <210> 

309 IF A=1 THEN R=(R+1)AND 15 <098> 

310 IF A=2 THEN H=(H+1>AND 15 <086> 

311 IF A=9 THEN 340 <217> 

312 GOTO 301 <034> 

340 POKE 2106,H:POKE 2111,R <153> 

342 POKE 631,19:P0KE 632,13:POKE 198,2 <135> 

343 PRINT"CCLRDSAVE"CHR$(34)"MSE VI.1"CHR* 

< 34)",8 <091> 

344 POKE 43,1:POKE 44,8:P0KE 45,172:POKE 4 

6,14:END <140> 

800 PRINT"CCLR.RVSONDSIE HABEN ZEILE"Z"CLE 

FT.SPACEDVERGESSEN:":A=PEEK(646)AND 15 <124> 
810 POKE 646,PEEK(53281)AND 15:PRINT"LIST" 

Z-2 “-"Z+2:POKE 646,A <224> 

820 GOTO 920 <082> 

900 PRINT"CCLR.RVSONDSIE HABEN EINEN TIPPF 

EHLER GEMACHT:":A=PEEK(646)AND 15 <154> 

910 POKE 646,PEEKl53281>AND 15:PRINT"LIST" 

Z:POKE 646,A <173> 

920 POKE 631,19:POKE 632,17:POKE 633,13:PO 

KE 198,3:END <126> 

1000 DATA 00,0B,08.0A,00,9E,32,30,36,31,00 

,00,00,A2,08,A9,36,85,A4,A9, 1247 <119> 

1001 DATA 08,85,A5,A9,00,85,A6,A9,B0,85,A7 

,A0,00,Bl,A4,91,A6,C8,D0,F9, 2888 <054> 

1002 DATA E6,A5,E6,A7,CA,D0,F2,A9,36,85,01 

,4C,00,B0,20,D1.Bl,A9,00,8D, 2781 <096> 

1003 DATA 21,D0,A9,0F,8D,20,D0,8D,86.02,A0 

,B3,AB,74,20,FF,Bl,A0,B3,A9, 2679 <0B9> 

1004 DATA B9,20,FF,Bl,A0,00,20,CF,FF,99,01 

• , 02,C8,C9,0D,D0,F5,88,F0,D2, 2912 <217> 

1005 DATA C0,11,90,02,A0,10,8C,00,02,20,EA 

,B1,A0,B3,A9,CF,20,FF,B1,20, 2327 <045> 

1006 DATA 8E,B4,85,FC,85,62,20,8E,B4,85,FB 

,85,61,20,A7,B4,D0,20,A0,B3, 2864 <199> 

1007 DATA A9,E5,20,FF,B1,20,8E.B4,85,60.20 


bedeutet: Nach dem Anführungszeichen die »Bildschirm- 
Iöschen«-Taste drücken (<SHIFT CLR/HOME>). In Ta¬ 
belle 1 sehen Sie eine Zusammenfassung aller möglichen 
Steuertasten mit dem entsprechenden Klartext. 

Weiterhin sehen Sie in Bild 1 (Bedeutung der Steuerzei¬ 
chen) in Zeile 30 ein unterstrichenes »T« nach der Klammer. 
Das bedeutet, daß Sie ein »T« zusammen mit der SHIFT- 
Taste drücken müssen, also < SHIFTT>. Wenn ein Zeichen 
»überstrichen« ist, müssen Sie dieses zusammen mit der 
CBM-Taste eingeben. Die CBM-Taste befindet sich ganz 
links unten auf der Tastatur und hat die Aufschrift »C=«. 


,8E,B4,85,5F,20,A7,B4,D0,0A, 2624 <091> 

1008 DATA A5.61,C5.5F,A5,62,E5,60,90,06,20 

,43,B3,4C,3A,B0,A9,AA,A0,00, 2379 <167> 

1009 DATA EA,EA,E6,FB,D0,02,E6,FC.20,3F,B2 

,90,EF,4C,FB,B4,A2,02.86,58, 3190 <041> 

1010 DATA A9,A6,A0,9D,20,F2,Bl,20,E4,FF,F0 

,FB,C9,30,90,0C,C9,47,B0,08, 2970 <231> 

1011 DATA C9,3A,90,0B.C9,41,B0,07,09,14,D0 

,0F,4C,0B,Bl,20,D2,FF,A6,58, 2322 <121> 

1012 DATA 95.F7,C6.58,D0,D2,60,AE,8D,02,F0 

,26,C9,0C,D0,03,4C,0B.B6,C9, 2685 <057> 

1013 DATA 13,D0,03,4C,8B,B5,C9,0D,D0,03,4C 

,BA,B4,C9,10,D0,03,4C,68,B5, 2282 <225> 

1014 DATA C9,0E,D0,06,20,5F,B4,4C,64,Bl,4C 

,92,B0,A5,F9,20,02,B1,0A,0A, 2132 <208> 

1015 DATA 0A,0A,85,F9,A5,F8,20,02,B1,05,F9 

,60,C9,3A,90.02,69,08,29,0F, 1950 <092> 

1016 DATA 60,A6,59,E0,08,90,1F,A6.58,E0,02 

,B0,06,20,D2,FF,4C,8E,B0,C6, 2509 <1B8> 

1017 DATA 59,A0,14,A9,92,20,F2,B1.CA,D0,FA 

,84,57,68,68.4C,0B,B1,A6,D3, 2891 <197> 

1018 DATA E0,08,B0,03,4C,92,B0,20,D2,FF,A6 

,58,E0,02,90,09,C6,59,20,D2, 2468 <049> 

1019 DATA FF,C6,58,D0,F9,4C,8E,B0,48,4A,4A 

,4A,4A,20,59,B1,68,29,0F,C9, 2419 <035> 

1020 DATA 0A,90,02,69,06,69,30,4C,D2,FF,A2 

,FC,9A,20,D1.Bl,20,48,B2,20, 2261 <073> 

1021 DATA EA.Bl,20,9F,B2,A5,FC,20,4E,Bl,A5 

,'-F° 10,4E,B1,20,ED,B1,A9,3A, 2860 <148> 

1022 DATA A0,20,20,F2,B1,A9,00,85,59,20,8E 

,B0,20,ED,B1,A4,59,20,EF,B0, 2530 <233> 

1023 DATA 91,FB.C8,84,59,00,08.90,EC,20,10 

,B2,A9,12,20,D2.FF,20,8E,B0, 2657 <105> 

1024 DATA 20,EF,B0,C5,FF,F0,0D,20,43,B3,A9 

,14,A0,14,20,F2,B1,4C,A2,B1, 2665 <034> 

1025 DATA A9,92,20,D2,FF,20,33,B2,20,E0,B2 

,20.3F,B2,90,9F,4C,8B,B5,A9, 2648 <123> 

1026 DATA 93,20,D2,FF,A2,00,A9,03,9D,00,D8 

, 9D,00,D9,9D,00.DA,9D,00,DB. 2476 <237> 

1027 DATA E8,D0,EF,60,A9,0D,20,A9,20,4C,D2 

,FF,20,D2,FF,98,40,D2,FF,20, 2965 <160> 

1028 DATA E4,FF,F0,FB,60,84,5D,85,5C,A0,00 

,B1,5C,F0,06,20,D2,FF,C8.D0, 3100 <077> 

1029 DATA F6,60,A5,FB,85,5A,A0,00,84,5B,Bl 

,FB,18,65,5A,65,5A,90,02,E6, 2606 <156> 

1030 DATA 5B,06,5A,26,5B,C8,00,08.90,EC,A5 

,5A,65,5B,85,FF,60,18,A5,FB, 2467 <219> 

1031 DATA 69,08,85,FB,90,02,E6,FC,60,A5,FB 

,C5,5F,A5,FC,E5,60,60,A0,B3, 3106 <183> 

1032 DATA A9,FB,20,FF,B1,A0,01,B9,00,02,20 

,D2 ,FF,CC, 00,02 ,C8,90, F4, A9 , 2692 <098> 

1033 DATA 14,ED,00,02,AA,20,ED,Bl,CA,D0,FA 

,A5,62,20,4E,B1,A5,61,20,4E, 2457 <060> 

1034 DATA B1,20,ED,B1,A5,60,20,4E,B1,A5,5F 

,20.4E.B1,EA,EA,EA,EA,EA,EA, 3122 <190> 

1035 DATA EA,EA,24,5E,10,01,60,A9,12,20,D2 

,FF,A2,28,20,ED,Bl,CA,D0,FA, 2703 <087> 

1036 DATA A9,92,4C,D2,EF,A5,D6,09,16,B0,01 

,60,A9,A0,85,A4,A9,78,85,A6, 2945 <204> 

1037 DATA A9,04,85,A5,85,A7,A2,13,A0,27,B1 

,A4,91,A6,88,10,F9,CA,F0,19, 2671 <208> 

1038 DATA 18,A5,A4,69,28,85,A4,90,02,E6,A5 

,18,A5,A6,69,28.85,A6,90,E0, 2503 <251> 

1039 DATA E6,A7,4C,B6,B2,A9,91,4C,D2,FF,A9 

,0F,8D,18,D4,A9,00,8D,05,D4, 2776 <000> 

1040 DATA A9,F7.8D,06,D4.A9,11 ,8D,04,1)4,A9 

, 32,8D, 01 ,D4, A9,00,81), 00. D4, 2413 <126> 

1041 DATA A0,80,20,09,B3.A9,10,80,04,1)4,60 

,A2,FF,CA,D0,FD,88,D0,F8.60, 2914 <240> 

1042 DATA A9,0F,8D,18,D4,A9,2D,8D,05,D4,A9 

,A5.BD,06,D4,A9,21,8D,04,D4, 2385 <119> 

1043 DATA A9,07,8D,01,D4,A9,05,BD,00,D4,A0 


160 
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,FF,20 > 09.B3 > A9,20,8D,04.D4, 2250 <0V8> 

1044 DATA A9,00,8D.01.D4,8D,00,D4,60,38.20 

,F0.FF.8A.48i98.48i18iA0.06. 2179 <175> 

1045 DATA A2,18,20,F0,FF.A0,B4,A9,0A,20,FF 

,B1,20,12,B3.20.E4,FF,F0,FB. 2931 <093> 

1046 DATA A2.1D.A9,14.20,D2,FF,CA,D0,FA,68 

.A8i68.AA.18i4C.F0iFFi0Di0D. 2704 <088> 

1047 DATA 0D,20,20,20,20,20,20,20,4D,41,53 

,43,48,49,4E,45,4E,53.50,52. 1144 <216> 

1048 DATA 41,43,48,45,20,2D,20,45,44,49,54 

,4F,52,20,00,00,20,20,20,20. 1023 <038> 

1049 DATA 20,20,20,20,56,4F,4E,20.4E,2E,4O 

,41,4E,4E,20,26,20,44,2E,57, 1128 <206> 

1050 DATA 45,49,4E,45,43,4B,00,0D,0D,00,20 , 

,20,20,50,52.4F,47,52,41,40, 1102 <117> 

1051 DATA 4D,4E,41,40,45,20,3A,20,00,00,00 

,20,20,20,53,54,41,52,54,41. 1073 <095> 

1052 DATA 44,52,45,53,53,45,20,3A,20,24,00 

,00,00,20,20,20,45,4E,44,41, 1014 <129> 

1053 DATA 44,52,45,53.53,45,20.20,20,3A,20 

,24,00,92,01,01,50,52,4F,47, 1136 <228> 

1054 DATA 52,41,40,4D,20.3A,20,00,12,20,20 

,2A,2A,2A,20,46,41,4C,53,43, 1024 <027> 

1055 DATA 48,45,20,45,49,4E,47,41,42,45,20 

,2A,2Ai2A.20,20,92,00,0Di0D, 1058 <098> 

1056 DATA 2A,2A,2A,20,45.4E,44,45,20,2A,2A 

,2A,00,13,01.20,20,12,44,92, 916 <153> 

1057 DATA 49,53,4B,20,4F,44,45,52,20,12.54 

,92,41,50,45,00,00,13,20,20, 1151 <035> 

1058 DATA 49,2F.4F,20,20,20,46,45,48,40,45 

,52,00,20,01,Bl,20,48,B2.A0, 1606 <012> 

1059 DATA B3,A9,CF,20,FF.Bl,20,8E,B4,85,FC 

,20,8E,B4,85,FB,C5,61,A5,FC, 3207 <251> 

1060 DATA E5,62,90,23,A5,FB,C5.5F,A5,FC,E5 

,60,B0,19,20,A7,B4,D0,14,60, 2860 <112> 

1061 DATA 20,A7,B4,F0,0C,85,F9,20,A7.B4,F0 

,05,85,F8,4C.EF,B0,68,68,20, 2749 <088> 

1062 DATA 43,B3,4C,5F,B4,20,CF,FF,C9,4C,D0 

,09,20,D1,B1,20.48,B2,4C,0B, 2372 <046> 

1063 DATA B6,C9,0D,60,A9,00,85,5E.20,5F,B4 

,20,EA,Bl,20,00,B5>24,§E,30, 2042 <120> 

1064 DATA 05,20,E4,FF,F0,FB,20,El,FF,F0,26 
,20,9F,B2,24,5E,10,09,20,4E, 2435 

1065 DATA B5,20,0D,B5,20,60,B5,20.33,B2,20 

,3F,B2,90,D7,A0,B4,A9,28,20. 2190 <20?> 

1066 DATA FF.Bl,20,E4,FF,C9,00,D0,F9,A9,00 

,85,5E,A5,61,85,FB,A5,62,85, 3056 <240> 

1067 DATA FC,20,E0.B2,4C,64,Bl,A5,FC,20,4E 

,Bl,A5,FB,85,FF,20,4E,Bl,A9, 3003 <221> 

1068 DATA 20,A0,3A,20,F2,B1,A0,00,20,ED,B1 

,Bl,FB,20,4E,Bl,C8,C0,08,90, 2566 <070> 

1069 DATA F3,20,ED,B1,24,5E,30,03,A9,12,2C 

,A9,20,20,D2,FF,20,10,B2,A5, 2190 <059> 

1070 DATA FF,20,4E,Bl,A9,92,20,D2,FF.4C.EA 

,B1,A9,FF,85,B8,85,B9,A9,04, 3073 <029> 

1071 DATA 85,BA,20,C0,FF,A2,FF,4C,C9,FF,20 

,CC,FF,A9,FF,4C,C3,FF,20,5F, 3315 <189> 

1072 DATA B4,A9.80,85,5E,20,4E,B5,20,48.B2 

,A2,24,A9,2D,20,D2,FF,CA,D0, 2596 <111> 

1073 DATA FA,20,EA,B1,20,EA,B1,20,60,B5,4C 

,C1,B4.20.B8,B5,A6,5F,A4,60, 2812 <015> 

1074 DATA A9.61,20,D8,FF,B0,0A,20,B7,FF,29 

,BF,D0,03,4C,FB,B4,A9,01,20, 2577 <201> 

1075 DATA C3,FF.20,68,B6,A0,B4,A9,4F,20.FF 

,B1,20,F9,B1,4C,FB,B4,20.68, 2921 <237> 

1076 DATA B6,A9,37,A0,B4,20,FF,B1,20,F9,B1 

,A2,08,C9,44,F0,06,A2,01,C9, 2717 <213> 

1077 DATA 54.D0.F1,A9,01,A8,20,BA,FF,A0,00 

,E0.01,F0 >1A,A9,40,8D,20,02, 2403 <101> 

1078 DATA A9,3A,8D,21,02,B9,01,02,99,22,02 

,C8,CC,00,02,90,F4,C8,C8,D0, 2182 <127> 

1079 DATA 0C.B9.01,02,99,20.02,C8,CC,00,02 

,D0,F4,98,A2,20,A0,02,4C,BD, 2018 <025> 

1080 DATA FF,20,B8,B5,A5,BA,C9,08,90,33,A6 

,B9,86,57,A9,01,20,C3,FF,A9, 2800 <022> 

1081 DATA 60,85,B9,20,C0,FF,B0,28,A5,BA,20 

,B4,FF,A5,B9.20,96,FF,20,A5, 2911 <053> 

1082 DATA FF,85,61,A5,90.4A.4A,B0,13,20,A5 

,FF,85,62,20,AB,FF,A5,57,85, 2663 <214> 

1083 DATA B9,A9,00,20,D5,FF,90.03,4C,A3,B5 

,86,5F,84,60,A5,BA,C9,01,D0, 2639 <131> 

1084 DATA 0A,AD,30,03,85,61,AD,3E,03,85,62 

,4C,FB,B4,A9,13,20,D2,FF,A2, 2300 <120> 

1085 DATA IC, 20, ED, Bl, CA, D0, FA. 60,00., 00,00 

,00,00,00,00,00.00,00,00,00, 1230 <143> 

® 64'er Listing 2. Der MSE-Lader 


Der MSE 


Der MSE dient zur Eingabe von Maschinensprache-Pro¬ 
grammen. Als erstes müssen Sie den sogenannten 
»MSE-Lader« (Listing 2) abtippen. Dieser erzeugt erst das 
eigentliche MSE-Programm auf Diskette oder Kassette. 
Wichtig: Vor dem Eintippen des MSE-Laders müssen 
Sie unbedingt ein paar Befehle eingeben (ohne 
Basic-Zeilennummer): POKE 44,32: POKE 8192,0: NEW 

Jetzt können Sie beginnen, das Listing 2 abzutippen. Der 
MSE-Lader erkennt zwar, wenn Sie beim Eintippen der DA- 
TA-Zeilen einen Fehler gemacht haben, aber wenn Sie 
ganz sichergehen möchten, sollten Sieden Checksummer 
vor dem Eintippen aktivieren. Die Prüfsummen für den 
MSE-Lader finden Sie am Ende der jeweiligen Pro¬ 
grammzeilen. 

Wenn Sie das Listing 2 nicht auf einmal abtippen möch¬ 
ten, müssen Sie vor jedem neuen Laden des Programms 
unbedingt die oben genannte POKE-Zeile eingebenl 

Wenn Sie alles richtig gemacht haben und das Pro¬ 
gramm fehlerfrei abgetippt wurde, speichert es sich nach 
dem Starten selbst auf Diskette oder Kassette unter dem 
Namen »MSE VI .0«. Dieses fertige MSE-Programm laden 
Sie dann bei Bedarf wie ein normales Basic-Programm und 
starten es mit »RUN«. 

So arbeitet man mit dem MSE 

Als erstes möchte der MSE den Namen des zu bearbei¬ 
tenden Programms wissen. Dieser steht in der ersten Zeile 
unserer MSE-Listings. Dann müssen Sie die Start- und 
Endadresse des Programms eingeben. Dies sind die letz¬ 
ten beiden vierstelligen Hexadezimalzahlen in der ersten 
Zeile unserer Listings. 

Wenn Sie ein Programm von Diskette oder Kassette 
laden wollen, um an einer bestimmten Stelle weiterzutip¬ 
pen od~' noch eine Korrektur vorzunehmen, geben Sie auf 
die Frage nach der Startadresse ein »L« ein. Danach müs¬ 
sen Sie < D > oder <T> drücken, je nachdem, ob Sie von 
Diskette oder Kassette (»tape«) laden möchten. Wenn das 
Programm unter diesem Namen nicht auf der Diskette vor¬ 
handen ist oder ein sonstiger Ladefehler vorlag, meldet 
sich der MSE mit »l/O-ERROR«. In diesem Fall drücken Sie 

< RUN/STOP RESTORE > und geben einfach noch einmal 
»RUN« ein. 

Beim Abtippen geben Sie nach und nach die abgedruck¬ 
ten Buchstaben und Zahlen des jeweiligen Listings ohne 
die Freiräume dazwischen ein. Wenn Sie in einer Zeile 
einen Tippfehler gemacht haben, meldet sich der MSE 
sofort mit einem Brummton und der Meldung »EINGABE¬ 
FEHLER«. Nach einem Druck auf die RETURN-Taste kön¬ 
nen Sie mit der DEL-Taste den Fehler korrigieren. Wenn Sie 
das gewünschte Programm vollständig eingegeben 
haben, speichert es der MSE automatisch auf Diskette 
oder Kassette. 

Bei längeren Listings ist es unwahrscheinlich, daß Sie 
das komplette Programm auf einmal eingeben. Sie können 
Ihre bisherige Tipparbeit jederzeit durch <CTRL S> auf 
Diskette oder Kassette speichern und Ihr Werk später fort¬ 
setzen. Sie sollten sich dann allerdings im Heft markieren, 
wie weit Sie beim Abtippen gekommen sind! Später geben 
Sie dann nach dem Laden des ersten Programmteils 

< CTRL N > ein und auf die dann folgende Frage nach der 
Startadresse die Zeilennummer (Adresse), bei der Sie auf¬ 
gehört haben zu tippen. 

<CTRL M > erlaubt Ihnen jederzeit, Ihr Werk listen zu 
lassen. Durch <SPACE> können Sie weiterlisten lassen 
und durch < RUN/STOP> das Listen abbrechen. 

Wenn Sie einen Drucker besitzen, können Sie das Pro¬ 
gramm auch mit <CTRL P> ausdrucken. Mit <CTRL L> 
wird das Programm noch einmal neu in Ihren C 64 geladen. 

(F. Lonczewski/N. Mann/D. Weineck/sk) 
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